-(defvar nnshimbun-type-definition)
-(defvar gnus-group-shimbun-server-history nil)
-
-(defun gnus-group-make-shimbun-group ()
- "Create a nnshimbun group."
- (interactive)
- (require 'nnshimbun)
- (let* ((minibuffer-setup-hook (append minibuffer-setup-hook
- '(beginning-of-line)))
- (server (completing-read
- "Shimbun address: "
- (mapcar (lambda (elem) (list (car elem)))
- nnshimbun-type-definition)
- nil t
- (or (car gnus-group-shimbun-server-history)
- (caar nnshimbun-type-definition))
- 'gnus-group-shimbun-server-history))
- (group (completing-read
- "Group name: "
- (mapcar (lambda (elem) (list elem))
- (cdr (assq 'groups
- (cdr (assoc server nnshimbun-type-definition)))))
- nil t nil))
- (nnshimbun-pre-fetch-article nil))
- (gnus-group-make-group group `(nnshimbun ,server))))