(gnus-group-update-tool-bar): Add :initialize and

:set.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2c8fb1..a9d0f19 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-31  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-group.el (gnus-group-update-tool-bar): Add :initialize and
+       :set.
+
 2006-03-29  Daiki Ueno  <ueno@unixuser.org>
 
        * pgg-gpg.el (pgg-gpg-start-process): Don't bind

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 4861655..b601cab 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1517,6 +1517,13 @@ if it is a string, only list groups matching REGEXP."
   "Force updating the group buffer tool bar."
   :group 'gnus-group
   :version "22.1"
+  :initialize 'custom-initialize-default
+  :set (lambda (symbol value)
+        (set-default symbol value)
+        (when (gnus-alive-p)
+          (with-current-buffer gnus-group-buffer
+            ;; FIXME: Is there a better way to redraw the group buffer?
+            (gnus-group-get-new-news 0))))
   :type 'boolean)
 
 (defun gnus-group-insert-group-line (gnus-tmp-group gnus-tmp-level