diff options
| author | Richard M. Stallman | 1993-03-28 22:56:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-03-28 22:56:29 +0000 |
| commit | 55718e15d6caa9822cdfda70e63f8d4d7099181c (patch) | |
| tree | 34d824bc8fab2d81cbfbc3c7683e9b28771904d7 | |
| parent | bfb0cf0c94584fdf9764b2193f34aa3228239388 (diff) | |
| download | emacs-55718e15d6caa9822cdfda70e63f8d4d7099181c.tar.gz emacs-55718e15d6caa9822cdfda70e63f8d4d7099181c.zip | |
(fill-individual-paragraphs): When skipping mail headers, skip to a blank line.
| -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." | |||
| 292 | (beginning-of-line) | 292 | (beginning-of-line) |
| 293 | (if mailp | 293 | (if mailp |
| 294 | (while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$")) | 294 | (while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$")) |
| 295 | (forward-line 1))) | 295 | (search-forward "\n\n" nil 'move))) |
| 296 | (narrow-to-region (point) max) | 296 | (narrow-to-region (point) max) |
| 297 | ;; Loop over paragraphs. | 297 | ;; Loop over paragraphs. |
| 298 | (while (progn (skip-chars-forward " \t\n") (not (eobp))) | 298 | (while (progn (skip-chars-forward " \t\n") (not (eobp))) |