From: teranisi <teranisi>
Date: Mon, 25 Sep 2000 09:23:20 +0000 (+0000)
Subject: * elmo-nntp.el (elmo-nntp-list-folder): Set current group after `listgroup'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=39a2104945ed62f3e22bdd337eef592ca4f9ef8a;p=elisp%2Fwanderlust.git

* elmo-nntp.el (elmo-nntp-list-folder): Set current group after `listgroup'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 2295d80..9da5e25 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2000-09-25  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-nntp.el (elmo-nntp-list-folder): Set current group after
+	`listgroup'.
+
 	* elmo2.el (elmo-folder-diff-async-callback): New variable.
 	(elmo-folder-diff-async-callback-data): Ditto.
 	(elmo-folder-diff-async): New function.
diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 3f919b9..6f690f6 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -481,7 +481,8 @@ Don't cache if nil.")
 		(elmo-nntp-set-listgroup server port nil)
 		(setq use-listgroup nil))
 	    (if (null (setq response (elmo-nntp-read-contents buffer process)))
-		(error "Fetching listgroup failed"))
+		(error "Fetching listgroup failed")
+	      (setcar (cddr connection) folder))
 	    (setq numbers (elmo-string-to-list response))))
 	(unless use-listgroup
 	  (elmo-nntp-send-command buffer