From: shuhei-k <shuhei-k>
Date: Sun, 31 May 1998 17:12:38 +0000 (+0000)
Subject: (message-followup): Would not use "Mail-Followup-To:" properly.
X-Git-Tag: semi-mule-199811302358~97
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=065338b4b7c3a11622c103b5a39912c640f5a7a9;p=elisp%2Fgnus.git-

(message-followup): Would not use "Mail-Followup-To:" properly.
---

diff --git a/lisp/message.el b/lisp/message.el
index 7b6f80d..aeff70e 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3584,8 +3584,6 @@ does not read the newsgroup, so he wouldn't see any replies sent to it."))
 		    (setq message-this-is-news nil)
 		    (cons 'To (or reply-to from "")))
 		(cons 'Newsgroups newsgroups)))
-	     ((and mft message-use-mail-followup-to)
-	      (list (cons 'To mft)))
 	     (t
 	      (if (or (equal followup-to newsgroups)
 		      (not (eq message-use-followup-to 'ask))
@@ -3607,6 +3605,8 @@ Also, some source/announcement newsgroups are not indented for discussion;
 responses here are directed to other newsgroups."))
 		  (cons 'Newsgroups followup-to)
 		(cons 'Newsgroups newsgroups))))))
+          ((and mft message-use-mail-followup-to)
+           (list (cons 'To mft)))
 	  (posted-to
 	   `((Newsgroups . ,posted-to)))
 	  (t