lisp/mail/rmail.el

54 (defvar tool-bar-map)
100 (defgroup rmail-edit nil
102   :prefix "rmail-edit-"
771   "Read and edit incoming mail.
821     (if (eq major-mode 'rmail-edit-mode)
846 	(rmail-construct-io-menu)
971   (define-key rmail-mode-map "e"      'rmail-edit-current-message)
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]
1140 (defvar rmail-tool-bar-map
1143 	(tool-bar-local-item-from-menu 'rmail-get-new-mail "mail/inbox"
1145 	(tool-bar-local-item-from-menu 'rmail-next-undeleted-message "right-arrow"
1147 	(tool-bar-local-item-from-menu 'rmail-previous-undeleted-message "left-arrow"
1149 	(tool-bar-local-item-from-menu 'rmail-search "search"
1151 	(tool-bar-local-item-from-menu 'rmail-input "open"
1153 	(tool-bar-local-item-from-menu 'rmail-mail "mail/compose"
1155 	(tool-bar-local-item-from-menu 'rmail-reply "mail/reply-all"
1157 	(tool-bar-local-item-from-menu 'rmail-forward "mail/forward"
1159 	(tool-bar-local-item-from-menu 'rmail-delete-forward "close"
1161 	(tool-bar-local-item-from-menu 'rmail-output "mail/move"
1163 	(tool-bar-local-item-from-menu 'rmail-output-body-to-file "mail/save"
1165 	(tool-bar-local-item-from-menu 'rmail-expunge "delete"
1200 \\[rmail-edit-current-message]	Edit the current message.  \\[rmail-cease-edit] to return to Rmail.
1244       (rmail-construct-io-menu))
1298   (set (make-local-variable 'tool-bar-map) rmail-tool-bar-map)
1461 (defun rmail-list-to-menu (menu-name l action &optional full-name)
1462   (let ((menu (make-sparse-keymap menu-name)))
1469 			       (rmail-list-to-menu (car item) (cdr item)
1486 		   (define-key menu (vector (intern name))
1489     menu))
1491 ;; This command is always "disabled" when it appears in a menu.
1492 (put 'rmail-disable-menu 'menu-enable ''nil)
1494 (defun rmail-construct-io-menu ()
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]
1510 	'("Input Rmail File" . rmail-disable-menu))
1511       (define-key rmail-mode-map [menu-bar classify output-menu]
1512 	'("Output Rmail File" . rmail-disable-menu)))))
3698                 (bar "[^][\000-\037()<>@,;:\\\"]+"))
3700            (or (string-match (concat "\\`[ \t]*\\(" bar
3702                              ;; "Unix Loser <Foo@bar.edu>" => "Unix Loser"
3705                                      bar "\\))[ \t]*\\'")
3706                              ;; "<Bugs@bar.edu>" (Losing Unix) => "Losing Unix"
3720                  ;; "<AA259@bar.edu> (message from Unix Loser on 1-Apr-89)"
4115     (define-key rmail-speedbar-key-map "e" 'speedbar-edit-line)
4116     (define-key rmail-speedbar-key-map "r" 'speedbar-edit-line)
4117     (define-key rmail-speedbar-key-map "\C-m" 'speedbar-edit-line)
4121 (defvar rmail-speedbar-menu-items
4122   '(["Read Folder" speedbar-edit-line t]
4126   "Additional menu-items to add to speedbar frame.")