mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-summary-expunge)

Browse source 
(rmail-summary-expunge-and-save): Ask for confirmation with
rmail-expunge-confirmed.
This commit is contained in:
Gerd Moellmann 2000-12-04 16:40:31 +00:00
parent 7a53d8c859
commit d2bf5afe6d
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/rmailsum.el
View file

@ -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)