(nnml-generate-nov-databases-directory): Document no-active

[gnus] / lisp / gnus-group.el

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 54140f2..a4b6062 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -999,6 +999,19 @@ simple manner.")
 
 (defvar gnus-group-tool-bar-map nil)
 
+;; Work around for Emacs not updating the tool bar automatically, see
+; http://www.google.com/groups?as_umsgid=v9u0an3hti.fsf@marauder.physik.uni-ulm.de
+;; Don't make this customizable yet.
+(defvar gnus-group-redraw-when-idle 2
+  "When non-nil, redraw the Group buffer frame when idle.
+Internal variable.")
+
+(defun gnus-group-redraw-check ()
+  "Check if we need to redraw the frame."
+  (when gnus-group-redraw-when-idle
+    (run-with-idle-timer gnus-group-redraw-when-idle
+                        nil 'force-window-update)))
+
 (defun gnus-group-tool-bar-update (&optional symbol value)
   "Update group buffer toolbar.
 Setter function for custom variables."
@@ -1010,8 +1023,9 @@ Setter function for custom variables."
     (with-current-buffer gnus-group-buffer
       (gnus-group-make-tool-bar t))))
 
-;; The default will be changed when the new icons have been checked in:
-(defcustom gnus-group-tool-bar 'gnus-group-tool-bar-retro
+(defcustom gnus-group-tool-bar (if (eq gmm-tool-bar-style 'gnome)
+                                  'gnus-group-tool-bar-gnome
+                                'gnus-group-tool-bar-retro)
   "Specifies the Gnus group tool bar.
 
 It can be either a list or a symbol refering to a list.  See
@@ -1030,31 +1044,36 @@ Pre-defined symbols include `gnus-group-tool-bar-gnome' and
   :group 'gnus-group)
 
 (defcustom gnus-group-tool-bar-gnome
-  '((gnus-group-post-news "compose")
-    (gnus-group-get-new-news "inbox") ;; Add... nil :visible gnus-plugged ?
-    ;; FIXME: gnus-*-read-group should have a better help text.
-    (gnus-topic-read-group "open" nil :visible gnus-topic-mode)
-    (gnus-group-read-group "open" nil :visible (not gnus-topic-mode))
-    ;; (gnus-group-find-new-groups "???" nil)
-    (gnus-group-save-newsrc "save")
-    (gnus-group-describe-group "describe")
-    (gnus-group-unsubscribe-current-group "toggle-subscription")
-    ;; (gnus-group-subscribe "subscribe" t
-    ;;                           :help "Subscribe to the current group")
-    ;; (gnus-group-unsubscribe "unsubscribe" t
-    ;;                             :help "Unsubscribe from the current group")
-    ;;
+  '((gnus-group-post-news "mail/compose")
     ;; Some useful agent icons?  I don't use the agent so agent users should
     ;; suggest useful commands:
-    (gnus-group-send-queue "outbox" t
-                          :visible (and gnus-agent gnus-plugged)
-                          :help "Send articles from the queue group")
-    (gnus-agent-toggle-plugged "connect" nil
+    (gnus-agent-toggle-plugged "connect" t
                               :visible (and gnus-agent (not gnus-plugged)))
-    (gnus-agent-toggle-plugged "disconnect" nil
+    (gnus-agent-toggle-plugged "disconnect" t
                               :visible (and gnus-agent gnus-plugged))
-    ;;
-    (gnus-group-exit "exit-mode")
+    ;; FIXME: gnus-agent-toggle-plugged (in gnus-agent-group-make-menu-bar)
+    ;; should have a better help text.
+    (gnus-group-send-queue "mail/outbox" t
+                          :visible (and gnus-agent gnus-plugged)
+                          :help "Send articles from the queue group")
+    (gnus-group-get-new-news "mail/inbox" nil
+                            :visible (or (not gnus-agent)
+                                         gnus-plugged))
+    ;; FIXME: gnus-*-read-group should have a better help text.
+    (gnus-topic-read-group "open" nil
+                          :visible (and (boundp 'gnus-topic-mode)
+                                        gnus-topic-mode))
+    (gnus-group-read-group "open" nil
+                          :visible (not (and (boundp 'gnus-topic-mode)
+                                             gnus-topic-mode)))
+    ;; (gnus-group-find-new-groups "???" nil)
+    (gnus-group-save-newsrc "save")
+    (gnus-group-describe-group "describe")
+    (gnus-group-unsubscribe-current-group "gnus/toggle-subscription")
+    (gnus-group-prev-unread-group "left-arrow")
+    (gnus-group-next-unread-group "right-arrow")
+    (gnus-group-exit "exit")
+    (gmm-customize-mode "preferences" t :help "Edit mode preferences")
     (gnus-info-find-node "help"))
   "List of functions for the group tool bar (GNOME style).
 
@@