Mercurial > emacs

comparison lisp/mail/rmail.el @ 69676:c0ad26dd3693

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tool-bar-map): Defvar it. (rmail-tool-bar-map): Tool-bar buttons for Rmail. (rmail-perm-variables): Make rmail-tool-bar-map a local variable.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 25 Mar 2006 11:33:48 +0000
parents 303818bc3ae8
children e711374bee77 e6bf73e43cf4
comparison
equal deleted inserted replaced
69675:75f56d44d7e2 69676:c0ad26dd3693
49 (defvar messages-head) 49 (defvar messages-head)
50 (defvar rmail-use-spam-filter) 50 (defvar rmail-use-spam-filter)
51 (defvar rsf-beep) 51 (defvar rsf-beep)
52 (defvar rsf-sleep-after-message) 52 (defvar rsf-sleep-after-message)
53 (defvar total-messages) 53 (defvar total-messages)
54 (defvar tool-bar-map)
54 55
55 ; These variables now declared in paths.el. 56 ; These variables now declared in paths.el.
56 ;(defvar rmail-spool-directory "/usr/spool/mail/" 57 ;(defvar rmail-spool-directory "/usr/spool/mail/"
57 ; "This is the name of the directory used by the system mailer for\n\ 58 ; "This is the name of the directory used by the system mailer for\n\
58 ;delivering new mail. Its name should end with a slash.") 59 ;delivering new mail. Its name should end with a slash.")
1125 (define-key rmail-mode-map [menu-bar move previous] 1126 (define-key rmail-mode-map [menu-bar move previous]
1126 '("Previous" . rmail-previous-message)) 1127 '("Previous" . rmail-previous-message))
1127 1128
1128 (define-key rmail-mode-map [menu-bar move next] 1129 (define-key rmail-mode-map [menu-bar move next]
1129 '("Next" . rmail-next-message)) 1130 '("Next" . rmail-next-message))
1131
1132 ;; Rmail toolbar
1133 (defvar rmail-tool-bar-map
1134 (if (display-graphic-p)
1135 (let ((map (make-sparse-keymap)))
1136 (tool-bar-local-item-from-menu 'rmail-get-new-mail "mail/inbox"
1137 map rmail-mode-map)
1138 (tool-bar-local-item-from-menu 'rmail-next-undeleted-message "right-arrow"
1139 map rmail-mode-map)
1140 (tool-bar-local-item-from-menu 'rmail-previous-undeleted-message "left-arrow"
1141 map rmail-mode-map)
1142 (tool-bar-local-item-from-menu 'rmail-search "search"
1143 map rmail-mode-map)
1144 (tool-bar-local-item-from-menu 'rmail-input "open"
1145 map rmail-mode-map)
1146 (tool-bar-local-item-from-menu 'rmail-mail "mail/compose"
1147 map rmail-mode-map)
1148 (tool-bar-local-item-from-menu 'rmail-reply "mail/reply-all"
1149 map rmail-mode-map)
1150 (tool-bar-local-item-from-menu 'rmail-forward "mail/forward"
1151 map rmail-mode-map)
1152 (tool-bar-local-item-from-menu 'rmail-delete-forward "close"
1153 map rmail-mode-map)
1154 (tool-bar-local-item-from-menu 'rmail-output "mail/move"
1155 map rmail-mode-map)
1156 (tool-bar-local-item-from-menu 'rmail-output-body-to-file "mail/save"
1157 map rmail-mode-map)
1158 (tool-bar-local-item-from-menu 'rmail-expunge "delete"
1159 map rmail-mode-map)
1160 map)))
1161
1162
1130 1163
1131 ;; Rmail mode is suitable only for specially formatted data. 1164 ;; Rmail mode is suitable only for specially formatted data.
1132 (put 'rmail-mode 'mode-class 'special) 1165 (put 'rmail-mode 'mode-class 'special)
1133 1166
1134 (defun rmail-mode-kill-summary () 1167 (defun rmail-mode-kill-summary ()
1252 (or rmail-primary-inbox-list 1285 (or rmail-primary-inbox-list
1253 (list (or (getenv "MAIL") 1286 (list (or (getenv "MAIL")
1254 (concat rmail-spool-directory 1287 (concat rmail-spool-directory
1255 (user-login-name))))))) 1288 (user-login-name)))))))
1256 (make-local-variable 'rmail-keywords) 1289 (make-local-variable 'rmail-keywords)
1290 (set (make-local-variable 'tool-bar-map) rmail-tool-bar-map)
1257 ;; this gets generated as needed 1291 ;; this gets generated as needed
1258 (setq rmail-keywords nil)) 1292 (setq rmail-keywords nil))
1259 1293
1260 ;; Set up the non-permanent locals associated with Rmail mode. 1294 ;; Set up the non-permanent locals associated with Rmail mode.
1261 (defun rmail-variables () 1295 (defun rmail-variables ()