Lines Matching +defs:mode +defs:alist
28 ;; This mode provides mail-sending facilities from within Emacs. It
43 ;; Because we dynamically bind mail-abbrev-mode-regexp, we'd better
583 (set-syntax-table text-mode-syntax-table)
845 (defcustom message-mode-hook nil
846 "Hook run in message mode buffers."
851 "Hook run in a message mode buffer narrowed to the headers."
1047 \(This problem exists on Sunos 4 when sendmail is run in remote mode.)
1062 (defvar message-send-method-alist
1140 (defvar message-mode-syntax-table
1141 (let ((table (copy-syntax-table text-mode-syntax-table)))
1146 "Syntax table used while in Message mode.")
1345 "Additional expressions to highlight in Message mode.")
1350 (put 'message-mode 'font-lock-defaults '(message-font-lock-keywords t))
1352 (defvar message-face-alist
1578 (defvar message-header-format-alist
2016 (if (boundp 'gnus-newsrc-alist)
2017 gnus-newsrc-alist)
2091 (if (boundp 'gnus-newsrc-alist)
2092 gnus-newsrc-alist)
2288 "Sort the headers of the current message according to `message-header-format-alist'."
2292 (let ((max (1+ (length message-header-format-alist)))
2302 message-header-format-alist)
2303 message-header-format-alist)))
2322 ;;; Message mode
2327 (defvar message-mode-map nil)
2329 (unless message-mode-map
2330 (setq message-mode-map (make-keymap))
2331 (set-keymap-parent message-mode-map text-mode-map)
2332 (define-key message-mode-map "\C-c?" 'describe-mode)
2334 (define-key message-mode-map "\C-c\C-f\C-t" 'message-goto-to)
2335 (define-key message-mode-map "\C-c\C-f\C-o" 'message-goto-from)
2336 (define-key message-mode-map "\C-c\C-f\C-b" 'message-goto-bcc)
2337 (define-key message-mode-map "\C-c\C-f\C-w" 'message-goto-fcc)
2338 (define-key message-mode-map "\C-c\C-f\C-c" 'message-goto-cc)
2339 (define-key message-mode-map "\C-c\C-f\C-s" 'message-goto-subject)
2340 (define-key message-mode-map "\C-c\C-f\C-r" 'message-goto-reply-to)
2341 (define-key message-mode-map "\C-c\C-f\C-n" 'message-goto-newsgroups)
2342 (define-key message-mode-map "\C-c\C-f\C-d" 'message-goto-distribution)
2343 (define-key message-mode-map "\C-c\C-f\C-f" 'message-goto-followup-to)
2344 (define-key message-mode-map "\C-c\C-f\C-m" 'message-goto-mail-followup-to)
2345 (define-key message-mode-map "\C-c\C-f\C-k" 'message-goto-keywords)
2346 (define-key message-mode-map "\C-c\C-f\C-u" 'message-goto-summary)
2347 (define-key message-mode-map "\C-c\C-f\C-i"
2349 (define-key message-mode-map "\C-c\C-f\C-a"
2353 (define-key message-mode-map "\C-c\C-fs" 'message-change-subject)
2355 (define-key message-mode-map "\C-c\C-fx" 'message-cross-post-followup-to)
2357 (define-key message-mode-map "\C-c\C-ft" 'message-reduce-to-to-cc)
2358 (define-key message-mode-map "\C-c\C-fa" 'message-add-archive-header)
2360 (define-key message-mode-map "\C-c\M-m" 'message-mark-inserted-region)
2361 (define-key message-mode-map "\C-c\M-f" 'message-mark-insert-file)
2363 (define-key message-mode-map "\C-c\C-b" 'message-goto-body)
2364 (define-key message-mode-map "\C-c\C-i" 'message-goto-signature)
2366 (define-key message-mode-map "\C-c\C-t" 'message-insert-to)
2367 (define-key message-mode-map "\C-c\C-fw" 'message-insert-wide-reply)
2368 (define-key message-mode-map "\C-c\C-n" 'message-insert-newsgroups)
2369 (define-key message-mode-map "\C-c\C-l" 'message-to-list-only)
2371 (define-key message-mode-map "\C-c\C-u" 'message-insert-or-toggle-importance)
2372 (define-key message-mode-map "\C-c\M-n"
2375 (define-key message-mode-map "\C-c\C-y" 'message-yank-original)
2376 (define-key message-mode-map "\C-c\M-\C-y" 'message-yank-buffer)
2377 (define-key message-mode-map "\C-c\C-q" 'message-fill-yanked-message)
2378 (define-key message-mode-map "\C-c\C-w" 'message-insert-signature)
2379 (define-key message-mode-map "\C-c\M-h" 'message-insert-headers)
2380 (define-key message-mode-map "\C-c\C-r" 'message-caesar-buffer-body)
2381 (define-key message-mode-map "\C-c\C-o" 'message-sort-headers)
2382 (define-key message-mode-map "\C-c\M-r" 'message-rename-buffer)
2384 (define-key message-mode-map "\C-c\C-c" 'message-send-and-exit)
2385 (define-key message-mode-map "\C-c\C-s" 'message-send)
2386 (define-key message-mode-map "\C-c\C-k" 'message-kill-buffer)
2387 (define-key message-mode-map "\C-c\C-d" 'message-dont-send)
2388 (define-key message-mode-map "\C-c\n" 'gnus-delay-article)
2390 (define-key message-mode-map "\C-c\C-e" 'message-elide-region)
2391 (define-key message-mode-map "\C-c\C-v" 'message-delete-not-region)
2392 (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature)
2393 (define-key message-mode-map "\M-\r" 'message-newline-and-reformat)
2394 ;;(define-key message-mode-map "\M-q" 'message-fill-paragraph)
2395 (define-key message-mode-map [remap split-line] 'message-split-line)
2397 (define-key message-mode-map "\C-c\C-a" 'mml-attach-file)
2399 (define-key message-mode-map "\C-a" 'message-beginning-of-line)
2400 (define-key message-mode-map "\t" 'message-tab)
2401 (define-key message-mode-map "\M-;" 'comment-region))
2404 message-mode-menu message-mode-map "Message Menu."
2452 message-mode-field-menu message-mode-map ""
2514 ;; that interfer with the normal function of message mode out of the
2552 (not (and (boundp 'egg-modefull-mode)
2553 (symbol-value 'egg-modefull-mode)
2575 (define-derived-mode message-mode text-mode "Message"
2576 "Major mode for editing mail and news to be sent.
2577 Like Text Mode but with these additional commands:\\<message-mode-map>
2612 (setq local-abbrev-table text-mode-abbrev-table)
2623 (let ((face-fun (cdr (assq face message-face-alist))))
2626 (error "Face %s not configured for %s mode" face mode-name)))
2649 (easy-menu-add message-mode-menu message-mode-map)
2650 (easy-menu-add message-mode-field-menu message-mode-map)
2667 (set (make-local-variable 'indent-tabs-mode) nil) ;No tabs for indentation.
2668 (mml-mode))
2706 ;; KLUDGE: auto fill might already be turned on in `text-mode-hook'.
2708 ;; solution would be not to use `define-derived-mode', and run
2709 ;; `text-mode-hook' ourself at the end of the mode.
2718 ;;; Message mode commands
2887 "Insert the HEADERS, an alist, into the message buffer.
3071 (if (if (boundp 'filladapt-mode) filladapt-mode)
3378 (when (and (eq major-mode 'message-mode)
3609 (let ((alist message-send-method-alist)
3615 (setq elem (pop alist)))
4177 (rfc2047-header-encoding-alist
4182 rfc2047-header-encoding-alist))
4204 ;; gnus-group-name-charset-group-alist. -- Pa 2001-10-07.
4693 (rfc2047-header-encoding-alist
4695 rfc2047-header-encoding-alist)))
5284 (cdr (assq header message-header-format-alist))))
5494 "Whether \\<message-mode-map>\\[message-beginning-of-line]\
5577 (eq (with-current-buffer b major-mode)
5578 'message-mode))
5607 (message-mode)))
5724 (alist message-header-format-alist))
5726 (unless (assq (caar h) message-header-format-alist)
5727 (push (list (caar h)) alist))
5729 alist)
5837 OTHER-HEADERS is an alist of header/value pairs. CONTINUE says whether
5991 ;; Build the header alist. Allow the user to be asked whether
6333 (fundamental-mode)) ; for Emacs 20.4+
6828 (defvar tool-bar-mode))
6832 ;; message-mode buffers and force the update.
6834 "Update message mode toolbar.
6844 "Specifies the message mode tool bar.
6848 default key map is `message-mode-map'.
6864 :visible (or (not (boundp 'flyspell-mode))
6865 (not flyspell-mode)))
6867 :visible (and (boundp 'flyspell-mode)
6868 flyspell-mode)
6874 (mml-attach-file "attach" mml-mode-map)
6875 (mml-preview "mail/preview" mml-mode-map)
6876 ;; (mml-secure-message-sign-encrypt "lock" mml-mode-map :visible nil)
6880 (gmm-customize-mode "preferences" t :help "Edit mode preferences")
6896 (mml-attach-file "attach" mml-mode-map)
6898 (mml-preview "preview" mml-mode-map)
6915 These items are not displayed on the message mode tool bar.
6927 "Make a message mode tool bar from `message-tool-bar-list'.
6930 (boundp 'tool-bar-mode)
6931 tool-bar-mode
6943 'message-mode-map))))
6954 (defcustom message-completion-alist
6964 :type '(alist :key-type regexp :value-type function))
6968 If nil, the function bound in `text-mode-map' or `global-map' is executed."
6976 "Complete names according to `message-completion-alist'.
6980 (let ((alist message-completion-alist))
6981 (while (and alist
6982 (let ((mail-abbrev-mode-regexp (caar alist)))
6984 (setq alist (cdr alist)))
6985 (funcall (or (cdar alist) message-tab-body-function
6986 (lookup-key text-mode-map "\t")
7062 (fundamental-mode) ; for Emacs 20.4+
7161 (let ((mail-abbrev-mode-regexp "")