Mercurial > emacs

diff lisp/gnus/message.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 236342431786
children a7fee19797df
line wrap: on
line diff
--- a/lisp/gnus/message.el	Mon Oct 18 22:09:28 2010 +0000
+++ b/lisp/gnus/message.el	Mon Oct 18 23:41:03 2010 +0000
@@ -6568,6 +6568,10 @@
     (save-match-data
       ;; Build (textual) list of new recipient addresses.
       (cond
+       (to-address
+	(setq recipients (concat ", " to-address))
+	;; If the author explicitly asked for a copy, we don't deny it to them.
+	(if mct (setq recipients (concat recipients ", " mct))))
        ((not wide)
 	(setq recipients (concat ", " author)))
        (address-headers
@@ -6603,10 +6607,6 @@
 You may customize the variable `message-use-mail-followup-to', if you
 want to get rid of this query permanently.")))
 	(setq recipients (concat ", " mft)))
-       (to-address
-	(setq recipients (concat ", " to-address))
-	;; If the author explicitly asked for a copy, we don't deny it to them.
-	(if mct (setq recipients (concat recipients ", " mct))))
        (t
 	(setq recipients (if never-mct "" (concat ", " author)))
 	(if to (setq recipients (concat recipients ", " to)))