Commit 55718e15 authored by Richard M. Stallman's avatar Richard M. Stallman

(fill-individual-paragraphs): When skipping mail headers, skip to a blank line.

parent bfb0cf0c
......@@ -292,7 +292,7 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
(beginning-of-line)
(if mailp
(while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$"))
(forward-line 1)))
(search-forward "\n\n" nil 'move)))
(narrow-to-region (point) max)
;; Loop over paragraphs.
(while (progn (skip-chars-forward " \t\n") (not (eobp)))
......
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