diff options
| -rw-r--r-- | lisp/textmodes/fill.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 6411ba91ea4..66c0d94e51f 100644 --- 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." | |||
| 358 | (save-excursion | 358 | (save-excursion |
| 359 | (goto-char min) | 359 | (goto-char min) |
| 360 | (beginning-of-line) | 360 | (beginning-of-line) |
| 361 | (narrow-to-region (point) max) | ||
| 361 | (if mailp | 362 | (if mailp |
| 362 | (while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$")) | 363 | (while (and (not (eobp)) |
| 364 | (or (looking-at "[ \t]*[^ \t\n]*:") | ||
| 365 | (looking-at "[ \t]*$"))) | ||
| 363 | (if (looking-at "[ \t]*[^ \t\n]*:") | 366 | (if (looking-at "[ \t]*[^ \t\n]*:") |
| 364 | (search-forward "\n\n" nil 'move) | 367 | (search-forward "\n\n" nil 'move) |
| 365 | (forward-line 1)))) | 368 | (forward-line 1)))) |