From: teranisi <teranisi>
Date: Fri, 28 Apr 2000 04:18:17 +0000 (+0000)
Subject: (wl-summary-delete-messages-on-buffer): Remove progress gauge only when
X-Git-Tag: wl-1_1_1~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=760151b323bb72fbfc2acc607d83b9de695b187c;p=elisp%2Fwanderlust.git

(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
--- 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)