Mercurial > emacs

diff lisp/gnus/gnus-group.el @ 69763:6c338e8bc3ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-189 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 73) - Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 02 Apr 2006 01:08:04 +0000
parents 29fe34ec2296
children 700b1f9b81e2 482dfed28bee
line wrap: on
line diff
--- a/lisp/gnus/gnus-group.el	Sat Apr 01 21:25:22 2006 +0000
+++ b/lisp/gnus/gnus-group.el	Sun Apr 02 01:08:04 2006 +0000
@@ -1389,6 +1389,13 @@
   "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