From d2bf5afe6d2623c373bb5e43506331f88d4204bb Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 4 Dec 2000 16:40:31 +0000 Subject: [PATCH] (rmail-summary-expunge) (rmail-summary-expunge-and-save): Ask for confirmation with rmail-expunge-confirmed. --- lisp/mail/rmailsum.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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) -- 2.39.5