From 743139f5def88df7d3f7d5e8e0a3c356be315860 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 25 Jun 1997 05:07:36 +0000 Subject: [PATCH] (rmail-get-new-mail): If conversion fails, delete the text that was inserted. --- lisp/mail/rmail.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 4f1d97c5035..3ee44176e0d 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1131,6 +1131,8 @@ It returns t if it got any new messages." (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.5