master ec8aff1 3/6: Handle multi-line FROM.

[Richard M. Stallman]

branch: master
commit ec8aff1608494c22d5925b84f25ec0f2efc800e1
Author: Richard Stallman <rms@gnu.org>
Commit: Richard Stallman <rms@gnu.org>

    Handle multi-line FROM.
    
    * lisp/mail/rmailsum.el (rmail-header-summary): Handle multi-line FROM.
---
 lisp/mail/rmailsum.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index f53e6e7..44cff21 100644
--- 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