Commit 4f5d303b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 080ac1ac
......@@ -308,7 +308,14 @@ nil for FUNCTION means all messages."
(let* ((from (mail-strip-quoted-names
(buffer-substring
(1- (point))
(progn (end-of-line)
;; 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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment