1996-08-29 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>

	* message.el (message-do-fcc): Supply the FROM-GNUS parameter to
	`rmail-output'.

diff --git a/lisp/message.el b/lisp/message.el
index 30e6d698f7b340fd2022af70a71e9f5b7ff88ea3..ec0453dfb7ddc3397487e0bac978a8f0e3d01738 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1790,7 +1790,7 @@ the user from the mailer."
                   (not (eq message-fcc-handler-function 'rmail-output)))
              (funcall message-fcc-handler-function file)
            (if (and (file-readable-p file) (mail-file-babyl-p file))
-               (rmail-output file 1)
+               (rmail-output file 1 nil t)
              (let ((mail-use-rfc822 t))
                (rmail-output file 1 t t))))))
       (kill-buffer (current-buffer)))))