Function: imap-close

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

Signature

(imap-close &optional BUFFER)

Documentation

Close connection to server in BUFFER.

If BUFFER is nil, the current buffer is used.

Source Code

;; Defined in /usr/src/emacs/lisp/net/imap.el.gz
(defun imap-close (&optional buffer)
  "Close connection to server in BUFFER.
If BUFFER is nil, the current buffer is used."
  (with-current-buffer (or buffer (current-buffer))
    (when (imap-opened)
      (condition-case nil
	  (imap-logout-wait)
	(quit nil)))
    (when (and imap-process
	       (memq (process-status imap-process) '(open run)))
      (delete-process imap-process))
    (setq imap-current-mailbox nil
	  imap-current-message nil
	  imap-process nil)
    (erase-buffer)
    t))