diff options
| author | Richard M. Stallman | 1992-07-19 16:46:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-07-19 16:46:51 +0000 |
| commit | b9c7647e50e3c3fdd618dc4eb2930462c6df480a (patch) | |
| tree | 44edd7448a97d3461687dfbc809dbae9f6412e97 | |
| parent | 83b5d75750a74181e05e8abb053399a86a76292f (diff) | |
| download | emacs-b9c7647e50e3c3fdd618dc4eb2930462c6df480a.tar.gz emacs-b9c7647e50e3c3fdd618dc4eb2930462c6df480a.zip | |
*** empty log message ***
| -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 e54b25c2f84..ccfb7d849f7 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -282,7 +282,7 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines." | |||
| 282 | (goto-char min) | 282 | (goto-char min) |
| 283 | (beginning-of-line) | 283 | (beginning-of-line) |
| 284 | (if mailp | 284 | (if mailp |
| 285 | (while (looking-at "[^ \t\n]*:") | 285 | (while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$")) |
| 286 | (forward-line 1))) | 286 | (forward-line 1))) |
| 287 | (narrow-to-region (point) max) | 287 | (narrow-to-region (point) max) |
| 288 | ;; Loop over paragraphs. | 288 | ;; Loop over paragraphs. |