diff options
| author | Gerd Moellmann | 2000-12-04 16:40:31 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-12-04 16:40:31 +0000 |
| commit | d2bf5afe6d2623c373bb5e43506331f88d4204bb (patch) | |
| tree | 4d54186832dfd8237f340b93b9b6d1d5cd7acb45 | |
| parent | 7a53d8c859e8014d40578ee2a1542f4bc7e7f90c (diff) | |
| download | emacs-d2bf5afe6d2623c373bb5e43506331f88d4204bb.tar.gz emacs-d2bf5afe6d2623c373bb5e43506331f88d4204bb.zip | |
(rmail-summary-expunge)
(rmail-summary-expunge-and-save): Ask for confirmation with
rmail-expunge-confirmed.
| -rw-r--r-- | lisp/mail/rmailsum.el | 6 |
1 files 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." | |||
| 1210 | (interactive) | 1210 | (interactive) |
| 1211 | (save-excursion | 1211 | (save-excursion |
| 1212 | (set-buffer rmail-buffer) | 1212 | (set-buffer rmail-buffer) |
| 1213 | (rmail-only-expunge)) | 1213 | (when (rmail-confirm-expunge) |
| 1214 | (rmail-only-expunge))) | ||
| 1214 | (rmail-update-summary)) | 1215 | (rmail-update-summary)) |
| 1215 | 1216 | ||
| 1216 | (defun rmail-summary-expunge-and-save () | 1217 | (defun rmail-summary-expunge-and-save () |
| @@ -1218,7 +1219,8 @@ move to the previous message." | |||
| 1218 | (interactive) | 1219 | (interactive) |
| 1219 | (save-excursion | 1220 | (save-excursion |
| 1220 | (set-buffer rmail-buffer) | 1221 | (set-buffer rmail-buffer) |
| 1221 | (rmail-only-expunge)) | 1222 | (when (rmail-confirm-expunge) |
| 1223 | (rmail-only-expunge))) | ||
| 1222 | (rmail-update-summary) | 1224 | (rmail-update-summary) |
| 1223 | (save-excursion | 1225 | (save-excursion |
| 1224 | (set-buffer rmail-buffer) | 1226 | (set-buffer rmail-buffer) |