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

diff --git a/lisp/message.el b/lisp/message.el
index 7b6f80d..aeff70e 100644 (file)
--- 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