diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/fill.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index b5017b22a9d..bbe44f3d6fe 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -327,7 +327,9 @@ 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]*$")) - (search-forward "\n\n" nil 'move))) + (if (looking-at "[ \t]*[^ \t\n]*:") + (search-forward "\n\n" nil 'move) + (forward-line 1)))) (narrow-to-region (point) max) ;; Loop over paragraphs. (while (progn (skip-chars-forward " \t\n") (not (eobp))) |