* message.el (message-setup-1): Don't call

 `message-use-alternative-email-as-from' if it isn't for replying.

diff --git a/ChangeLog b/ChangeLog
index 92d0d18..2dacf4c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-07  Keiichi Suzuki  <keiichi@nanap.org>
+
+       * lisp/message.el (message-setup-1): Don't call
+       `message-use-alternative-email-as-from' if it isn't for replying.
+
 2003-01-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus-vers.el: T-gnus 6.15.10 revision 00.

diff --git a/lisp/message.el b/lisp/message.el
index 025dc5f..df34c33 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5704,7 +5704,8 @@ are not included."
   (message-insert-signature)
   (save-restriction
     (message-narrow-to-headers)
-    (if message-alternative-emails
+    (if (and replybuffer
+            message-alternative-emails)
        (message-use-alternative-email-as-from))
     (run-hooks 'message-header-setup-hook))
   (set-buffer-modified-p nil)