🚀 go-pugleaf

This patch to vm 5.32 makes it ask you if you want to delete an empty
folder if you set vm-delete-empty-folders to something or than t or nil.
Updating the docstring is left as an exercise for the reader.

cd /usr/local/lib/elisp/vm-5.32beta/
diff -u /usr/local/lib/elisp/vm-5.32beta/vm-folder.el.\~1\~ /usr/local/lib/elisp/vm-5.32beta/vm-folder.el
--- /usr/local/lib/elisp/vm-5.32beta/vm-folder.el.~1~	Wed Mar  4 02:33:25 1992
+++ /usr/local/lib/elisp/vm-5.32beta/vm-folder.el	Mon Mar  9 17:46:39 1992
@@ -3,7 +3,7 @@
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 1, or (at your option)
+;;; the Free Software Foundation; either version 2, or (at your option)
 ;;; any later version.
 ;;;
 ;;; This program is distributed in the hope that it will be useful,
@@ -872,7 +872,11 @@
 	(setq vm-messages-not-on-disk 0)
 	(setq vm-block-new-mail nil)
 	(setq vm-message-order-changed nil)
-	(and (zerop (buffer-size)) vm-delete-empty-folders
+	(and (zerop (buffer-size))
+	     (or (eq vm-delete-empty-folders t)
+		 (and vm-delete-empty-folders
+		      (y-or-n-p (format "Delete empty folder %s? "
+					buffer-file-name))))
 	     (condition-case ()
 		 (progn
 		   (delete-file buffer-file-name)

diff exited abnormally with code 1 at Mon Mar  9 18:48:51