From: okada <okada>
Date: Fri, 1 Feb 2002 03:29:12 +0000 (+0000)
Subject: * elmo-nntp.el (elmo-nntp-list-folders-get-cache): Fix.
X-Git-Tag: wl-2_9_7~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=04e11cddf246396d7dbff6ecf992210a5072357f;p=elisp%2Fwanderlust.git

* elmo-nntp.el (elmo-nntp-list-folders-get-cache): Fix.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 919a59f..c894b86 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-01  Kenichi OKADA  <okada@opaopa.org>
+
+	* elmo-nntp.el (elmo-nntp-list-folders-get-cache): Fix.
+
 2002-01-31  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-nntp.el (elmo-nntp-list-folders-get-cache): Use group and server
diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index ea5decb..0c22db6 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -432,9 +432,10 @@ Don't cache if nil.")
 	  (erase-buffer)
 	  (insert (nth 3 elmo-nntp-list-folders-cache))
 	  (goto-char (point-min))
-	  (or (string= folder "")
-	      (and folder
-		   (keep-lines (concat "^" (regexp-quote folder) "\\."))))
+	  (debug)
+	  (or (string= group "")
+	      (and group
+		   (keep-lines (concat "^" (regexp-quote group) "\\."))))
 	  t
 	  )))))