Commit 30b786c3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(fill-individual-paragraphs): Fix skipping headers of yanked message.

parent d52f0de9
......@@ -327,7 +327,9 @@ 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]*$"))
(search-forward "\n\n" nil 'move)))
(if (looking-at "[ \t]*[^ \t\n]*:")
(search-forward "\n\n" nil 'move)
(forward-line 1))))
(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