(gnus-group-make-shimbun-group): Call
authortsuchiya <tsuchiya>
Sat, 18 Aug 2001 08:04:22 +0000 (08:04 +0000)
committertsuchiya <tsuchiya>
Sat, 18 Aug 2001 08:04:22 +0000 (08:04 +0000)
`shimbun-groups' to detect avaiable groups of specified server.

ChangeLog
lisp/nnshimbun.el

index 7668b1a..40c0bd3 100644 (file)
--- 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
index 9d4fc51..aaa5a3f 100644 (file)
@@ -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)