1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index a905bef78d1..8486e81c2e2 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -292,7 +292,7 @@ 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]*$"))
-            (forward-line 1)))
+            (search-forward "\n\n" nil 'move)))
       (narrow-to-region (point) max)
       ;; Loop over paragraphs.
       (while (progn (skip-chars-forward " \t\n") (not (eobp)))