# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773523938 0
# Node ID eecf5ae5a19404cfe7ef4261da79aca230b27f0a
# Parent  2ac4479dd0ff090221d8f885bbbb273327ea91d4
(desktop-buffer-rmail): Handle the situation
where the RMAIL file is locked, mail is waiting, and the
user selects `quit' gracefully.

diff -r 2ac4479dd0ff -r eecf5ae5a194 lisp/desktop.el
--- a/lisp/desktop.el	Tue Jul 05 22:36:54 1994 +0000
+++ b/lisp/desktop.el	Wed Jul 06 19:45:38 1994 +0000
@@ -447,7 +447,11 @@
 ;; ----------------------------------------------------------------------------
 (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)