From 2be0e541138fa0d8eb5b4617691e81a37cfc3227 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 19 May 1998 00:42:55 +0000 Subject: [PATCH] (rmail-toggle-header): Ensure blank line between headers and body. --- lisp/mail/rmail.el | 3 +++ 1 file changed, 3 insertions(+) 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)))) -- 2.39.2