2001-02-17 Paul Jarc <prj@po.cwru.edu>

	Committed by ShengHuo ZHU  <zsh@cs.rochester.edu>

	* message.el (message-get-reply-headers): Fix bug with
	Mail-Followup-To/to-address interaction.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54b70d8..c1ac61c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-02-17  Paul Jarc <prj@po.cwru.edu>
+       Committed by ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-get-reply-headers): Fix bug with
+       Mail-Followup-To/to-address interaction.
+
 2001-02-17 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-msg.el (gnus-configure-posting-styles): Match header in

diff --git a/lisp/message.el b/lisp/message.el
index 2871e85..70d93e9 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3933,8 +3933,10 @@ OTHER-HEADERS is an alist of header/value pairs."
                 (equal (downcase mct) "poster"))
             (setq mct (or mrt reply-to from)))))
 
-    (if (or (not wide)
-           to-address)
+    (if (and (or (not message-use-followup-to)
+                 (not mft))
+             (or (not wide)
+                 to-address))
        (progn
          (setq follow-to (list (cons 'To (or to-address mrt reply-to from))))
          (when (and (and wide (or mft mct))