diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-12 23:35:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-12 23:35:39 +0000 |
| commit | 30b786c3406d857beb1f4a23d243681b25504923 (patch) | |
| tree | 607b42db6100953d4111a6853bdde105ba75f8f1 | |
| parent | d52f0de91eba27581cccf8521546e0368494a0ce (diff) | |
| download | emacs-30b786c3406d857beb1f4a23d243681b25504923.tar.gz | |
(fill-individual-paragraphs): Fix skipping headers of yanked message.
| -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))) |