From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 25 Mar 2006 11:34:47 +0000 (+0000)
Subject: (tool-bar-map): Defvar it.
X-Git-Tag: emacs-pretest-22.0.90~3429
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1da6a64db82c50a051c41d338bcf771a85852f54;p=emacs.git

(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.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65f5c199bac..946b0858a07 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 5c06a1fe1ad..e0fecb4ff28 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -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))