2004-11-11  ARISAWA Akihiro  <ari@mbf.ocn.ne.jp>

	* message.el (message-use-alternative-email-as-from): Check From field.
	Use `message-make-from'.

Index: lisp/message.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v
retrieving revision 7.57
diff -u -r7.57 message.el
--- lisp/message.el	2 Nov 2004 02:54:23 -0000	7.57
+++ lisp/message.el	8 Nov 2004 13:50:29 -0000
@@ -6856,7 +6856,7 @@
 
 (defun message-use-alternative-email-as-from ()
   (require 'mail-utils)
-  (let* ((fields '("To" "Cc"))
+  (let* ((fields '("To" "Cc" "From"))
 	 (emails
 	  (split-string
 	   (mail-strip-quoted-names
@@ -6870,7 +6870,8 @@
       (pop emails))
     (unless (or (not email) (equal email user-mail-address))
       (goto-char (point-max))
-      (insert "From: " email "\n"))))
+      (insert "From: " (let ((user-mail-address email)) (message-make-from))
+	      "\n"))))
 
 (defun message-options-get (symbol)
   (cdr (assq symbol message-options)))