changeset 74791:6b69e86dc4cc

Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 177-178) - Merge from emacs--devo--0 - Update from CVS 2006-12-20 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/gnus-group.el (gnus-group-tool-bar-gnome): Exchange connect and disconnect icons. Add help text. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-569
author Miles Bader <miles@gnu.org>
date Fri, 22 Dec 2006 08:14:45 +0000
parents 5e43de1ffaac
children 8486ab1d2401
files lisp/gnus/ChangeLog lisp/gnus/gnus-group.el
diffstat 2 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Thu Dec 21 21:49:21 2006 +0000
+++ b/lisp/gnus/ChangeLog	Fri Dec 22 08:14:45 2006 +0000
@@ -1,3 +1,8 @@
+2006-12-20  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* gnus-group.el (gnus-group-tool-bar-gnome): Exchange connect and
+	disconnect icons.  Add help text.
+
 2006-12-13  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* legacy-gnus-agent.el: Add Copyright notice.
--- a/lisp/gnus/gnus-group.el	Thu Dec 21 21:49:21 2006 +0000
+++ b/lisp/gnus/gnus-group.el	Fri Dec 22 08:14:45 2006 +0000
@@ -1018,9 +1018,11 @@
   '((gnus-group-post-news "mail/compose")
     ;; Some useful agent icons?  I don't use the agent so agent users should
     ;; suggest useful commands:
-    (gnus-agent-toggle-plugged "connect" t
+    (gnus-agent-toggle-plugged "disconnect" t
+			       :help "Gnus is currently unplugged.  Click to work online."
      			       :visible (and gnus-agent (not gnus-plugged)))
-    (gnus-agent-toggle-plugged "disconnect" t
+    (gnus-agent-toggle-plugged "connect" t
+			       :help "Gnus is currently plugged.  Click to work offline."
      			       :visible (and gnus-agent gnus-plugged))
     ;; FIXME: gnus-agent-toggle-plugged (in gnus-agent-group-make-menu-bar)
     ;; should have a better help text.