From 2d1ba5da3dee7cadaf9e736a8c476a9562a1d67a Mon Sep 17 00:00:00 2001
From: Francois Fleuret <francois@fleuret.org>
Date: Fri, 1 Feb 2013 22:41:55 +0100
Subject: [PATCH] Do not attempt at expunging read-only buffers automatically
 on quit.

---
 vm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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)
 
-- 
2.20.1