From c7d6d8a1ee9eaadb7d3ad40862fe602e95c4d839 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 8 Oct 2010 17:41:03 -0700 Subject: [PATCH] * 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 ) --- lisp/ChangeLog | 4 ++++ lisp/mail/mail-utils.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 95a8287f005..0b10e2f3cc5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-10-09 Glenn Morris + + * mail/mail-utils.el (mail-mbox-from): Also try return-path. + 2010-10-08 Glenn Morris * emacs-lisp/cl-compat.el, emacs-lisp/lmenu.el: Move to obsolete/. diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 1c527f22113..a8def04100e 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -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 -- 2.39.2