X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=vm;h=f2019a459837f738fdce921ac4562044b54c7bf1;hb=2d1ba5da3dee7cadaf9e736a8c476a9562a1d67a;hp=f863e60eca85a43de1c98e5ef231ddc9d0deb294;hpb=85c4238d46e71c1ded36f9ba912d66a6de4db708;p=elisp.git

diff --git a/vm b/vm
index f863e60..f2019a4 100644
--- 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)))
 
-(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)