From: yamaoka <yamaoka>
Date: Tue, 7 Jan 2003 05:33:01 +0000 (+0000)
Subject: * message.el (message-setup-1): Don't call
X-Git-Tag: t-gnus-6_15_12-00-quimby~38
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=042bbdda72e889f699b62370d5c3a1da591ae550;p=elisp%2Fgnus.git-

* 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 1481444..aed8a3e 100644
--- 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>
 
 	* etc/gnus/gnus.xpm (oort): Make the color replaceable.
diff --git a/lisp/message.el b/lisp/message.el
index 01d457c..d218409 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5718,7 +5718,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)