Function: gnus-close-server

gnus-close-server is a byte-compiled function defined in gnus-int.el.gz.

Signature

(gnus-close-server COMMAND-METHOD)

Documentation

Close the connection to COMMAND-METHOD.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-int.el.gz
(defun gnus-close-server (command-method)
  "Close the connection to COMMAND-METHOD."
  (let ((gnus-command-method
         (if (stringp command-method)
             (gnus-server-to-method command-method)
           command-method)))
    (prog1
	(funcall (gnus-get-function gnus-command-method 'close-server)
                 (nth 1 gnus-command-method)
                 (nthcdr 2 gnus-command-method))
      (when-let ((elem (assoc gnus-command-method gnus-opened-servers)))
        (setf (nth 1 elem) 'closed)))))