(rmail-summary-expunge)

(rmail-summary-expunge-and-save): Ask for confirmation with
rmail-expunge-confirmed.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index e500c7d..3069142 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -1210,7 +1210,8 @@ move to the previous message."
   (interactive)
   (save-excursion
     (set-buffer rmail-buffer)
-    (rmail-only-expunge))
+    (when (rmail-confirm-expunge)
+      (rmail-only-expunge)))
   (rmail-update-summary))
 
 (defun rmail-summary-expunge-and-save ()
@@ -1218,7 +1219,8 @@ move to the previous message."
   (interactive)
   (save-excursion
     (set-buffer rmail-buffer)
-    (rmail-only-expunge))
+    (when (rmail-confirm-expunge)
+      (rmail-only-expunge)))
   (rmail-update-summary)
   (save-excursion
     (set-buffer rmail-buffer)