Lines Matching +defs:auto +defs:mode +defs:list
215 (list exec-directory)))
268 "\\|^precedence:\\|^list-help:\\|^list-post:\\|^list-subscribe:"
269 "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:"
343 (defcustom rmail-primary-inbox-list nil "\
350 :type (list 'choice '(const :tag "Default" nil)
351 (list 'repeat ':value (list (or (getenv "MAIL")
387 (defvar rmail-mode-hook nil
429 Each element of the list is of the form:
444 FIELD/REGEXP pairs continue in the list.
469 (defvar rmail-inbox-list nil)
470 (put 'rmail-inbox-list 'permanent-local t)
496 "In an Rmail buffer, a vector whose Nth element is a list (N).
498 by substituting the new message number into the existing list.")
501 (defvar rmail-overlay-list nil)
502 (put 'rmail-overlay-list 'permanent-local t)
698 (list '("^\\(From\\|Sender\\|Resent-From\\):"
716 "Additional expressions to highlight in Rmail mode.")
774 Type \\[describe-mode] once editing that file, for a list of RMAIL commands.
783 (list (read-file-name "Run rmail on RMAIL file: "))))
807 ;; but that should not be needed now that rmail-mode
815 (eq major-mode 'rmail-mode))
821 (if (eq major-mode 'rmail-edit-mode)
822 (error "Exit Rmail Edit mode before getting new mail"))
824 ;; Buffer not new and not empty; ensure in proper mode, but that's all.
825 (or (eq major-mode 'rmail-mode)
826 (progn (rmail-mode-2)
829 (rmail-mode-2)
848 (run-hooks 'rmail-mode-hook))))))
850 ;; Given the value of MAILPATH, return a list of inbox file names.
854 ; (let (idx list)
858 ; (setq list (cons (if (string-match "%" this)
861 ; list))))
862 ; list))
925 ;; rmail-file-coding-system, or if it is nil, do auto conversion.
953 (let ((buffer-undo-list t))
961 (defvar rmail-mode-map nil)
962 (if rmail-mode-map
964 (setq rmail-mode-map (make-keymap))
965 (suppress-keymap rmail-mode-map)
966 (define-key rmail-mode-map "a" 'rmail-add-label)
967 (define-key rmail-mode-map "b" 'rmail-bury)
968 (define-key rmail-mode-map "c" 'rmail-continue)
969 (define-key rmail-mode-map "d" 'rmail-delete-forward)
970 (define-key rmail-mode-map "\C-d" 'rmail-delete-backward)
971 (define-key rmail-mode-map "e" 'rmail-edit-current-message)
972 (define-key rmail-mode-map "f" 'rmail-forward)
973 (define-key rmail-mode-map "g" 'rmail-get-new-mail)
974 (define-key rmail-mode-map "h" 'rmail-summary)
975 (define-key rmail-mode-map "i" 'rmail-input)
976 (define-key rmail-mode-map "j" 'rmail-show-message)
977 (define-key rmail-mode-map "k" 'rmail-kill-label)
978 (define-key rmail-mode-map "l" 'rmail-summary-by-labels)
979 (define-key rmail-mode-map "\e\C-h" 'rmail-summary)
980 (define-key rmail-mode-map "\e\C-l" 'rmail-summary-by-labels)
981 (define-key rmail-mode-map "\e\C-r" 'rmail-summary-by-recipients)
982 (define-key rmail-mode-map "\e\C-s" 'rmail-summary-by-regexp)
983 (define-key rmail-mode-map "\e\C-t" 'rmail-summary-by-topic)
984 (define-key rmail-mode-map "m" 'rmail-mail)
985 (define-key rmail-mode-map "\em" 'rmail-retry-failure)
986 (define-key rmail-mode-map "n" 'rmail-next-undeleted-message)
987 (define-key rmail-mode-map "\en" 'rmail-next-message)
988 (define-key rmail-mode-map "\e\C-n" 'rmail-next-labeled-message)
989 (define-key rmail-mode-map "o" 'rmail-output-to-rmail-file)
990 (define-key rmail-mode-map "\C-o" 'rmail-output)
991 (define-key rmail-mode-map "p" 'rmail-previous-undeleted-message)
992 (define-key rmail-mode-map "\ep" 'rmail-previous-message)
993 (define-key rmail-mode-map "\e\C-p" 'rmail-previous-labeled-message)
994 (define-key rmail-mode-map "q" 'rmail-quit)
995 (define-key rmail-mode-map "r" 'rmail-reply)
997 ;; (define-key rmail-mode-map "\er" 'rmail-search-backwards)
998 (define-key rmail-mode-map "s" 'rmail-expunge-and-save)
999 (define-key rmail-mode-map "\es" 'rmail-search)
1000 (define-key rmail-mode-map "t" 'rmail-toggle-header)
1001 (define-key rmail-mode-map "u" 'rmail-undelete-previous-message)
1002 (define-key rmail-mode-map "w" 'rmail-output-body-to-file)
1003 (define-key rmail-mode-map "x" 'rmail-expunge)
1004 (define-key rmail-mode-map "." 'rmail-beginning-of-message)
1005 (define-key rmail-mode-map "/" 'rmail-end-of-message)
1006 (define-key rmail-mode-map "<" 'rmail-first-message)
1007 (define-key rmail-mode-map ">" 'rmail-last-message)
1008 (define-key rmail-mode-map " " 'scroll-up)
1009 (define-key rmail-mode-map "\177" 'scroll-down)
1010 (define-key rmail-mode-map "?" 'describe-mode)
1011 (define-key rmail-mode-map "\C-c\C-s\C-d" 'rmail-sort-by-date)
1012 (define-key rmail-mode-map "\C-c\C-s\C-s" 'rmail-sort-by-subject)
1013 (define-key rmail-mode-map "\C-c\C-s\C-a" 'rmail-sort-by-author)
1014 (define-key rmail-mode-map "\C-c\C-s\C-r" 'rmail-sort-by-recipient)
1015 (define-key rmail-mode-map "\C-c\C-s\C-c" 'rmail-sort-by-correspondent)
1016 (define-key rmail-mode-map "\C-c\C-s\C-l" 'rmail-sort-by-lines)
1017 (define-key rmail-mode-map "\C-c\C-s\C-k" 'rmail-sort-by-labels)
1018 (define-key rmail-mode-map "\C-c\C-n" 'rmail-next-same-subject)
1019 (define-key rmail-mode-map "\C-c\C-p" 'rmail-previous-same-subject)
1023 (define-key rmail-mode-map [menu-bar] (make-sparse-keymap))
1025 (define-key rmail-mode-map [menu-bar classify]
1028 (define-key rmail-mode-map [menu-bar classify input-menu]
1031 (define-key rmail-mode-map [menu-bar classify output-menu]
1034 (define-key rmail-mode-map [menu-bar classify output-body]
1037 (define-key rmail-mode-map [menu-bar classify output-inbox]
1040 (define-key rmail-mode-map [menu-bar classify output]
1043 (define-key rmail-mode-map [menu-bar classify kill-label]
1046 (define-key rmail-mode-map [menu-bar classify add-label]
1049 (define-key rmail-mode-map [menu-bar summary]
1052 (define-key rmail-mode-map [menu-bar summary senders]
1055 (define-key rmail-mode-map [menu-bar summary labels]
1058 (define-key rmail-mode-map [menu-bar summary recipients]
1061 (define-key rmail-mode-map [menu-bar summary topic]
1064 (define-key rmail-mode-map [menu-bar summary regexp]
1067 (define-key rmail-mode-map [menu-bar summary all]
1070 (define-key rmail-mode-map [menu-bar mail]
1073 (define-key rmail-mode-map [menu-bar mail rmail-get-new-mail]
1076 (define-key rmail-mode-map [menu-bar mail lambda]
1079 (define-key rmail-mode-map [menu-bar mail continue]
1082 (define-key rmail-mode-map [menu-bar mail resend]
1085 (define-key rmail-mode-map [menu-bar mail forward]
1088 (define-key rmail-mode-map [menu-bar mail retry]
1091 (define-key rmail-mode-map [menu-bar mail reply]
1094 (define-key rmail-mode-map [menu-bar mail mail]
1097 (define-key rmail-mode-map [menu-bar delete]
1100 (define-key rmail-mode-map [menu-bar delete expunge/save]
1103 (define-key rmail-mode-map [menu-bar delete expunge]
1106 (define-key rmail-mode-map [menu-bar delete undelete]
1109 (define-key rmail-mode-map [menu-bar delete delete]
1112 (define-key rmail-mode-map [menu-bar move]
1115 (define-key rmail-mode-map [menu-bar move search-back]
1118 (define-key rmail-mode-map [menu-bar move search]
1121 (define-key rmail-mode-map [menu-bar move previous]
1124 (define-key rmail-mode-map [menu-bar move next]
1127 (define-key rmail-mode-map [menu-bar move last]
1130 (define-key rmail-mode-map [menu-bar move first]
1133 (define-key rmail-mode-map [menu-bar move previous]
1136 (define-key rmail-mode-map [menu-bar move next]
1144 map rmail-mode-map)
1146 map rmail-mode-map)
1148 map rmail-mode-map)
1150 map rmail-mode-map)
1152 map rmail-mode-map)
1154 map rmail-mode-map)
1156 map rmail-mode-map)
1158 map rmail-mode-map)
1160 map rmail-mode-map)
1162 map rmail-mode-map)
1164 map rmail-mode-map)
1166 map rmail-mode-map)
1172 ;; Rmail mode is suitable only for specially formatted data.
1173 (put 'rmail-mode 'mode-class 'special)
1175 (defun rmail-mode-kill-summary ()
1179 (defun rmail-mode ()
1180 "Rmail Mode is used by \\<rmail-mode-map>\\[rmail] for editing Rmail files.
1215 \\[rmail-add-label] Add label to message. It will be displayed in the mode line.
1229 (let ((finding-rmail-file (not (eq major-mode 'rmail-mode))))
1230 (rmail-mode-2)
1245 (run-mode-hooks 'rmail-mode-hook)))
1247 (defun rmail-mode-2 ()
1249 (rmail-mode-1)
1253 (defun rmail-mode-1 ()
1254 (setq major-mode 'rmail-mode)
1255 (setq mode-name "RMAIL")
1257 ;; No need to auto save RMAIL files in normal circumstances
1260 ;; The one exception is when messages are copied into an Rmail mode buffer.
1261 ;; rmail-output-to-rmail-file enables auto save when you do that.
1262 (setq buffer-auto-save-file-name nil)
1263 (setq mode-line-modified "--")
1264 (use-local-map rmail-mode-map)
1265 (set-syntax-table text-mode-syntax-table)
1266 (setq local-abbrev-table text-mode-abbrev-table))
1281 (make-local-variable 'rmail-overlay-list)
1282 (setq rmail-overlay-list nil)
1285 (make-local-variable 'rmail-inbox-list)
1286 (setq rmail-inbox-list (rmail-parse-file-inboxes))
1288 (and (null rmail-inbox-list)
1292 (setq rmail-inbox-list
1293 (or rmail-primary-inbox-list
1294 (list (or (getenv "MAIL")
1302 ;; Set up the non-permanent locals associated with Rmail mode.
1311 ;; Don't let a local variables list in a message cause confusion.
1323 (font-lock-inhibit-thing-lock . (lazy-lock-mode fast-lock-mode))))
1329 (add-hook 'kill-buffer-hook 'rmail-mode-kill-summary)
1335 ;; Handle M-x revert-buffer done in an rmail-mode buffer.
1348 (rmail-mode-2)
1359 (run-hooks 'rmail-mode-hook)))))
1361 ;; Return a list of files from this buffer's Mail: option.
1377 (mail-parse-comma-list))))))))
1452 "Return list of file in dir START that match `rmail-secondary-file-regexp'."
1458 ;; because this list is usually much shorter.
1461 (defun rmail-list-to-menu (menu-name l action &optional full-name)
1469 (rmail-list-to-menu (car item) (cdr item)
1479 (list 'lambda () '(interactive)
1480 (list action
1498 (define-key rmail-mode-map [menu-bar classify input-menu]
1500 (rmail-list-to-menu "Input Rmail File"
1503 (define-key rmail-mode-map [menu-bar classify output-menu]
1505 (rmail-list-to-menu "Output Rmail File"
1509 (define-key rmail-mode-map [menu-bar classify input-menu]
1511 (define-key rmail-mode-map [menu-bar classify output-menu]
1524 variable `rmail-primary-inbox-list' specifies the inboxes for your
1539 (list (if current-prefix-arg
1550 (or (eq buffer-undo-list t)
1551 (setq buffer-undo-list nil))
1552 (let ((all-files (if file-name (list file-name)
1553 rmail-inbox-list))
1568 (buffer-undo-list t)
1596 ;; and adding to the list of files to delete eventually.
1642 (if (or file-name rmail-inbox-list)
1713 "Parse the supplied URL. Return (list MAILBOX-NAME REMOTE PASSWORD GOT-PASSWORD)
1737 (list (concat "po:" user ":" host)
1742 (list file
1757 (list file "pop" supplied-password got-password)))
1760 (list file nil nil nil))))
1828 (list (or rmail-movemail-program
1833 (list "-p")
1836 (append (list "--emacs") rmail-movemail-flags)
1838 (list file tofile)
1839 (if password (list password) nil))))
1913 (buffer-undo-list t)
2198 (setq buffer-undo-list nil)
2463 ;; and set it up as the name of a minor mode
2464 ;; so it will appear in the mode line.
2506 (setq mode-line-process
2510 ;; `mode-line-process' of rmail-view-buffer too.
2514 (let ((mlp mode-line-process))
2516 (setq mode-line-process mlp))))))
2625 (setq messages-head (list (point-marker)))
2643 (aset rmail-msgref-vector i (list i))
2666 (setq messages-head (list (point-marker)))
2681 (aset rmail-msgref-vector i (list i))
2718 (list (function (lambda ()
2726 (list (function (lambda ()
2732 "Handle a \"Mail-Followup-To\" header field with an unknown mailing list.
2733 Ask the user whether to add that list name to `mail-mailing-lists'."
2768 (or (eq major-mode 'rmail-mode)
2775 (setq mode-line-process nil))
2836 (if transient-mark-mode (deactivate-mark))
2848 (rmail-auto-file))
2872 Note that if Emacs erroneously auto-detected one of the iso-2022
2880 (or (eq major-mode 'rmail-mode)
2968 (overlays rmail-overlay-list))
2988 ;; rmail-overlay-list.
2991 (setq rmail-overlay-list
2992 (cons overlay rmail-overlay-list))))))))))
2994 (defun rmail-auto-file ()
3169 (list rmail-search-last-regexp
3241 (list rmail-search-last-regexp
3428 (or (eq buffer-undo-list t)
3429 (setq buffer-undo-list nil))
3443 (buffer-undo-list t)
3454 (new-msgref (list (list 0)))
3523 (setq yank-action (list 'insert-buffer replybuffer)))
3636 ;; in cc. But if what's left is an empty list, use the original.
3637 (let* ((reply-to-list (rmail-dont-reply-to reply-to)))
3638 (if (string= reply-to-list "") reply-to reply-to-list))
3645 (let* ((cc-list (rmail-dont-reply-to
3648 (if (string= cc-list "") nil cc-list)))
3650 (list (list 'rmail-mark-message
3656 (list (cons "References" (concat (mapconcat 'identity references " ")
3659 (defun rmail-mark-message (buffer msgnum-list attribute)
3662 MSGNUM-LIST is a list of the form (MSGNUM)
3666 (if (car msgnum-list)
3667 (rmail-set-attribute attribute t (car msgnum-list)))))
3748 (list (list 'rmail-mark-message
3789 addresses separated by commas, or a list of addresses.
3795 typically for purposes of moderating a list."
3980 (list (list 'rmail-mark-message
4065 ;; Prevent Font Lock mode from kicking in.
4071 (buffer-undo-list t) (inhibit-read-only t)
4085 (buffer-undo-list t) (inhibit-read-only t)
4107 "Keymap used when in rmail display mode.")
4128 ;; Make sure our special speedbar major mode is loaded
4261 (if (eq major-mode 'rmail-mode)
4268 (add-to-list 'desktop-buffer-mode-handlers
4269 '(rmail-mode . rmail-restore-desktop-buffer))