* lisp/mail/mail-utils.el (mail-mbox-from): Also try return-path.

(Per 8-year old observation:
http://lists.gnu.org/archive/html/bug-gnu-emacs/2002-06/msg00176.html )
This commit is contained in:
Glenn Morris 2010-10-08 17:41:03 -07:00
parent a653652edc
commit c7d6d8a1ee
2 changed files with 5 additions and 1 deletions

View file

@ -1,3 +1,7 @@
2010-10-09 Glenn Morris <rgm@gnu.org>
* mail/mail-utils.el (mail-mbox-from): Also try return-path.
2010-10-08 Glenn Morris <rgm@gnu.org>
* emacs-lisp/cl-compat.el, emacs-lisp/lmenu.el: Move to obsolete/.

View file

@ -401,6 +401,7 @@ The buffer should be narrowed to just the header."
(let ((from (or (mail-fetch-field "from")
(mail-fetch-field "really-from")
(mail-fetch-field "sender")
(mail-fetch-field "return-path")
"unknown"))
(date (mail-fetch-field "date")))
(format "From %s %s\n" (mail-strip-quoted-names from)
@ -411,5 +412,4 @@ The buffer should be narrowed to just the header."
(provide 'mail-utils)
;; arch-tag: b24aec2f-fd65-4ceb-9e39-3cc2827036fd
;;; mail-utils.el ends here