Function: imap-network-open

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

Signature

(imap-network-open NAME BUFFER SERVER PORT)

Source Code

;; Defined in /usr/src/emacs/lisp/net/imap.el.gz
(defun imap-network-open (name buffer server port)
  (let* ((port (or port imap-default-port))
	 (coding-system-for-read imap-coding-system-for-read)
	 (coding-system-for-write imap-coding-system-for-write)
	 (process (open-network-stream name buffer server port)))
    (when process
      (while (and (memq (process-status process) '(open run))
		  (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
		  (goto-char (point-min))
		  (not (imap-parse-greeting)))
	(accept-process-output process 1)
	(sit-for 1))
      (imap-log buffer)
      (when (memq (process-status process) '(open run))
	process))))