(desktop-buffer-rmail): Handle the situation

where the RMAIL file is locked, mail is waiting, and the
user selects `quit' gracefully.

diff --git a/lisp/desktop.el b/lisp/desktop.el
index fa92582fef6f50190832846391051fd82ac6e8eb..2e12ac34e7ade08bbc27199c24560221aa206824 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -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)