[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail unrmail.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/mail unrmail.el |
Date: |
Wed, 18 Feb 2009 04:34:43 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/02/18 04:34:43
Modified files:
lisp/mail : unrmail.el
Log message:
(unrmail): Use mail-mbox-from.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/unrmail.el?cvsroot=emacs&r1=1.36&r2=1.37
Patches:
Index: unrmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/unrmail.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- unrmail.el 13 Feb 2009 03:44:10 -0000 1.36
+++ unrmail.el 18 Feb 2009 04:34:43 -0000 1.37
@@ -43,7 +43,7 @@
(message "Done")
(kill-emacs (if error 1 0))))
-(declare-function mail-strip-quoted-names "mail-utils" (address))
+(declare-function mail-mbox-from "mail-utils" ())
(defvar rmime-magic-string) ; in rmime.el, if you have it
;;;###autoload
@@ -191,22 +191,8 @@
(save-excursion (search-forward "\n\n" nil 'move) (point)))
;; Fetch or construct what we should use in the `From ' line.
- (setq mail-from
- (or (mail-fetch-field "Mail-From")
- (concat "From "
- (mail-strip-quoted-names
- (or (mail-fetch-field "from")
- (mail-fetch-field "really-from")
- (mail-fetch-field "sender")
- "unknown"))
- " "
- (let ((date (mail-fetch-field "date")))
- (or
- (and date
- (ignore-errors
- (current-time-string
- (date-to-time date))))
- (current-time-string))))))
+ (setq mail-from (or (mail-fetch-field "Mail-From")
+ (mail-mbox-from)))
;; If the message specifies a coding system, use it.
(let ((maybe-coding (mail-fetch-field "X-Coding-System")))