* 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:
parent
a653652edc
commit
c7d6d8a1ee
2 changed files with 5 additions and 1 deletions
|
@ -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/.
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue