Function: sieve-manage-opened

sieve-manage-opened is a byte-compiled function defined in sieve-manage.el.gz.

Signature

(sieve-manage-opened &optional BUFFER)

Documentation

Return non-nil if connection to managesieve server in BUFFER is open.

If BUFFER is nil then the current buffer is used.

Source Code

;; Defined in /usr/src/emacs/lisp/net/sieve-manage.el.gz
(defun sieve-manage-opened (&optional buffer)
  "Return non-nil if connection to managesieve server in BUFFER is open.
If BUFFER is nil then the current buffer is used."
  (and (setq buffer (get-buffer (or buffer (current-buffer))))
       (buffer-live-p buffer)
       (with-current-buffer buffer
	 (and sieve-manage-process
	      (memq (process-status sieve-manage-process) '(open run))))))