Mercurial > emacs
changeset 34184:595c282933a1
(rmail-summary-expunge)
(rmail-summary-expunge-and-save): Ask for confirmation with
rmail-expunge-confirmed.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 04 Dec 2000 16:40:31 +0000 |
| parents | fd0f15c05bfe |
| children | f43d562a5b65 |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Mon Dec 04 16:38:22 2000 +0000 +++ b/lisp/mail/rmailsum.el Mon Dec 04 16:40:31 2000 +0000 @@ -1210,7 +1210,8 @@ (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 @@ (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)