# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 975948031 0
# Node ID 595c282933a131e4f06c0c48c654fa64a01e5cc2
# Parent  fd0f15c05bfe5768daee74ef140f19c3c205f03a
(rmail-summary-expunge)
(rmail-summary-expunge-and-save): Ask for confirmation with
rmail-expunge-confirmed.

diff -r fd0f15c05bfe -r 595c282933a1 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Mon Dec 04 16:38:22 2000 +0000
+++ b/lisp/mail/rmailsum.el	Mon Dec 04 16:40:31 2000 +0000
@@ -1210,7 +1210,8 @@
   (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 @@
   (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)