If we're fed `to-address', then always use that.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c2523cb..b5deb9f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-10-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

+       * message.el (message-get-reply-headers): If we're fed `to-address',
+       then always use that.
+

        * gnus-art.el (gnus-article-make-menu-bar): The article/group menus
        aren't so wide as to need to switch off the edit menu.
 
        * gnus-art.el (gnus-article-make-menu-bar): The article/group menus
        aren't so wide as to need to switch off the edit menu.
 

diff --git a/lisp/message.el b/lisp/message.el
index c6246fc..1627dfe 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6612,6 +6612,10 @@ The function is called with one parameter, a cons cell ..."
     (save-match-data
       ;; Build (textual) list of new recipient addresses.
       (cond
     (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
        ((not wide)
        (setq recipients (concat ", " author)))
        (address-headers


@@ -6647,10 +6651,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)))
 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)))
        (t
        (setq recipients (if never-mct "" (concat ", " author)))
        (if to (setq recipients (concat recipients ", " to)))