1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 34f8a46761b..0b5f564abf4 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3547,8 +3547,10 @@ If `rmail-confirm-expunge' is non-nil, ask user to confirm."
   (and (stringp rmail-deleted-vector)
        (string-match "D" rmail-deleted-vector)
        (if rmail-confirm-expunge
-           (funcall rmail-confirm-expunge
-                    "Erase deleted messages from Rmail file? ")
+           (and (funcall rmail-confirm-expunge
+                         "Erase deleted messages from Rmail file? ")
+                ;; In case r-c-e's function returns non-nil, non-t
+                t)
          t)))
 
 (defun rmail-only-expunge (&optional dont-show)