From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 9 May 1994 22:18:59 +0000 (+0000)
Subject: (rmail-make-basic-summary-line): Get all the lines of the From field.
X-Git-Tag: emacs-19.34~8432
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f5d303b2006da209fa295e2f90ea5105e3e2f34;p=emacs.git

(rmail-make-basic-summary-line): Get all the lines of the From field.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 34ee023c9c7..a3f9b4e2e81 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -308,10 +308,17 @@ nil for FUNCTION means all messages."
 	      (let* ((from (mail-strip-quoted-names
 			    (buffer-substring
 			     (1- (point))
-			     (progn (end-of-line)
-				    (skip-chars-backward " \t")
-				    (point)))))
-		     len mch lo)
+			     ;; Get all the lines of the From field
+			     ;; so that we get a whole comment if there is one,
+			     ;; so that mail-strip-quoted-names can discard it.
+			     (let ((opoint (point)))
+			       (while (progn (forward-line 1)
+					     (looking-at "[ \t]")))
+			       ;; Back up over newline, then trailing spaces or tabs
+			       (forward-char -1)
+			       (skip-chars-backward " \t")
+			       (point)))))
+                     len mch lo)
 		(if (string-match (concat "^"
 					  (regexp-quote (user-login-name))
 					  "\\($\\|@\\)")