(nnwarchive-login ,login))))
(gnus-group-make-group group method)))
-(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: "
- 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
- 'list
- (cdr (assq 'groups
- (cdr (assoc server nnshimbun-type-definition)))))
- nil t nil))
- (nnshimbun-pre-fetch-article nil))
- (gnus-group-make-group group (list 'nnshimbun server))))
-
(defun gnus-group-make-archive-group (&optional all)
"Create the (ding) Gnus archive group of the most recent articles.
Given a prefix, create a full group."