From: tsuchiya <tsuchiya>
Date: Sat, 18 Aug 2001 08:04:22 +0000 (+0000)
Subject: (gnus-group-make-shimbun-group): Call
X-Git-Tag: t-gnus-6_15_3-06~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eb61a7403b0da64c1048e5a625b5b8589329d5d1;p=elisp%2Fgnus.git-

(gnus-group-make-shimbun-group): Call
`shimbun-groups' to detect avaiable groups of specified server.
---

diff --git a/ChangeLog b/ChangeLog
index 7668b1a..40c0bd3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-18  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+	* lisp/nnshimbun.el (gnus-group-make-shimbun-group): Call
+	`shimbun-groups' to detect avaiable groups of specified server.
+
 2001-08-17  KANEMATSU Daiji  <kanematu@sra.co.jp>
 
 	* lisp/message.el (message-signature-separator-for-insertion): New
diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index 9d4fc51..aaa5a3f 100644
--- a/lisp/nnshimbun.el
+++ b/lisp/nnshimbun.el
@@ -796,13 +796,11 @@ and the NOV is open.  The optional fourth argument FORCE is ignored."
 		  'nnshimbun-server-history))
 	 (groups)
 	 (nnshimbun-pre-fetch-article))
-    (require (intern (concat "sb-" server)))
-    (when (setq groups (intern-soft (concat "shimbun-" server "-groups")))
-      (gnus-group-make-group
-       (completing-read "Group name: "
-			(mapcar 'list (symbol-value groups))
-			nil t nil)
-       (list 'nnshimbun server)))))
+    (if (setq groups (shimbun-groups (shimbun-open server)))
+	(gnus-group-make-group
+	 (completing-read "Group name: " (mapcar 'list groups) nil t nil)
+	 (list 'nnshimbun server))
+      (error "%s" "Can't find group"))))
 
 
 (provide 'nnshimbun)