(wl-summary-delete-messages-on-buffer): Remove progress gauge only when

 it was displayed.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index beed4d1..4c2148f 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/04/28 10:27:22 teranisi>
+;; Time-stamp: <00/04/28 13:03:02 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -1898,8 +1898,9 @@ If optional argument is non-nil, checking is omitted."
                'wl-summary-delete-messages-on-buffer "Deleting..."
                (/ (* i 100) len))))
        (setq msgs (cdr msgs)))
-      (elmo-display-progress
-       'wl-summary-delete-messages-on-buffer "Deleting..." 100)
+      (when deleting-info
+       (elmo-display-progress
+        'wl-summary-delete-messages-on-buffer "Deleting..." 100))
       (if (eq wl-summary-buffer-view 'thread)
          (wl-thread-update-line-msgs (elmo-uniq-list update-list)))
       (wl-thread-cleanup-symbols msgs2)