Mercurial > emacs
comparison lisp/mail/pmail.el @ 98625:e80860881779
* pmail.el (pmail-tool-bar-map): Initialize it unconditionally.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 11 Oct 2008 19:56:16 +0000 |
| parents | 276fe938ccc2 |
| children | 9a09eaf25d36 |
comparison
equal
deleted
inserted
replaced
| 98624:14621c767c96 | 98625:e80860881779 |
|---|---|
| 1201 (define-key pmail-mode-map [menu-bar move next] | 1201 (define-key pmail-mode-map [menu-bar move next] |
| 1202 '("Next" . pmail-next-message)) | 1202 '("Next" . pmail-next-message)) |
| 1203 | 1203 |
| 1204 ;; Pmail toolbar | 1204 ;; Pmail toolbar |
| 1205 (defvar pmail-tool-bar-map | 1205 (defvar pmail-tool-bar-map |
| 1206 (if (display-graphic-p) | 1206 (let ((map (make-sparse-keymap))) |
| 1207 (let ((map (make-sparse-keymap))) | 1207 (tool-bar-local-item-from-menu 'pmail-get-new-mail "mail/inbox" |
| 1208 (tool-bar-local-item-from-menu 'pmail-get-new-mail "mail/inbox" | 1208 map pmail-mode-map) |
| 1209 map pmail-mode-map) | 1209 (tool-bar-local-item-from-menu 'pmail-next-undeleted-message "right-arrow" |
| 1210 (tool-bar-local-item-from-menu 'pmail-next-undeleted-message "right-arrow" | 1210 map pmail-mode-map) |
| 1211 map pmail-mode-map) | 1211 (tool-bar-local-item-from-menu 'pmail-previous-undeleted-message "left-arrow" |
| 1212 (tool-bar-local-item-from-menu 'pmail-previous-undeleted-message "left-arrow" | 1212 map pmail-mode-map) |
| 1213 map pmail-mode-map) | 1213 (tool-bar-local-item-from-menu 'pmail-search "search" |
| 1214 (tool-bar-local-item-from-menu 'pmail-search "search" | 1214 map pmail-mode-map) |
| 1215 map pmail-mode-map) | 1215 (tool-bar-local-item-from-menu 'pmail-input "open" |
| 1216 (tool-bar-local-item-from-menu 'pmail-input "open" | 1216 map pmail-mode-map) |
| 1217 map pmail-mode-map) | 1217 (tool-bar-local-item-from-menu 'pmail-mail "mail/compose" |
| 1218 (tool-bar-local-item-from-menu 'pmail-mail "mail/compose" | 1218 map pmail-mode-map) |
| 1219 map pmail-mode-map) | 1219 (tool-bar-local-item-from-menu 'pmail-reply "mail/reply-all" |
| 1220 (tool-bar-local-item-from-menu 'pmail-reply "mail/reply-all" | 1220 map pmail-mode-map) |
| 1221 map pmail-mode-map) | 1221 (tool-bar-local-item-from-menu 'pmail-forward "mail/forward" |
| 1222 (tool-bar-local-item-from-menu 'pmail-forward "mail/forward" | 1222 map pmail-mode-map) |
| 1223 map pmail-mode-map) | 1223 (tool-bar-local-item-from-menu 'pmail-delete-forward "close" |
| 1224 (tool-bar-local-item-from-menu 'pmail-delete-forward "close" | 1224 map pmail-mode-map) |
| 1225 map pmail-mode-map) | 1225 (tool-bar-local-item-from-menu 'pmail-output "mail/move" |
| 1226 (tool-bar-local-item-from-menu 'pmail-output "mail/move" | 1226 map pmail-mode-map) |
| 1227 map pmail-mode-map) | 1227 (tool-bar-local-item-from-menu 'pmail-output-body-to-file "mail/save" |
| 1228 (tool-bar-local-item-from-menu 'pmail-output-body-to-file "mail/save" | 1228 map pmail-mode-map) |
| 1229 map pmail-mode-map) | 1229 (tool-bar-local-item-from-menu 'pmail-expunge "delete" |
| 1230 (tool-bar-local-item-from-menu 'pmail-expunge "delete" | 1230 map pmail-mode-map) |
| 1231 map pmail-mode-map) | 1231 map)) |
| 1232 map))) | |
| 1233 | 1232 |
| 1234 | 1233 |
| 1235 | 1234 |
| 1236 ;; Pmail mode is suitable only for specially formatted data. | 1235 ;; Pmail mode is suitable only for specially formatted data. |
| 1237 (put 'pmail-mode 'mode-class 'special) | 1236 (put 'pmail-mode 'mode-class 'special) |