From 4f5d303b2006da209fa295e2f90ea5105e3e2f34 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 9 May 1994 22:18:59 +0000 Subject: [PATCH] (rmail-make-basic-summary-line): Get all the lines of the From field. --- lisp/mail/rmailsum.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) 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)) "\\($\\|@\\)") -- 2.39.5