From: okada <okada>
Date: Tue, 17 Oct 2000 18:24:15 +0000 (+0000)
Subject: * elmo2.el (elmo-generic-folder-diff): Fix.
X-Git-Tag: wl-2_4-root~137
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=abd32e2e11beb27c0a380cfb5cc27f68b7491716;p=elisp%2Fwanderlust.git

* elmo2.el (elmo-generic-folder-diff): Fix.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 30ec1cc..7bf1705 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-18  Kenichi OKADA  <okada@opaopa.org>
+
+	* elmo2.el (elmo-generic-folder-diff): Fix.
+
 2000-10-17  Kenichi OKADA  <okada@opaopa.org>
 
 	* elmo-msgdb.el (elmo-msgdb-killed-list-length): New function.
diff --git a/elmo/elmo2.el b/elmo/elmo2.el
index 31a82ee..85d34a6 100644
--- a/elmo/elmo2.el
+++ b/elmo/elmo2.el
@@ -721,7 +721,7 @@ message list in msgdb. Otherwise, number-list is load from msgdb."
 	(let ((number-list (or number-list
 			       (mapcar 'car
 				       (elmo-msgdb-number-load
-					(elmo-msgdb-expand-path spec))))))
+					(elmo-msgdb-expand-path folder))))))
 	  ;; No info-cache.
 	  (setq in-db (sort number-list '<))
 	  (setq in-db-max (or (nth (max 0 (1- (length in-db))) in-db)