2 files changed, 12 insertions, 0 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 71940cac0db..d39ab0a1455 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * mml.el (mml-insert-mime): Ignore cached contents of
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 0ed72433115..24e4df14712 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1389,6 +1389,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