diff options
| author | Miles Bader <miles@gnu.org> | 2007-11-02 01:39:46 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-11-02 01:39:46 +0000 |
| commit | c590ed3a9753d91d228905a55db0eef19c79da47 (patch) | |
| tree | 80aad6db4f276039685eb8200a650b09b0fb61f2 /lisp/gnus/message.el | |
| parent | 658674b070b70db1e8e6b7582d33f9a152e414aa (diff) | |
| download | emacs-c590ed3a9753d91d228905a55db0eef19c79da47.tar.gz | |
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 266-268)
- Merge from emacs--rel--22
- Update from CVS
2007-11-01 Reiner Steib <Reiner.Steib@gmx.de>
* lisp/gnus/mm-util.el (mm-charset-eval-alist): Mark as risky local variable.
* lisp/gnus/gnus.el (gnus-group-charter-alist): Mark as risky local variable.
* lisp/gnus/gnus-art.el (gnus-button-alist, gnus-header-button-alist): Mark as
risky local variable.
* lisp/gnus/gnus-group.el (gnus-group-icon-list): Mark as risky local variable.
2007-11-01 ARISAWA Akihiro <ari@mbf.ocn.ne.jp> (tiny change)
* lisp/gnus/message.el (message-use-alternative-email-as-from): Examine the
From header as well; use message-make-from in order to include a
user's full name. [ Backported bug fix from No Gnus. ]
2007-10-30 Reiner Steib <Reiner.Steib@gmx.de>
* lisp/gnus/qp.el (quoted-printable-decode-string): Fix typo in doc string.
2007-10-30 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-ems.el (gnus-x-splash): Work even if there's no scroll bar.
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-143
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 419fd07727c..8b282dacc96 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -7164,7 +7164,7 @@ regexp VARSTR." 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 @@ From headers in the original article." (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))) |