diff options
| -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) |