# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 956706414 0
# Node ID b11287060e28dedb34171276ec9dafd6afb15135
# Parent  ff260611db3ffc094bad475461f2b7f81ad179d5
(rmail-expunge): When there's no deleted messages,
do nothing.

diff -r ff260611db3f -r b11287060e28 lisp/mail/rmail.el
--- 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