]> git.eshelyaron.com Git - emacs.git/commitdiff
* pmail.el (pmail-tool-bar-map): Initialize it unconditionally.
authorChong Yidong <cyd@stupidchicken.com>
Sat, 11 Oct 2008 19:56:32 +0000 (19:56 +0000)
committerChong Yidong <cyd@stupidchicken.com>
Sat, 11 Oct 2008 19:56:32 +0000 (19:56 +0000)
lisp/mail/ChangeLog.pmail
lisp/mail/pmail.el

index 21ef83ee595ec3fe1987d1162595d438a130fb34..6ba1c7c932c38988cf5d0d779d50ac6cf3b811de 100644 (file)
@@ -1,3 +1,7 @@
+2008-10-11  Chong Yidong  <cyd@stupidchicken.com>
+
+       * pmail.el (pmail-tool-bar-map): Initialize it unconditionally.
+
 2008-10-05  Paul Reilly  <pmr@pajato.com>
 
        * pmail.el, pmailsum.el:
index 86436663013d3b25f05ce6183fdf42d12d16efb0..6dc03bef4d4fac9f0c7a3a922cb706e90421d2c2 100644 (file)
@@ -1203,33 +1203,32 @@ the region."
 
 ;; Pmail toolbar
 (defvar pmail-tool-bar-map
-  (if (display-graphic-p)
-      (let ((map (make-sparse-keymap)))
-       (tool-bar-local-item-from-menu 'pmail-get-new-mail "mail/inbox"
-                                      map pmail-mode-map)
-       (tool-bar-local-item-from-menu 'pmail-next-undeleted-message "right-arrow"
-                                      map pmail-mode-map)
-       (tool-bar-local-item-from-menu 'pmail-previous-undeleted-message "left-arrow"
-                                      map pmail-mode-map)
-       (tool-bar-local-item-from-menu 'pmail-search "search"
-                                      map pmail-mode-map)
-       (tool-bar-local-item-from-menu 'pmail-input "open"
-                                      map pmail-mode-map)
-       (tool-bar-local-item-from-menu 'pmail-mail "mail/compose"
-                                      map pmail-mode-map)
-       (tool-bar-local-item-from-menu 'pmail-reply "mail/reply-all"
-                                      map pmail-mode-map)
-       (tool-bar-local-item-from-menu 'pmail-forward "mail/forward"
-                                      map pmail-mode-map)
-       (tool-bar-local-item-from-menu 'pmail-delete-forward "close"
-                                      map pmail-mode-map)
-       (tool-bar-local-item-from-menu 'pmail-output "mail/move"
-                                      map pmail-mode-map)
-       (tool-bar-local-item-from-menu 'pmail-output-body-to-file "mail/save"
-                                      map pmail-mode-map)
-       (tool-bar-local-item-from-menu 'pmail-expunge "delete"
-                                      map pmail-mode-map)
-       map)))
+  (let ((map (make-sparse-keymap)))
+    (tool-bar-local-item-from-menu 'pmail-get-new-mail "mail/inbox"
+                                  map pmail-mode-map)
+    (tool-bar-local-item-from-menu 'pmail-next-undeleted-message "right-arrow"
+                                  map pmail-mode-map)
+    (tool-bar-local-item-from-menu 'pmail-previous-undeleted-message "left-arrow"
+                                  map pmail-mode-map)
+    (tool-bar-local-item-from-menu 'pmail-search "search"
+                                  map pmail-mode-map)
+    (tool-bar-local-item-from-menu 'pmail-input "open"
+                                  map pmail-mode-map)
+    (tool-bar-local-item-from-menu 'pmail-mail "mail/compose"
+                                  map pmail-mode-map)
+    (tool-bar-local-item-from-menu 'pmail-reply "mail/reply-all"
+                                  map pmail-mode-map)
+    (tool-bar-local-item-from-menu 'pmail-forward "mail/forward"
+                                  map pmail-mode-map)
+    (tool-bar-local-item-from-menu 'pmail-delete-forward "close"
+                                  map pmail-mode-map)
+    (tool-bar-local-item-from-menu 'pmail-output "mail/move"
+                                  map pmail-mode-map)
+    (tool-bar-local-item-from-menu 'pmail-output-body-to-file "mail/save"
+                                  map pmail-mode-map)
+    (tool-bar-local-item-from-menu 'pmail-expunge "delete"
+                                  map pmail-mode-map)
+    map))
 
 
 \f