From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 25 Jun 1997 05:07:36 +0000 (+0000)
Subject: (rmail-get-new-mail): If conversion fails, delete the text that was inserted.
X-Git-Tag: emacs-20.1~1504
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=743139f5def88df7d3f7d5e8e0a3c356be315860;p=emacs.git

(rmail-get-new-mail): If conversion fails, delete the text that was inserted.
---

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)))