-;;; gnus-int.el --- backend inteface functions for Gnus
+;;; gnus-int.el --- backend interface functions for Gnus
;; Copyright (C) 1996 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
(funcall (gnus-get-function method 'request-restore-buffer)
article (gnus-group-real-name group) (nth 1 method))))
-(defun gnus-request-create-group (group &optional method)
+(defun gnus-request-create-group (group &optional method args)
(when (stringp method)
(setq method (gnus-server-to-method method)))
(let ((method (or method (gnus-find-method-for-group group))))
(funcall (gnus-get-function method 'request-create-group)
- (gnus-group-real-name group) (nth 1 method))))
+ (gnus-group-real-name group) (nth 1 method) args)))
(defun gnus-request-delete-group (group &optional force)
(let ((method (gnus-find-method-for-group group)))
(defun gnus-close-backends ()
;; Send a close request to all backends that support such a request.
(let ((methods gnus-valid-select-methods)
- func)
- (while methods
- (if (fboundp (setq func (intern (concat (caar methods)
- "-request-close"))))
- (funcall func))
- (setq methods (cdr methods)))))
+ func method)
+ (while (setq method (pop methods))
+ (when (fboundp (setq func (intern
+ (concat (car method) "-request-close"))))
+ (funcall func)))))
(defun gnus-asynchronous-p (method)
(let ((func (gnus-get-function method 'asynchronous-p t)))
(let* ((elem (assoc method gnus-opened-servers))
(status (cadr elem)))
;; If this hasn't been opened before, we add it to the list.
- (when (eq status 'denied)
+ (when (eq status 'denied)
;; Set the status of this server.
(setcar (cdr elem) 'closed))))