procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Katsumi Yamaoka 2012-11-19 06:24:14 +00:00
parent e8909bdc32
commit 70678cd508
2 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -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):

13
lisp/gnus/message.el
View file

@ -6730,11 +6730,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