From e36d00d496352d9d317fcf621015ea20268c4824 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 6 Jul 1994 19:45:38 +0000 Subject: [PATCH] (desktop-buffer-rmail): Handle the situation where the RMAIL file is locked, mail is waiting, and the user selects `quit' gracefully. --- lisp/desktop.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/desktop.el b/lisp/desktop.el index fa92582fef6..2e12ac34e7a 100644 --- 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) -- 2.39.5