Mercurial > emacs
changeset 4992:8a3293abe1ba
(fill-individual-paragraphs): Fix skipping headers of yanked message.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 12 Nov 1993 23:35:39 +0000 |
| parents | 9da6c6c24ddd |
| children | a4e67bc41cfa |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Fri Nov 12 22:31:12 1993 +0000 +++ b/lisp/textmodes/fill.el Fri Nov 12 23:35:39 1993 +0000 @@ -327,7 +327,9 @@ (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)))