From c317dd9330c940010447bce6cb7696aca377bf83 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Oct 1998 18:39:15 +0000 Subject: [PATCH] (rmail-get-new-mail): Delete garbage in any case. --- lisp/mail/rmail.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 6e717c586c6..6e4dac78ce9 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1225,14 +1225,14 @@ It returns t if it got any new messages." (save-excursion (setq new-messages (rmail-convert-to-babyl-format) success t)) + ;; Try to delete the garbage just inserted. + (or success (delete-region (point-min) (point-max))) ;; If we could not convert the file's inboxes, ;; rename the files we tried to read ;; so we won't over and over again. (if (and (not file-name) (not success)) (let ((delfiles delete-files) (count 0)) - ;; Try to delete the garbage just inserted. - (delete-region (point-min) (point-max)) (while delfiles (while (file-exists-p (format "RMAILOSE.%d" count)) (setq count (1+ count))) -- 2.39.2