Skip to content

GitLab

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
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 1 deletion
lisp/textmodes/fill.el
View file @ a461b8e0
...@@ -358,8 +358,11 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines." ...@@ -358,8 +358,11 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
(save-excursion (save-excursion
(goto-char min) (goto-char min)
(beginning-of-line) (beginning-of-line)
(narrow-to-region (point) max)
(if mailp (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]*:") (if (looking-at "[ \t]*[^ \t\n]*:")
(search-forward "\n\n" nil 'move) (search-forward "\n\n" nil 'move)
(forward-line 1)))) (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