Use the right minor mode name in the mode line spec so that the mode line menu works...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b5deb9f..a0eff9b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2010-10-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-agent.el (gnus-agent-toggle-plugged): Use the right minor mode
+       name in the mode line spec so that the mode line menu works
+       (bug #2431).
+
        * message.el (message-get-reply-headers): If we're fed `to-address',
        then always use that.
 

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 04bdb3b..7fdd5b4 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -513,8 +513,8 @@ manipulated as follows:
     ;; Set up the menu.
     (when (gnus-visual-p 'agent-menu 'menu)
       (funcall (intern (format "gnus-agent-%s-make-menu-bar" buffer))))
-    (unless (assq 'gnus-agent-mode minor-mode-alist)
-      (push gnus-agent-mode-status minor-mode-alist))
+    (unless (assq mode minor-mode-alist)
+      (push (cons mode (cdr gnus-agent-mode-status)) minor-mode-alist))
     (unless (assq mode minor-mode-map-alist)
       (push (cons mode (symbol-value (intern (format "gnus-agent-%s-mode-map"
                                                     buffer))))