(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: "
- (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))))
+(autoload 'gnus-group-make-shimbun-group
+ "nnshimbun" "Create a nnshimbun group." t)
(defun gnus-group-make-archive-group (&optional all)
"Create the (ding) Gnus archive group of the most recent articles.
(file-name-nondirectory gnus-current-startup-file))))
(gnus-run-hooks 'gnus-exit-gnus-hook)
(gnus-configure-windows 'group t)
+ (when (and (gnus-buffer-live-p gnus-dribble-buffer)
+ (not (zerop (save-excursion
+ (set-buffer gnus-dribble-buffer)
+ (buffer-size)))))
+ (gnus-dribble-enter
+ ";;; Gnus was exited on purpose without saving the .newsrc files."))
(gnus-dribble-save)
(gnus-close-backends)
(gnus-clear-system)