patch: improved message-use-alternative-email-as-from

[ari@mbf.ocn.ne.jp (ARISAWA Akihiro)]

[-- Attachment #1: Type: text/plain, Size: 309 bytes --]

Hi,

Here is a tiny patch improved message-use-alternative-email-as-from.

(1) Check "From" field in addition to "To" and "Cc".
    (It may be better the fields are customizable.)
(2) When alternative address was found, use `message-make-from' in order to
    supply user-full-name.

Regards,
ARISAWA Akihiro

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: message.el.patch --]
[-- Type: text/x-patch, Size: 1018 bytes --]

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)))