Mercurial > emacs
changeset 28290:4aafdd90bf08
(rmail-confirm-expunge): New user-option.
(rmail-expunge): Ask for confirmation depending on the setting
of rmail-confirm-expunge.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 24 Mar 2000 12:12:58 +0000 |
| parents | 4b9d76092b0f |
| children | a4faa7999de1 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 16 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Thu Mar 23 21:20:46 2000 +0000 +++ b/lisp/mail/rmail.el Fri Mar 24 12:12:58 2000 +0000 @@ -219,6 +219,15 @@ :group 'rmail-files) ;;;###autoload +(defcustom rmail-confirm-expunge 'yes-or-no-p + "*Whether and how to ask for confirmation before expunging deleted messages." + :type '(choice (const :tag "No confirmation" nil) + (const :tag "Confirm with y-or-n-p" y-or-n-p) + (const :tag "Confirm with yes-or-no-p" yes-or-no-p)) + :version "21.1" + :group 'rmail-files) + +;;;###autoload (defvar rmail-mode-hook nil "List of functions to call when Rmail is invoked.") @@ -2674,10 +2683,13 @@ (defun rmail-expunge () "Erase deleted messages from Rmail file and summary buffer." (interactive) - (rmail-only-expunge) - (if (rmail-summary-exists) - (rmail-select-summary - (rmail-update-summary)))) + (when (or (null rmail-confirm-expunge) + (funcall rmail-confirm-expunge + "Erase deleted messages from Rmail file? ")) + (rmail-only-expunge) + (if (rmail-summary-exists) + (rmail-select-summary + (rmail-update-summary))))) ;;;; *** Rmail Mailing Commands ***