diff options
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 6 |
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) |