procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1998-10-21 18:39:15 +00:00
parent 3d0ee5e6c9
commit c317dd9330
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/rmail.el
View file

@ -1225,14 +1225,14 @@ It returns t if it got any new messages."
(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)))