Mercurial > emacs
comparison lisp/mail/rmail.el @ 69676:c0ad26dd3693
(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 () |