diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-10-18 23:41:03 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-18 23:41:03 +0000 |
| commit | 2755ee7829a3966cc73dccccd2c97e7d53f9050f (patch) | |
| tree | d5c6e4f32918338fe5993f0874e569eabb7f0e8f /lisp/gnus/message.el | |
| parent | 7cad71ad21f4ee07ff4652c9e39ebf4510e0216b (diff) | |
| download | emacs-2755ee7829a3966cc73dccccd2c97e7d53f9050f.tar.gz | |
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).
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index c9ddba42896..ce72984c886 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -6568,6 +6568,10 @@ The function is called with one parameter, a cons cell ..." (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 @@ responses here are directed to other addresses. 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))) |