diff lisp/mail/rmail.el @ 23530:8fd3e2d95a51

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

--- a/lisp/mail/rmail.el	Wed Oct 21 18:09:39 1998 +0000
+++ b/lisp/mail/rmail.el	Wed Oct 21 18:39:15 1998 +0000
@@ -1225,14 +1225,14 @@
 		      (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)))