From: Richard Stallman <rms@gnu.org>
Date: Wed, 12 May 2021 02:41:17 +0000 (-0400)
Subject: Handle multi-line FROM.
X-Git-Tag: emacs-28.0.90~2510
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec8aff1608494c22d5925b84f25ec0f2efc800e1;p=emacs.git

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 f53e6e768f8..44cff21b062 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