(rmail-summary-expunge)

(rmail-summary-expunge-and-save): Use rmail-expunge-confirmed
instead of rmail-confirm-expunge.

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