# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 908995155 0
# Node ID 8fd3e2d95a519365a79ece0e75c5503af09a24fa
# Parent  ccedc9675dab9d9064328a29de0187db9b115951
(rmail-get-new-mail): Delete garbage in any case.

diff -r ccedc9675dab -r 8fd3e2d95a51 lisp/mail/rmail.el
--- 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)))