(rmail-msg-is-pruned): Delete junk from definition.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 5b9c0f6265136bb1079348e835cf42ce6428a646..dde5e975989ce6e9602c4dd1a3e0b2177451bc1e 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1769,13 +1769,10 @@ Otherwise, delete all header fields whose names match `rmail-ignored-headers'."
 (defun rmail-msg-is-pruned ()
   (rmail-maybe-set-message-counters)
   (save-restriction
+    (narrow-to-region (rmail-msgbeg rmail-current-message) (point-max))
     (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)
+      (goto-char (point-min))
+      (forward-line 1)
       (= (following-char) ?1))))
 
 (defun rmail-toggle-header (&optional arg)