# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 895538575 0
# Node ID 8a0f77d864b2431ac6e49c764d36b31cc2f8f5ec
# Parent  29c2db002dd5f1b2365a9774449a5ca59ebd44a1
(rmail-toggle-header): Ensure blank line between headers and body.

diff -r 29c2db002dd5 -r 8a0f77d864b2 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Tue May 19 00:38:20 1998 +0000
+++ b/lisp/mail/rmail.el	Tue May 19 00:42:55 1998 +0000
@@ -1766,6 +1766,9 @@
   (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))))