[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el, v [EMACS_22_BASE]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el, v [EMACS_22_BASE] |
Date: |
Fri, 02 Nov 2007 01:39:46 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Miles Bader <miles> 07/11/02 01:39:46
Index: message.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/message.el,v
retrieving revision 1.118.2.4
retrieving revision 1.118.2.5
diff -u -b -r1.118.2.4 -r1.118.2.5
--- message.el 31 Jul 2007 05:04:19 -0000 1.118.2.4
+++ message.el 2 Nov 2007 01:39:43 -0000 1.118.2.5
@@ -7164,7 +7164,7 @@
address in `message-alternative-emails', looking at To, Cc and
From headers in the original article."
(require 'mail-utils)
- (let* ((fields '("To" "Cc"))
+ (let* ((fields '("To" "Cc" "From"))
(emails
(split-string
(mail-strip-quoted-names
@@ -7179,7 +7179,8 @@
(unless (or (not email) (equal email user-mail-address))
(message-remove-header "From")
(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)))
- [Emacs-diffs] Changes to emacs/lisp/gnus/message.el, v [EMACS_22_BASE],
Miles Bader <=