Commit e36d00d4 authored by Richard M. Stallman's avatar Richard M. Stallman

(desktop-buffer-rmail): Handle the situation

where the RMAIL file is locked, mail is waiting, and the
user selects `quit' gracefully.
parent 4826e97f
......@@ -447,7 +447,11 @@ autoloaded files."
;; ----------------------------------------------------------------------------
(defun desktop-buffer-rmail () "Load an RMAIL file."
(if (eq 'rmail-mode mam)
(progn (rmail-input fn) t)))
(condition-case error
(progn (rmail-input fn) t)
(file-locked
(kill-buffer (current-buffer))
'ignored))))
;; ----------------------------------------------------------------------------
(defun desktop-buffer-mh () "Load a folder in the mh system."
(if (eq 'mh-folder-mode mam)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment