Function: nnmaildir-close-server

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

Signature

(nnmaildir-close-server &optional SERVER DEFS)

Documentation

Close SERVER, or the current maildir server.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnmaildir.el.gz
(defun nnmaildir-close-server (&optional server _defs)
  "Close SERVER, or the current maildir server."
  (when (nnmaildir--prepare server nil)
    (setq server nnmaildir--cur-server
	  nnmaildir--cur-server nil)

    ;; This slightly obscure invocation of `alist-get' removes SERVER from
    ;; `nnmaildir--servers'.
    (setf (alist-get (nnmaildir--srv-address server)
		     nnmaildir--servers server 'remove #'equal)
	  server))
  t)