From 39a2104945ed62f3e22bdd337eef592ca4f9ef8a Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 25 Sep 2000 09:23:20 +0000 Subject: [PATCH] * elmo-nntp.el (elmo-nntp-list-folder): Set current group after `listgroup'. --- elmo/ChangeLog | 3 +++ elmo/elmo-nntp.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + * 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 -- 1.7.10.4