Mercurial > emacs
changeset 8152:eecf5ae5a194
(desktop-buffer-rmail): Handle the situation
where the RMAIL file is locked, mail is waiting, and the
user selects `quit' gracefully.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 06 Jul 1994 19:45:38 +0000 |
| parents | 2ac4479dd0ff |
| children | d21f64e53295 |
| files | lisp/desktop.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)