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

(fill-individual-paragraphs): Avoid infinite loop

if mailp is set and no message was yanked.
parent ed0cae05
......@@ -358,8 +358,11 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
(save-excursion
(goto-char min)
(beginning-of-line)
(narrow-to-region (point) max)
(if mailp
(while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$"))
(while (and (not (eobp))
(or (looking-at "[ \t]*[^ \t\n]*:")
(looking-at "[ \t]*$")))
(if (looking-at "[ \t]*[^ \t\n]*:")
(search-forward "\n\n" nil 'move)
(forward-line 1))))
......
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