diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-19 00:42:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-19 00:42:55 +0000 |
| commit | ad9af6f4f266c5a0dddd9a9dc637c8660b685a08 (patch) | |
| tree | 08b30b4ee59ea79a9f4f092d34bbcfefca603100 | |
| parent | 90cf25e38370334c1a0879fca838991134c02202 (diff) | |
| download | emacs-ad9af6f4f266c5a0dddd9a9dc637c8660b685a08.tar.gz | |
(rmail-toggle-header): Ensure blank line between headers and body.
| -rw-r--r-- | lisp/mail/rmail.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index a6665435a95..e883ad2e6a9 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1766,6 +1766,9 @@ Otherwise, delete all header fields whose names match `rmail-ignored-headers'." (save-restriction (save-excursion (narrow-to-region (rmail-msgbeg rmail-current-message) (point-max)) + (if (not (or (= ?\n (char-after (point))) + (= ?\n (char-before (1- (point)))))) + (insert "\n")) (goto-char (point-min)) (forward-line 1) (= (following-char) ?1)))) |