mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(tool-bar-map): Defvar it.

Browse Source 
(rmail-tool-bar-map): Tool-bar buttons for Rmail.
(rmail-perm-variables): Make rmail-tool-bar-map a local variable.
This commit is contained in:
Eli Zaretskii 2006-03-25 11:34:47 +00:00
parent cb0b676650
commit 1da6a64db8
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2006-03-25 Eli Zaretskii <eliz@gnu.org>
* mail/rmail.el (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.
2006-03-25 Sven Joachim <svenjoac@gmx.de> (tiny change)
* help.el (print-help-return-message): Suggest to use

34
lisp/mail/rmail.el
View File

@ -51,6 +51,7 @@
(defvar rsf-beep)
(defvar rsf-sleep-after-message)
(defvar total-messages)
(defvar tool-bar-map)
; These variables now declared in paths.el.
;(defvar rmail-spool-directory "/usr/spool/mail/"
@ -1127,6 +1128,38 @@ Note: it means the file has no messages in it.\n\^_")))
(define-key rmail-mode-map [menu-bar move next]
'("Next" . rmail-next-message))
;; Rmail toolbar
(defvar rmail-tool-bar-map
(if (display-graphic-p)
(let ((map (make-sparse-keymap)))
(tool-bar-local-item-from-menu 'rmail-get-new-mail "mail/inbox"
map rmail-mode-map)
(tool-bar-local-item-from-menu 'rmail-next-undeleted-message "right-arrow"
map rmail-mode-map)
(tool-bar-local-item-from-menu 'rmail-previous-undeleted-message "left-arrow"
map rmail-mode-map)
(tool-bar-local-item-from-menu 'rmail-search "search"
map rmail-mode-map)
(tool-bar-local-item-from-menu 'rmail-input "open"
map rmail-mode-map)
(tool-bar-local-item-from-menu 'rmail-mail "mail/compose"
map rmail-mode-map)
(tool-bar-local-item-from-menu 'rmail-reply "mail/reply-all"
map rmail-mode-map)
(tool-bar-local-item-from-menu 'rmail-forward "mail/forward"
map rmail-mode-map)
(tool-bar-local-item-from-menu 'rmail-delete-forward "close"
map rmail-mode-map)
(tool-bar-local-item-from-menu 'rmail-output "mail/move"
map rmail-mode-map)
(tool-bar-local-item-from-menu 'rmail-output-body-to-file "mail/save"
map rmail-mode-map)
(tool-bar-local-item-from-menu 'rmail-expunge "delete"
map rmail-mode-map)
map)))
;; Rmail mode is suitable only for specially formatted data.
(put 'rmail-mode 'mode-class 'special)
@ -1254,6 +1287,7 @@ Instead, these commands are available:
(concat rmail-spool-directory
(user-login-name)))))))
(make-local-variable 'rmail-keywords)
(set (make-local-variable 'tool-bar-map) rmail-tool-bar-map)
;; this gets generated as needed
(setq rmail-keywords nil))