Mercurial > emacs
changeset 28714:b11287060e28
(rmail-expunge): When there's no deleted messages,
do nothing.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 25 Apr 2000 23:46:54 +0000 |
| parents | ff260611db3f |
| children | e077081a7898 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Tue Apr 25 23:46:07 2000 +0000 +++ b/lisp/mail/rmail.el Tue Apr 25 23:46:54 2000 +0000 @@ -2683,9 +2683,11 @@ (defun rmail-expunge () "Erase deleted messages from Rmail file and summary buffer." (interactive) - (when (or (null rmail-confirm-expunge) - (funcall rmail-confirm-expunge - "Erase deleted messages from Rmail file? ")) + (when (and (stringp rmail-deleted-vector) + (string-match "D" rmail-deleted-vector) + (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