From 8665e75e115bb602a971ad836dc86bc5c33e8616 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 21 Dec 2004 09:16:36 +0000 Subject: [PATCH] (message-extra-wide-headers): New variable. (message-get-reply-headers): Use it. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 16 ++++++++++++++-- 2 files changed, 19 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 536318915..fb88b60a0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-12-21 Lars Magne Ingebrigtsen + + * message.el (message-extra-wide-headers): New variable. + (message-get-reply-headers): Use it. + 2004-12-20 Katsumi Yamaoka * gnus-agent.el (gnus-agent-group-path): Decode group name. diff --git a/lisp/message.el b/lisp/message.el index 067828228..fe929b522 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -648,6 +648,12 @@ and respond with new To and Cc headers." :link '(custom-manual "(message)Followup") :type '(choice function (const nil))) +(defcustom message-extra-wide-headers nil + "If non-nil, a list of additional address headers. +These are used when composing a wide reply." + :group 'message-sending + :type '(repeat string)) + (defcustom message-use-followup-to 'ask "*Specifies what to do with Followup-To header. If nil, always ignore the header. If it is t, use its value, but @@ -5690,6 +5696,11 @@ OTHER-HEADERS is an alist of header/value pairs." return t) (message-fetch-field "original-to"))) cc (message-fetch-field "cc") + extra (when message-extra-wide-headers + (mapconcat 'identity + (mapcar 'message-fetch-field + message-extra-wide-headers) + ", ")) mct (message-fetch-field "mail-copies-to") author (or (message-fetch-field "mail-reply-to") (message-fetch-field "reply-to") @@ -5749,8 +5760,9 @@ responses here are directed to other addresses."))) (if mct (setq recipients (concat recipients ", " mct)))) (t (setq recipients (if never-mct "" (concat ", " author))) - (if to (setq recipients (concat recipients ", " to))) - (if cc (setq recipients (concat recipients ", " cc))) + (if to (setq recipients (concat recipients ", " to))) + (if cc (setq recipients (concat recipients ", " cc))) + (if extra (setq recipients (concat recipients ", " extra))) (if mct (setq recipients (concat recipients ", " mct))))) (if (>= (length recipients) 2) ;; Strip the leading ", ". -- 2.34.1