From: hmurata <hmurata>
Date: Sat, 4 Nov 2006 07:35:04 +0000 (+0000)
Subject: (elmo-progress-done): Fix a miss refer to
X-Git-Tag: wl-2_15_6-fixes~129
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=73867c15f087133f31a6544c29680833f9333fc2;p=elisp%2Fwanderlust.git

(elmo-progress-done): Fix a miss refer to
`elmo-progress-counter'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6fbdb14..750ee74 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-04  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-util.el (elmo-progress-done): Fix a miss refer to
+	`elmo-progress-counter'.
+
 2006-11-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elsp-bsfilter.el (elsp-bsfilter-list-spam-files): Abolish.
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index bc30ed3..8817170 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -1202,7 +1202,7 @@ If optional DELETE-FUNCTION is speficied, it is used as delete procedure."
 
 (defun elmo-progress-done (counter)
   (when counter
-    (when (elmo-progress-counter-label elmo-progress-counter)
+    (when (elmo-progress-counter-label counter)
       (when (< (elmo-progress-counter-value counter)
 	       (elmo-progress-counter-total counter))
 	(elmo-progress-call-callback counter 100))