Handle multi-line FROM.

* lisp/mail/rmailsum.el (rmail-header-summary): Handle multi-line FROM.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index f53e6e768f8199af7ae8619d58f9d0ac0afa9bb6..44cff21b062882168d86e2c6af57eaded206c589 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -755,7 +755,11 @@ the message being processed."
                                   (forward-char -1)
                                   (skip-chars-backward " \t")
                                   (point))))))
-                   len mch lo)
+                   len mch lo newline)
+               ;; If there are multiple lines in FROM,
+               ;; discard up to the last newline in it.
+               (while (setq newline (string-match "\n" from))
+                 (setq from (substring from (1+ newline))))
               (if (or (null from)
                       (string-match
                        (or rmail-user-mail-address-regexp