(rmail-get-new-mail): Delete garbage in any case.

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