Mercurial > emacs

changeset 22263:150184345dc7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-msg-is-pruned): Delete junk from definition.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 May 1998 21:05:02 +0000
parents ac47a12e523c
children 225596bc6090
files lisp/mail/rmail.el
diffstat 1 files changed, 3 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Wed May 27 20:19:07 1998 +0000
+++ b/lisp/mail/rmail.el	Wed May 27 21:05:02 1998 +0000
@@ -1769,13 +1769,10 @@
 (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)