From: yamaoka <yamaoka>
Date: Mon, 19 Feb 2001 03:14:17 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_0-09-quimby~23
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e8312cb82c54515176c7062478ab1aa4a251a284;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e14c8f1..a0740a5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-18 20:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+	From Paul Jarc <prj@po.cwru.edu>.
+
+	* message.el (message-get-reply-headers): More fixes.
+
 2001-02-17  Paul Jarc <prj@po.cwru.edu>
 	Committed by ShengHuo ZHU  <zsh@cs.rochester.edu>
 
diff --git a/lisp/message.el b/lisp/message.el
index 628ae78..7ac94c7 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4720,7 +4720,8 @@ OTHER-HEADERS is an alist of header/value pairs."
 	  mrt (when message-use-mail-reply-to
 		(message-fetch-field "mail-reply-to"))
 	  mft (when (and (not (or to-address mrt reply-to))
-			 message-use-mail-followup-to)
+			 (or message-use-followup-to
+			     message-use-mail-followup-to))
 		(message-fetch-field "mail-followup-to")))
 
     ;; Handle special values of Mail-Copies-To.
@@ -4761,7 +4762,8 @@ sends a copy of your response to " (if (string-match "," mct)
 
     ;; Handle Mail-Followup-To.
     (when (and mft
-	       (eq message-use-mail-followup-to 'ask)
+	       (eq (or message-use-followup-to
+		       message-use-mail-followup-to) 'ask)
 	       (not (message-y-or-n-p
 		     (concat "Obey Mail-Followup-To: " mft "? ") t "\
 You should normally obey the Mail-Followup-To: header.
@@ -4778,15 +4780,14 @@ that further discussion should take place only in "
 			       "that mailing list") ".")))
       (setq mft nil))
 
-    (if (and (or (not message-use-followup-to)
-                 (not mft))
-             (or (not wide)
-                 to-address))
+    (if (and (not mft)
+	     (or (not wide)
+		 to-address))
 	(progn
 	  (setq follow-to (list (cons 'To
 				      (or to-address mrt reply-to mft from))))
-	  (when (and wide (or mft mct)
-		     (not (member (cons 'To (or mft mct)) follow-to)))
+	  (when (and wide mct
+		     (not (member (cons 'To mct) follow-to)))
 	    (push (cons 'Cc mct) follow-to)))
       (let (ccalist)
 	(save-excursion
@@ -4845,7 +4846,6 @@ responses here are directed to other addresses.")))
 	    (push ccs follow-to)))))
     follow-to))
 
-
 ;;;###autoload
 (defun message-reply (&optional to-address wide)
   "Start editing a reply to the article in the current buffer."
@@ -4949,7 +4949,8 @@ If TO-NEWSGROUPS, use that as the new Newsgroups line."
 	    distribution (message-fetch-field "distribution")
 	    mct (when message-use-mail-copies-to
 		  (message-fetch-field "mail-copies-to"))
-	    mft (when message-use-mail-followup-to
+	    mft (when (or message-use-followup-to
+			  message-use-mail-followup-to)
 		  (message-fetch-field "mail-followup-to")))
       (when (and (setq gnus-warning (message-fetch-field "gnus-warning"))
 		 (string-match "<[^>]+>" gnus-warning))
@@ -5036,7 +5037,8 @@ responses here are directed to other newsgroups."))
 	    (setq follow-to (list (cons 'Newsgroups newsgroups)))))))
        ;; Handle Mail-Followup-To, followup via e-mail.
        ((and mft
-	     (or (not (eq message-use-mail-followup-to 'ask))
+	     (or (not (eq (or message-use-followup-to
+			      message-use-mail-followup-to) 'ask))
 		 (message-y-or-n-p
 		  (concat "Obey Mail-Followup-To: " mft "? ") t "\
 You should normally obey the Mail-Followup-To: header.