From: Glenn Morris <rgm@gnu.org>
Date: Sat, 9 Oct 2010 00:41:03 +0000 (-0700)
Subject: * lisp/mail/mail-utils.el (mail-mbox-from): Also try return-path.
X-Git-Tag: emacs-pretest-23.2.90~75
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7d6d8a1ee9eaadb7d3ad40862fe602e95c4d839;p=emacs.git

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

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