Mercurial > emacs
comparison lisp/mail/rmail.el @ 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 | b75299f3bc4c |
| children | b11287060e28 |
comparison
equal
deleted
inserted
replaced
| 28289:4b9d76092b0f | 28290:4aafdd90bf08 |
|---|---|
| 214 :group 'rmail-files) | 214 :group 'rmail-files) |
| 215 ;;;###autoload | 215 ;;;###autoload |
| 216 (defcustom rmail-secondary-file-regexp "\\.xmail$" | 216 (defcustom rmail-secondary-file-regexp "\\.xmail$" |
| 217 "*Regexp for which files are secondary Rmail files." | 217 "*Regexp for which files are secondary Rmail files." |
| 218 :type 'regexp | 218 :type 'regexp |
| 219 :group 'rmail-files) | |
| 220 | |
| 221 ;;;###autoload | |
| 222 (defcustom rmail-confirm-expunge 'yes-or-no-p | |
| 223 "*Whether and how to ask for confirmation before expunging deleted messages." | |
| 224 :type '(choice (const :tag "No confirmation" nil) | |
| 225 (const :tag "Confirm with y-or-n-p" y-or-n-p) | |
| 226 (const :tag "Confirm with yes-or-no-p" yes-or-no-p)) | |
| 227 :version "21.1" | |
| 219 :group 'rmail-files) | 228 :group 'rmail-files) |
| 220 | 229 |
| 221 ;;;###autoload | 230 ;;;###autoload |
| 222 (defvar rmail-mode-hook nil | 231 (defvar rmail-mode-hook nil |
| 223 "List of functions to call when Rmail is invoked.") | 232 "List of functions to call when Rmail is invoked.") |
| 2672 (goto-char (+ (point) opoint))))) | 2681 (goto-char (+ (point) opoint))))) |
| 2673 | 2682 |
| 2674 (defun rmail-expunge () | 2683 (defun rmail-expunge () |
| 2675 "Erase deleted messages from Rmail file and summary buffer." | 2684 "Erase deleted messages from Rmail file and summary buffer." |
| 2676 (interactive) | 2685 (interactive) |
| 2677 (rmail-only-expunge) | 2686 (when (or (null rmail-confirm-expunge) |
| 2678 (if (rmail-summary-exists) | 2687 (funcall rmail-confirm-expunge |
| 2679 (rmail-select-summary | 2688 "Erase deleted messages from Rmail file? ")) |
| 2680 (rmail-update-summary)))) | 2689 (rmail-only-expunge) |
| 2690 (if (rmail-summary-exists) | |
| 2691 (rmail-select-summary | |
| 2692 (rmail-update-summary))))) | |
| 2681 | 2693 |
| 2682 ;;;; *** Rmail Mailing Commands *** | 2694 ;;;; *** Rmail Mailing Commands *** |
| 2683 | 2695 |
| 2684 (defun rmail-start-mail (&optional noerase to subject in-reply-to cc | 2696 (defun rmail-start-mail (&optional noerase to subject in-reply-to cc |
| 2685 replybuffer sendactions same-window others) | 2697 replybuffer sendactions same-window others) |