(fill-individual-paragraphs): Avoid infinite loop

if mailp is set and no message was yanked.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 6411ba91ea46fc1b861a7694781bdbf33dfea4ee..66c0d94e51f6c7345de07f6e0101839b0241e666 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -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))))