Mercurial > emacs

changeset 33311:fa5c3f22519c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-group-toolbar-map): New variable. (gnus-group-make-tool-bar): Rewritten. (gnus-group-mode): Put kill-all-local-variables first.
author Dave Love <fx@gnu.org>
date Wed, 08 Nov 2000 17:32:46 +0000
parents 7476be16909f
children 1e1d6d077288
files lisp/gnus/gnus-group.el
diffstat 1 files changed, 26 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-group.el	Wed Nov 08 17:28:13 2000 +0000
+++ b/lisp/gnus/gnus-group.el	Wed Nov 08 17:32:46 2000 +0000
@@ -818,26 +818,32 @@
 
     (gnus-run-hooks 'gnus-group-menu-hook)))
 
+(defvar gnus-group-toolbar-map nil)
+
 (defun gnus-group-make-tool-bar ()
-  (when (and (fboundp 'tool-bar-add-item-from-menu)
-	     (default-value 'tool-bar-mode)
-	     (not (lookup-key gnus-group-mode-map [tool-bar])))
-    (let ((tool-bar-map (make-sparse-keymap)))
-      (tool-bar-add-item-from-menu
-       'gnus-group-get-new-news "get-news" gnus-group-mode-map)
-      (tool-bar-add-item-from-menu
-       'gnus-group-get-new-news-this-group "gnntg" gnus-group-mode-map)
-      (tool-bar-add-item-from-menu
-       'gnus-group-catchup-current "catchup" gnus-group-mode-map)
-      (tool-bar-add-item-from-menu
-       'gnus-group-describe-group "describe-group" gnus-group-mode-map)
-      (tool-bar-add-item "subscribe" 'gnus-group-subscribe 'subscribe
-			 :help "Subscribe to the current group")
-      (tool-bar-add-item "unsubscribe" 'gnus-group-unsubscribe 'unsubscribe
-			 :help "Unsubscribe from the current group")
-      (tool-bar-add-item-from-menu
-       'gnus-group-exit "exit-gnus" gnus-group-mode-map)
-      (define-key gnus-group-mode-map [tool-bar] tool-bar-map))))
+  (if (and (fboundp 'tool-bar-add-item-from-menu)
+	   (default-value 'tool-bar-mode)
+	   (not gnus-group-toolbar-map))
+      (setq gnus-group-toolbar-map
+	    (let ((tool-bar-map (make-sparse-keymap)))
+	      (tool-bar-add-item-from-menu
+	       'gnus-group-get-new-news "get-news" gnus-group-mode-map)
+	      (tool-bar-add-item-from-menu
+	       'gnus-group-get-new-news-this-group "gnntg" gnus-group-mode-map)
+	      (tool-bar-add-item-from-menu
+	       'gnus-group-catchup-current "catchup" gnus-group-mode-map)
+	      (tool-bar-add-item-from-menu
+	       'gnus-group-describe-group "describe-group" gnus-group-mode-map)
+	      (tool-bar-add-item "subscribe" 'gnus-group-subscribe 'subscribe
+				 :help "Subscribe to the current group")
+	      (tool-bar-add-item "unsubscribe" 'gnus-group-unsubscribe
+				 'unsubscribe
+				 :help "Unsubscribe from the current group")
+	      (tool-bar-add-item-from-menu
+	       'gnus-group-exit "exit-gnus" gnus-group-mode-map)
+	      tool-bar-map))
+    (if gnus-group-toolbar-map
+	(set (make-local-variable 'tool-bar-map) gnus-group-toolbar-map))))
 
 (defun gnus-group-mode ()
   "Major mode for reading news.
@@ -857,10 +863,10 @@
 
 \\{gnus-group-mode-map}"
   (interactive)
+  (kill-all-local-variables)
   (when (gnus-visual-p 'group-menu 'menu)
     (gnus-group-make-menu-bar)
     (gnus-group-make-tool-bar))
-  (kill-all-local-variables)
   (gnus-simplify-mode-line)
   (setq major-mode 'gnus-group-mode)
   (setq mode-name "Group")