Mercurial > emacs

changeset 7421:6f9af07c5783

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-make-basic-summary-line): Get all the lines of the From field.
author Richard M. Stallman <rms@gnu.org>
date Mon, 09 May 1994 22:18:59 +0000
parents 6207bb464d7b
children 49876b60d0c6
files lisp/mail/rmailsum.el
diffstat 1 files changed, 11 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))
 					  "\\($\\|@\\)")