diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 3069142ede0..7a5304da6f4 100644
--- 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