Function: nnoo-close-server

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

Signature

(nnoo-close-server BACKEND &optional SERVER)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnoo.el.gz
(defun nnoo-close-server (backend &optional server)
  (unless server
    (setq server (nnoo-current-server backend)))
  (when server
    (let* ((bstate (cdr (assq backend nnoo-state-alist)))
	   (defs (assoc server (cdr bstate))))
      (when bstate
	(setcar bstate nil)
	(setcdr bstate (delq defs (cdr bstate)))
	(pop defs)
	(while defs
	  (set (car (pop defs)) nil)))))
  t)