Mercurial > emacs
changeset 110923:9246a8f688c5
* 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 )
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 08 Oct 2010 17:41:03 -0700 |
| parents | 3d97b0ab637b |
| children | a134abd52088 |
| files | lisp/ChangeLog lisp/mail/mail-utils.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Oct 08 17:37:11 2010 -0700 +++ b/lisp/ChangeLog Fri Oct 08 17:41:03 2010 -0700 @@ -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/.
--- a/lisp/mail/mail-utils.el Fri Oct 08 17:37:11 2010 -0700 +++ b/lisp/mail/mail-utils.el Fri Oct 08 17:41:03 2010 -0700 @@ -401,6 +401,7 @@ (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 @@ (provide 'mail-utils) -;; arch-tag: b24aec2f-fd65-4ceb-9e39-3cc2827036fd ;;; mail-utils.el ends here