Mercurial > emacs

changeset 23530:8fd3e2d95a51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-get-new-mail): Delete garbage in any case.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Oct 1998 18:39:15 +0000
parents ccedc9675dab
children 37ae25c77df0
files lisp/mail/rmail.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)))