Lines Matching +defs:port +defs:list
52 ;; imap-mailbox-rename, imap-mailbox-lsub, imap-mailbox-list
59 ;; imap-current-message, imap-list-to-message-set,
105 ;; (imap-mailbox-list "INBOX.n%")
127 ;; o Accept list of articles instead of message set string in most
177 %s is replaced with server hostname, %p with port to connect to, and
180 the list is tried until a successful connection is made."
184 (defcustom imap-gssapi-program (list
190 %s is replaced with server hostname, %p with port to connect to, and
193 the list is tried until a successful connection is made."
201 "A string, or list of strings, containing commands for SSL connections.
203 port number on server. The program should accept IMAP commands on
204 stdin and return responses to stdout. Each entry in the list is tried
214 "A list of strings, containing commands for IMAP connection.
215 Within a string, %s is replaced with the server address, %p with port
218 and write IMAP response to stdout. Each entry in the list is tried
338 (defconst imap-default-port 143)
339 (defconst imap-default-ssl-port 993)
340 (defconst imap-default-tls-port 993)
345 imap-port
372 (defvar imap-port nil)
419 Each element is a list with four elements; tag (a integer), response
498 (defun imap-kerberos4-open (name buffer server port)
504 (let* ((port (or port imap-default-port))
514 ?p (number-to-string port)
570 (defun imap-gssapi-open (name buffer server port)
576 (let* ((port (or port imap-default-port))
586 ?p (number-to-string port)
645 (defun imap-ssl-open (name buffer server port)
648 (list imap-ssl-program)))
653 (let* ((port (or port imap-default-ssl-port))
669 ?p (number-to-string port)))))
700 (defun imap-tls-open (name buffer server port)
701 (let* ((port (or port imap-default-tls-port))
704 (process (open-tls-stream name buffer server port)))
725 (defun imap-network-open (name buffer server port)
726 (let* ((port (or port imap-default-port))
729 (process (open-network-stream name buffer server port)))
749 (defun imap-shell-open (name buffer server port)
751 (list imap-shell-program)))
756 (let* ((port (or port imap-default-port))
766 ?p (number-to-string port)
795 (defun imap-starttls-open (name buffer server port)
796 (let* ((port (or port imap-default-port))
799 (process (starttls-open-stream name buffer server port))
904 (list
953 (list
983 "imap" buffer imap-server imap-port)
996 (defun imap-open (server &optional port stream auth buffer)
1007 (setq buffer (or buffer (format " *imap* %s:%d" server (or port 0))))
1015 (setq imap-port (or port imap-port))
1038 (setq imap-port (or port imap-port))
1135 "Return a list of identifiers which server in BUFFER support.
1192 "Map a function across each mailbox in `imap-mailbox-data', returning a list.
1292 (imap-ok-p (imap-send-command-wait (list "CREATE \"" mailbox "\""))))
1306 (imap-send-command-wait (list "DELETE \"" mailbox "\""))))))
1315 (imap-send-command-wait (list "RENAME \"" oldname "\" "
1319 "Return a list of subscribed mailboxes on server in BUFFER.
1320 If ROOT is non-nil, only list matching mailboxes. If ADD-DELIMITER is
1328 ;; clear list data (NB not delimiter and other stuff)
1342 (defun imap-mailbox-list (root &optional reference add-delimiter buffer)
1343 "Return a list of mailboxes matching ROOT on server in BUFFER.
1346 passed to list command."
1352 ;; clear list data (NB not delimiter and other stuff)
1354 (imap-mailbox-put 'list nil mailbox)))
1362 (when (imap-mailbox-get-1 'list mailbox)
1384 ITEMS can be a symbol or a list of symbols, valid symbols are one of
1386 or 'unseen. If ITEMS is a list of symbols, a list of values is
1390 (imap-send-command-wait (list "STATUS \""
1397 (list items)))))))
1406 ITEMS can be a symbol or a list of symbols, valid symbols are one of
1410 (imap-send-command (list "STATUS \""
1416 (list items)))))))
1423 (imap-send-command-wait (list "GETACL \""
1433 (imap-send-command-wait (list "SETACL \""
1445 (imap-send-command-wait (list "DELETEACL \""
1458 (defun imap-list-to-message-set (list)
1461 (if (listp list)
1462 list
1463 (list list))
1474 (list range) ;; make (1 . 2) into ((1 . 2))
1482 (imap-list-to-message-set uids)
1488 UIDS can be a string, number or a list of numbers. If RECEIVE
1494 (imap-list-to-message-set uids)
1524 "Map a function across each mailbox in `imap-message-data', returning a list."
1616 (list (nth 0 (imap-mailbox-get-1 'copyuid mailbox))
1624 (list (imap-mailbox-get-1 'uidvalidity mailbox)
1639 non-nil, it will not create a mailbox. On success, return a list with
1641 first element, rest of list contain the saved articles' UIDs."
1668 (list (imap-mailbox-get-1 'uidvalidity mailbox)
1689 (list "APPEND \"" mailbox "\" " article))))
1721 (setq imap-callbacks (append (list (cons tag func)) imap-callbacks)))
1735 (if (not (listp command)) (setq command (list command)))
1950 ;; atom-specials = "(" / ")" / "{" / SP / CTL / list-wildcards /
1953 ;; list-wildcards = "%" / "*"
2003 ;; address-list = "(" 1*address ")" / nil
2007 (defsubst imap-parse-address-list ()
2020 ;; (assert (imap-parse-nil) t "In imap-parse-address-list")
2073 ;; mailbox-data = "FLAGS" SP flag-list /
2074 ;; "LIST" SP mailbox-list /
2075 ;; "LSUB" SP mailbox-list /
2087 ;; ; compatibility MUST list "IMAP4" as the first
2104 (FLAGS (imap-mailbox-put 'flags (imap-parse-flag-list)))
2105 (LIST (imap-parse-data-list 'list))
2106 (LSUB (imap-parse-data-list 'lsub))
2141 (push (list token status code text)
2153 (push (list token status code text) imap-failed-tags)
2232 (imap-mailbox-put 'permanentflags (imap-parse-flag-list)))
2251 (list (match-string 1)
2255 (imap-mailbox-put 'copyuid (list (match-string 1)
2263 ;; mailbox-list = "(" [mbx-list-flags] ")" SP
2266 ;; mbx-list-flags = *(mbx-list-oflag SP) mbx-list-sflag
2267 ;; *(SP mbx-list-oflag) /
2268 ;; mbx-list-oflag *(SP mbx-list-oflag)
2270 ;; mbx-list-oflag = "\Noinferiors" / flag-extension
2273 ;; mbx-list-sflag = "\Noselect" / "\Marked" / "\Unmarked"
2281 (defun imap-parse-data-list (type)
2283 (setq flags (imap-parse-flag-list))
2289 (imap-mailbox-put 'list-flags flags mailbox)
2314 (defsubst imap-parse-header-list ()
2328 (mapconcat 'identity (cons section (imap-parse-header-list)) " ")
2345 (setq flags (imap-parse-flag-list))
2362 (push (list
2441 (setq acl (append acl (list (cons identifier rights)))))
2444 ;; flag-list = "(" [flag *(SP flag)] ")"
2460 (defun imap-parse-flag-list ()
2461 (let (flag-list start)
2462 (assert (eq (char-after) ?\() nil "In imap-parse-flag-list")
2470 (push (buffer-substring start (point)) flag-list))
2471 (assert (eq (char-after) ?\)) nil "In imap-parse-flag-list")
2473 (nreverse flag-list)))
2506 (prog1 (imap-parse-address-list) ;; from
2508 (prog1 (imap-parse-address-list) ;; sender
2510 (prog1 (imap-parse-address-list) ;; reply-to
2512 (prog1 (imap-parse-address-list) ;; to
2514 (prog1 (imap-parse-address-list) ;; cc
2516 (prog1 (imap-parse-address-list) ;; bcc
2525 (defsubst imap-parse-string-list ()
2582 (push (imap-parse-string-list) dsp)
2591 (push (imap-parse-string-list) ext)
2678 (push (imap-parse-string-list) body)
2693 (push (imap-parse-string-list) body)
2796 imap-mailbox-list
2804 imap-list-to-message-set
2833 imap-parse-data-list
2837 imap-parse-flag-list