--- message.el	2002/12/29 18:33:35	6.266
+++ message.el	2002/12/30 15:15:00
@@ -3337,6 +3352,8 @@
     (save-restriction
       (message-narrow-to-headers)
       ;; Generate the Mail-Followup-To header if the header is not there...
+      ;; (Please also change code in `mml-preview-insert-mft',
+      ;; if you change anything here.)
       (if (and (or message-subscribed-regexps
 		   message-subscribed-addresses
 		   message-subscribed-address-file

--- mml.el	2002/12/29 16:03:07	6.65
+++ mml.el	2002/12/30 16:23:12
@@ -1007,6 +1007,19 @@
   (mml-insert-tag 'part 'type type 'disposition "inline")
   (forward-line -1))
 
+(defun mml-preview-insert-mft ()
+  "Insert a Mail-Followup-To header before previewing an article.
+Should be adopted if code in `message-send-mail' is changed."
+  (when (and (message-mail-p)
+	     (or message-subscribed-regexps
+		 message-subscribed-addresses
+		 message-subscribed-address-file
+		 message-subscribed-address-functions)
+	     (not (mail-fetch-field "mail-followup-to"))
+	     (message-make-mft))
+    (message-position-on-field "Mail-Followup-To" "X-Draft-From")
+    (insert (message-make-mft))))
+
 (defun mml-preview (&optional raw)
   "Display current buffer with Gnus, in a new buffer.
 If RAW, don't highlight the article."
@@ -1027,7 +1040,8 @@
 				   "*MIME preview of ") (buffer-name))))
       (erase-buffer)
       (insert-buffer buf)
+      (mml-preview-insert-mft)
       (let ((message-deletable-headers (if (message-news-p)
 					   nil
 					 message-deletable-headers)))