]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/mail/mail-utils.el (mail-mbox-from): Also try return-path.
authorGlenn Morris <rgm@gnu.org>
Sat, 9 Oct 2010 00:41:03 +0000 (17:41 -0700)
committerGlenn Morris <rgm@gnu.org>
Sat, 9 Oct 2010 00:41:03 +0000 (17:41 -0700)
(Per 8-year old observation:
http://lists.gnu.org/archive/html/bug-gnu-emacs/2002-06/msg00176.html )

lisp/ChangeLog
lisp/mail/mail-utils.el

index 95a8287f005963323f3e9e0ed76978d3d220aaa7..0b10e2f3cc5fa7a3221263e8012b3fe11d735187 100644 (file)
@@ -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/.
index 1c527f22113afbb683ed75bbee66877a1ad28198..a8def04100e432c41e930c6a68543b675638af58 100644 (file)
@@ -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