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." ...@@ -308,7 +308,14 @@ nil for FUNCTION means all messages."
(let* ((from (mail-strip-quoted-names (let* ((from (mail-strip-quoted-names
(buffer-substring (buffer-substring
(1- (point)) (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") (skip-chars-backward " \t")
(point))))) (point)))))
len mch lo) 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