(gnus-group-make-tool-bar): Use add-hook.

Suggested by Stefan Monnier <monnier@iro.umontreal.ca>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc981e0..d7b5e53 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-03-06  Reiner Steib  <Reiner.Steib@gmx.de>
 
+       * gnus-group.el (gnus-group-make-tool-bar): Use add-hook.
+       Suggested by Stefan Monnier <monnier@iro.umontreal.ca>.
+
        * gnus-art.el (gnus-article-browse-delete-temp-files): Simplify
        resetting gnus-article-browse-html-temp-list.
 

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index cbca66d..a4b6062 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1135,8 +1135,7 @@ When FORCE, rebuild the tool bar."
             ;; Why?  --rsteib
             (or (not gnus-group-tool-bar-map) force))
     (when gnus-group-redraw-when-idle
-      (add-to-list (make-local-variable 'post-command-hook)
-                  'gnus-group-redraw-check))
+      (add-hook 'post-command-hook 'gnus-group-redraw-check nil t))
     (let* ((load-path
            (gmm-image-load-path "gnus" "gnus/toggle-subscription.xpm"
                                 'load-path))