diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-03-28 22:56:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-03-28 22:56:29 +0000 |
| commit | e8694255418994634910398328ffe9e48a160890 (patch) | |
| tree | b361f243eadfbae0d6686d40654aefbb89b3d9de /lisp/textmodes/fill.el | |
| parent | c708156ece6cf8058902597e2d04706b2719ae43 (diff) | |
| download | emacs-e8694255418994634910398328ffe9e48a160890.tar.gz | |
(fill-individual-paragraphs): When skipping mail headers, skip to a blank line.
Diffstat (limited to 'lisp/textmodes/fill.el')
| -rw-r--r-- | lisp/textmodes/fill.el | 2 |
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))) |