Mercurial > emacs

diff lisp/gnus/gnus-agent.el @ 111030:fdb969225593

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
message.el (message-get-reply-headers): If we're fed `to-address', then always use that. 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).
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 18 Oct 2010 23:41:03 +0000
parents 07e31ac3910e
children 11259a64bfc0
line wrap: on
line diff
--- a/lisp/gnus/gnus-agent.el	Mon Oct 18 22:09:28 2010 +0000
+++ b/lisp/gnus/gnus-agent.el	Mon Oct 18 23:41:03 2010 +0000
@@ -513,8 +513,8 @@
     ;; 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))))