[gnus git] branch master updated: m0-5-163-g2559724 =1= message.el (message-get-reply-headers): Make sure the reply goes to the author if it is a wide reply

       via  255972400f9f7d4e57054447fdad1abc6efc0a7b (commit)
      from  3236430315a21e88adc7984e2634bc8b30c13fe3 (commit)


- Log -----------------------------------------------------------------
commit 255972400f9f7d4e57054447fdad1abc6efc0a7b
Author: Katsumi Yamaoka <[email protected]>
Date:   Mon Nov 19 06:24:03 2012 +0000

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c1aaf72..07f5475 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-19  Katsumi Yamaoka  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* gnus-score.el (gnus-score-body):
diff --git a/lisp/message.el b/lisp/message.el
index bd50e43..02c6b70 100644
--- 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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    5 +++++
 lisp/message.el |   13 +++++++++----
 2 files changed, 14 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project