projects
/
elisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Do not attempt at expunging read-only buffers automatically on quit.
[elisp.git]
/
vm
diff --git
a/vm
b/vm
index
f863e60
..
f2019a4
100644
(file)
--- a/
vm
+++ b/
vm
@@
-286,7
+286,10
@@
attachement from mail."
(vm-delete-message 1)
(condition-case nil (vm-next-message-no-skip 1) (error nil)))
(vm-delete-message 1)
(condition-case nil (vm-next-message-no-skip 1) (error nil)))
-(add-hook 'vm-quit-hook 'vm-expunge-folder)
+(defun ff/vm-expunge-folder ()
+ (unless vm-folder-read-only (vm-expunge-folder)))
+
+(add-hook 'vm-quit-hook 'ff/vm-expunge-folder)
(add-hook 'vm-quit-hook 'bbdb-save-db)
(add-hook 'vm-retrieved-spooled-mail-hook 'display-time-update)
(add-hook 'vm-quit-hook 'bbdb-save-db)
(add-hook 'vm-retrieved-spooled-mail-hook 'display-time-update)