[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100095: * lisp/mail/mail-utils.el (mail-mbox-from): Also try return-path.

[Glenn Morris]

------------------------------------------------------------
revno: 100095
committer: Glenn Morris <address@hidden>
branch nick: emacs-23
timestamp: Fri 2010-10-08 17:41:03 -0700
message:
  * 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 )
modified:
  lisp/ChangeLog
  lisp/mail/mail-utils.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-08 03:08:32 +0000
+++ b/lisp/ChangeLog    2010-10-09 00:41:03 +0000
@@ -1,3 +1,7 @@
+2010-10-09  Glenn Morris  <address@hidden>
+
+       * mail/mail-utils.el (mail-mbox-from): Also try return-path.
+
 2010-10-08  Glenn Morris  <address@hidden>
 
        * emacs-lisp/cl-compat.el, emacs-lisp/lmenu.el: Move to obsolete/.

=== modified file 'lisp/mail/mail-utils.el'
--- a/lisp/mail/mail-utils.el   2010-02-04 05:05:37 +0000
+++ b/lisp/mail/mail-utils.el   2010-10-09 00:41:03 +0000
@@ -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