From aa85c56dbf98f77a0006b28068fadaf44f872e72 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 7 Jan 2003 05:32:36 +0000 Subject: [PATCH] * message.el (message-setup-1): Don't call `message-use-alternative-email-as-from' if it isn't for replying. --- ChangeLog | 5 +++++ lisp/message.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 92d0d18..2dacf4c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-01-07 Keiichi Suzuki + + * 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 * 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 --- 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) -- 1.7.10.4