lisp/ChangeLog addition:

2002-04-07  Josh Huber  <huber@alum.wpi.edu>

	* message.el (message-make-mft): Changed MFT code from using
	message-recipients (which included Bcc) to use only the To and CC
	headers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12c5c55..959dbda 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-04-07  Josh Huber  <huber@alum.wpi.edu>
+
+       * message.el (message-make-mft): Changed MFT code from using
+       message-recipients (which included Bcc) to use only the To and CC
+       headers.
+
 2002-04-05  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * gnus-art.el (gnus-treat-from-picon): Add to gnus-picon group and

diff --git a/lisp/message.el b/lisp/message.el
index 1dc3f94..a4c2eca 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3940,7 +3940,9 @@ give as trustworthy answer as possible."
 (defun message-make-mft ()
   "Return the Mail-Followup-To header."
   (let* ((case-fold-search t)
-        (msg-recipients (message-options-get 'message-recipients))
+        (to (message-fetch-field "To"))
+        (cc (message-fetch-field "cc"))
+        (msg-recipients (concat to (and to cc ", ") cc))
         (recipients
          (mapcar 'mail-strip-quoted-names
                  (message-tokenize-header msg-recipients)))