* 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 )

2 files changed, 5 insertions, 1 deletions

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  <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/.
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