From eb61a7403b0da64c1048e5a625b5b8589329d5d1 Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Sat, 18 Aug 2001 08:04:22 +0000 Subject: [PATCH] (gnus-group-make-shimbun-group): Call `shimbun-groups' to detect avaiable groups of specified server. --- ChangeLog | 5 +++++ lisp/nnshimbun.el | 12 +++++------- 2 files changed, 10 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7668b1a..40c0bd3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-08-18 TSUCHIYA Masatoshi + + * lisp/nnshimbun.el (gnus-group-make-shimbun-group): Call + `shimbun-groups' to detect avaiable groups of specified server. + 2001-08-17 KANEMATSU Daiji * 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) -- 1.7.10.4