From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 4 Dec 2000 16:40:31 +0000 (+0000)
Subject: (rmail-summary-expunge)
X-Git-Tag: emacs-pretest-21.0.93~236
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d2bf5afe6d2623c373bb5e43506331f88d4204bb;p=emacs.git

(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 e500c7d0e58..3069142ede0 100644
--- 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)