Function: imap-mailbox-select-1

imap-mailbox-select-1 is a byte-compiled function defined in imap.el.gz.

Signature

(imap-mailbox-select-1 MAILBOX &optional EXAMINE)

Documentation

Select MAILBOX on server in BUFFER.

If EXAMINE is non-nil, do a read-only select.

Source Code

;; Defined in /usr/src/emacs/lisp/net/imap.el.gz
(defun imap-mailbox-select-1 (mailbox &optional examine)
  "Select MAILBOX on server in BUFFER.
If EXAMINE is non-nil, do a read-only select."
  (if (imap-current-mailbox-p-1 mailbox examine)
      imap-current-mailbox
    (setq imap-current-mailbox mailbox)
    (if (imap-ok-p (imap-send-command-wait
		    (concat (if examine "EXAMINE" "SELECT") " \""
			    mailbox "\"")))
	(progn
	  (setq imap-message-data (make-vector imap-message-prime 0)
		imap-state (if examine 'examine 'selected))
	  imap-current-mailbox)
      ;; Failed SELECT/EXAMINE unselects current mailbox
      (setq imap-current-mailbox nil))))