mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-get-new-mail): If conversion to BABYL fails

Browse source 
for the default inboxes, rename them so they won't be tried again.
This commit is contained in:
Richard M. Stallman 1996-06-07 14:57:45 +00:00
parent 6702f50da6
commit 8e8abef096
1 changed files with 18 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/mail/rmail.el
View file

@ -899,7 +899,8 @@ It returns t if it got any new messages."
(make-backup-files (and make-backup-files (buffer-modified-p)))
(buffer-read-only nil)
;; Don't make undo records for what we do in getting mail.
(buffer-undo-list t))
(buffer-undo-list t)
success)
(goto-char (point-max))
(skip-chars-backward " \t\n") ; just in case of brain damage
(delete-region (point) (point-max)) ; caused by require-final-newline
@ -914,8 +915,22 @@ It returns t if it got any new messages."
(setq delete-files (rmail-insert-inbox-text rmail-inbox-list t)))
;; Scan the new text and convert each message to babyl format.
(goto-char (point-min))
(save-excursion
(setq new-messages (rmail-convert-to-babyl-format)))
(unwind-protect
(save-excursion
(setq new-messages (rmail-convert-to-babyl-format)
success t))
;; 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 ((files delete-files)
(count 0))
(while files
(while (file-exists-p (format "RMAILOSE.%d" count))
(setq count (1+ count)))
(rename-file (car files)
(format "RMAILOSE.%d" count))
(setq files (cdr files))))))
(or (zerop new-messages)
(let (success)
(widen)