(rmail-toggle-header): Ensure blank line between headers and body.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index a6665435a95a80b1fd00cad44ec7ee05c4481218..e883ad2e6a9accadfbc91340efb4cdf4988d48e4 100644 (file)
--- 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))))