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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 919a59f..c894b86 100644 (file)
--- 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 (file)
--- 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
          )))))