# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768521939 0
# Node ID 6f9af07c5783487a9b326780cd2a45fd845d0a04
# Parent  6207bb464d7be9cabb36304af1aec37deebf86db
(rmail-make-basic-summary-line): Get all the lines of the From field.

diff -r 6207bb464d7b -r 6f9af07c5783 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Mon May 09 20:46:58 1994 +0000
+++ b/lisp/mail/rmailsum.el	Mon May 09 22:18:59 1994 +0000
@@ -308,10 +308,17 @@
 	      (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))
 					  "\\($\\|@\\)")