message.el (message-get-reply-headers): Make sure the reply goes to the author if...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c1aaf72..07f5475 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * message.el (message-get-reply-headers):
+       Make sure the reply goes to the author if it is a wide reply.
+
 2012-11-16  Jan Tatarik  <jan.tatarik@gmail.com>
 
        * gnus-score.el (gnus-score-body):

diff --git a/lisp/message.el b/lisp/message.el
index bd50e43..02c6b70 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6774,11 +6774,16 @@ The function is called with one parameter, a cons cell ..."
                               ", "))
            mct (message-fetch-field "mail-copies-to")
            author (or (message-fetch-field "mail-reply-to")
-                      (message-fetch-field "reply-to")
-                      (message-fetch-field "from")
-                      "")
+                      (message-fetch-field "reply-to"))
            mft (and message-use-mail-followup-to
-                    (message-fetch-field "mail-followup-to"))))
+                    (message-fetch-field "mail-followup-to")))
+      ;; Make sure this message goes to the author if this is a wide
+      ;; reply, sine Reply-To address may be a list address a mailing
+      ;; list server added.
+      (when (and wide author)
+       (setq cc (concat author ", " cc)))
+      (when (or wide (not author))
+       (setq author (or (message-fetch-field "from") ""))))
 
     ;; Handle special values of Mail-Copies-To.
     (when mct