(fill-individual-paragraphs): Advance 1 line in inner loop.

1 files changed, 6 insertions, 5 deletions

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 406d75ec089..6b80922c847 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -787,17 +787,18 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
                                 (save-excursion (skip-chars-forward " \t")
                                                 (point))))
                              fill-prefix-regexp (regexp-quote fill-prefix)))
-                   (move-to-left-margin 1)
+                   (forward-line 1)
+                   (move-to-left-margin)
                    ;; Now stop the loop if end of paragraph.
                    (and (not (eobp))
                         (if fill-individual-varying-indent
                             ;; If this line is a separator line, with or
                             ;; without prefix, end the paragraph.
                             (and 
-                        (not (looking-at paragraph-separate))
-                        (save-excursion
-                          (not (and (looking-at fill-prefix-regexp)
-                                    (progn (forward-char (length fill-prefix))
+                             (not (looking-at paragraph-separate))
+                             (save-excursion
+                               (not (and (looking-at fill-prefix-regexp)
+                                         (progn (forward-char (length fill-prefix))
                                                 (looking-at paragraph-separate))))))
                           ;; If this line has more or less indent
                           ;; than the fill prefix wants, end the paragraph.