From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 27 May 1998 21:05:02 +0000 (+0000)
Subject: (rmail-msg-is-pruned): Delete junk from definition.
X-Git-Tag: emacs-20.3~814
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=903e09b79c08641ff7c51c5b76e2c218f8eea20a;p=emacs.git

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

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 5b9c0f62651..dde5e975989 100644
--- 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)