Commit f03392a1 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(rmail-expunge): When there's no deleted messages,

do nothing.
parent fad95037
2000-04-26 Kenichi Handa <handa@etl.go.jp>
* mail/rmail.el (rmail-expunge): When there's no deleted messages,
do nothing.
* mail/rmail.el (rmail-expunge): When there are no deleted
messages, do nothing.
2000-04-26 Dave Love <fx@gnu.org>
......
......@@ -2683,9 +2683,11 @@ Deleted messages stay in the file until the \\[rmail-expunge] command is given."
(defun rmail-expunge ()
"Erase deleted messages from Rmail file and summary buffer."
(interactive)
(when (or (null rmail-confirm-expunge)
(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? "))
"Erase deleted messages from Rmail file? ")))
(rmail-only-expunge)
(if (rmail-summary-exists)
(rmail-select-summary
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment