ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/imap.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\204
\302\301\303\304B\"\210\305\306\307\"\210\305\310\311\"\210\305\312\311\"\210\305\313\311\"\210\305\314\311\"\210\305\315\316\"\210\305\317\320\"\210\305\321\320\"\210\305\322\323\"\210\305\324\323\"\210\325\326\327\330\331\332\333\334&\210\335\336\337\340\333\326\341\342&\210\335\343\344\345\333\326\341\346&\210\335\347\350\351\333\326\341\352&\210\335\353\327\354\331\355\333\326\341\356& \210\335\357\360\361\333\326\341\356&\210\335\362\327\363\333\326\341\356&\210\335\364\327\365\333\326\341\356&\210\335\366\367\370\333\326\341\371&\210\335\372\373\374\333\326\341\371&\210\335\375\376\377\341\201@ \333\326&\210\335\201A \327\201B \333\326\341\356&\207" [fboundp declare-function defalias macro #[(&rest _r) "\300\207" [nil] 1] autoload sasl-find-mechanism "sasl" digest-md5-parse-digest-challenge "digest-md5" digest-md5-digest-response digest-md5-digest-uri digest-md5-challenge rfc2104-hash "rfc2104" utf7-encode "utf7" utf7-decode format-spec "format-spec" format-spec-make custom-declare-group imap nil "Low-level IMAP issues." :version "21.1" :group mail custom-declare-variable imap-kerberos4-program '("imtest -m kerberos_v4 -u %l -p %p %s" "imtest -kp %s %p") "List of strings containing commands for Kerberos 4 authentication.\n%s is replaced with server hostname, %p with port to connect to, and\n%l with the value of `imap-default-user'. The program should accept\nIMAP commands on stdin and return responses to stdout. Each entry in\nthe list is tried until a successful connection is made." :type (repeat string) imap-gssapi-program (list (concat "gsasl %s %p " "--mechanism GSSAPI " "--authentication-id %l") "imtest -m gssapi -u %l -p %p %s") "List of strings containing commands for GSSAPI (krb5) authentication.\n%s is replaced with server hostname, %p with port to connect to, and\n%l with the value of `imap-default-user'. The program should accept\nIMAP commands on stdin and return responses to stdout. Each entry in\nthe list is tried until a successful connection is made." (repeat string) imap-shell-program '("ssh %s imapd" "rsh %s imapd" "ssh %g ssh %s imapd" "rsh %g rsh %s imapd") "A list of strings, containing commands for IMAP connection.\nWithin a string, %s is replaced with the server address, %p with port\nnumber on server, %g with `imap-shell-host', and %l with\n`imap-default-user'. The program should read IMAP commands from stdin\nand write IMAP response to stdout. Each entry in the list is tried\nuntil a successful connection is made." (repeat string) imap-process-connection-type "Value for `process-connection-type' to use for Kerberos4, GSSAPI, shell, and SSL.\nThe `process-connection-type' variable controls the type of device\nused to communicate with subprocesses. Values are nil to use a\npipe, or t or `pty' to use a pty. The value has no effect if the\nsystem has no ptys or if all ptys are busy: then a pipe is used\nin any case. The value takes effect when an IMAP server is\nopened; changing it after that has no effect." "22.1" boolean imap-use-utf7 t "If non-nil, do utf7 encoding/decoding of mailbox names.\nSince the UTF7 decoding currently only decodes into ISO-8859-1\ncharacters, you may disable this decoding if you need to access UTF7\nencoded mailboxes which doesn't translate into ISO-8859-1." imap-log "If non-nil, an imap session trace is placed in `imap-log-buffer'.\nNote that username, passwords and other privacy sensitive\ninformation (such as e-mail) may be stored in the buffer.\nIt is not written to disk, however. Do not enable this\nvariable unless you are comfortable with that.\n\nSee also `imap-debug'." imap-debug "If non-nil, trace imap- functions into `imap-debug-buffer'.\nUses `trace-function-background', so you can turn it off with,\nsay, `untrace-all'.\n\nNote that username, passwords and other privacy sensitive\ninformation (such as e-mail) may be stored in the buffer.\nIt is not written to disk, however. Do not enable this\nvariable unless you are comfortable with that.\n\nThis variable only takes effect when loading the `imap' library.\nSee also `imap-log'." imap-shell-host "gateway" "Hostname of rlogin proxy." string imap-default-user (user-login-name) "Default username to use." imap-read-timeout (if (string-match "windows-nt\\|os/2\\|cygwin" (symbol-name system-type)) 1.0 0.1) "How long to wait between checking for the end of output.\nShorter values mean quicker response, but is more CPU intensive." number imap-store-password "If non-nil, store session password without prompting."] 10)
#@51 Hooks called after receiving each FETCH response.
(defvar imap-fetch-data-hook nil (#$ . 4966))
#@68 Priority of streams to consider when opening connection to server.
(defvar imap-streams '(gssapi kerberos4 starttls tls ssl network shell) (#$ . 5068))
#@193 Definition of network streams.
(NAME CHECK OPEN)
NAME names the stream, CHECK is a function returning non-nil if the
server support the stream and OPEN is a function for opening the
stream.
(defvar imap-stream-alist '((gssapi imap-gssapi-stream-p imap-gssapi-open) (kerberos4 imap-kerberos4-stream-p imap-kerberos4-open) (tls imap-tls-p imap-tls-open) (ssl imap-tls-p imap-tls-open) (network imap-network-p imap-network-open) (shell imap-shell-p imap-shell-open) (starttls imap-starttls-p imap-starttls-open)) (#$ . 5227))
#@71 Priority of authenticators to consider when authenticating to server.
(defvar imap-authenticators '(gssapi kerberos4 digest-md5 cram-md5 login anonymous) (#$ . 5758))
#@236 Definition of authenticators.
(NAME CHECK AUTHENTICATE)
NAME names the authenticator. CHECK is a function returning non-nil if
the server support the authenticator and AUTHENTICATE is a function
for doing the actual authentication.
(defvar imap-authenticator-alist '((gssapi imap-gssapi-auth-p imap-gssapi-auth) (kerberos4 imap-kerberos4-auth-p imap-kerberos4-auth) (sasl imap-sasl-auth-p imap-sasl-auth) (cram-md5 imap-cram-md5-p imap-cram-md5-auth) (login imap-login-p imap-login-auth) (anonymous imap-anonymous-p imap-anonymous-auth) (digest-md5 imap-digest-md5-p imap-digest-md5-auth)) (#$ . 5932))
#@36 Error codes from the last command.
(defvar imap-error nil (#$ . 6544))
#@287 Close server immediately if it can't logout in this number of seconds.
If it is nil, never close server until logout completes. Normally,
the value of this variable will be bound to a certain value to which
an application program that uses this module specifies on a per-server
basis.
(defvar imap-logout-timeout nil (#$ . 6622))
(defconst imap-default-port 143)
(defconst imap-default-ssl-port 993)
(defconst imap-default-tls-port 993)
(defconst imap-default-stream 'network)
(defconst imap-coding-system-for-read 'binary)
(defconst imap-coding-system-for-write 'binary)
(defconst imap-local-variables '(imap-server imap-port imap-client-eol imap-server-eol imap-auth imap-stream imap-username imap-password imap-current-mailbox imap-current-target-mailbox imap-message-data imap-capability imap-id imap-namespace imap-state imap-reached-tag imap-failed-tags imap-tag imap-process imap-calculate-literal-size-first imap-mailbox-data))
(defconst imap-log-buffer "*imap-log*")
(defconst imap-debug-buffer "*imap-debug*")
(defvar imap-stream nil)
(defvar imap-auth nil)
(defvar imap-server nil)
(defvar imap-port nil)
(defvar imap-username nil)
(defvar imap-password nil)
(defvar imap-last-authenticator nil)
(defvar imap-calculate-literal-size-first nil)
#@96 IMAP state.
Valid states are `closed', `initial', `nonauth', `auth', `selected'
and `examine'.
(defvar imap-state 'closed (#$ . 7883))
#@38 The EOL string sent from the server.
(defvar imap-server-eol "
\n" (#$ . 8024))
#@39 The EOL string we send to the server.
(defvar imap-client-eol "
\n" (#$ . 8110))
#@23 Current mailbox name.
(defvar imap-current-mailbox nil (#$ . 8197))
#@54 Current target mailbox for COPY and APPEND commands.
(defvar imap-current-target-mailbox nil (#$ . 8271))
#@28 Obarray with mailbox data.
(defvar imap-mailbox-data nil (#$ . 8383))
#@32 Length of `imap-mailbox-data'.
(defvar imap-mailbox-prime 997 (#$ . 8459))
#@25 Current message number.
(defvar imap-current-message nil (#$ . 8540))
#@28 Obarray with message data.
(defvar imap-message-data nil (#$ . 8616))
#@32 Length of `imap-message-data'.
(defvar imap-message-prime 997 (#$ . 8692))
#@24 Capability for server.
(defvar imap-capability nil (#$ . 8773))
#@35 Identity of server.
See RFC 2971.
(defvar imap-id nil (#$ . 8843))
#@31 Namespace for current server.
(defvar imap-namespace nil (#$ . 8916))
#@52 Lower limit on command tags that have been parsed.
(defvar imap-reached-tag 0 (#$ . 8992))
#@207 Alist of tags that failed.
Each element is a list with four elements; tag (a integer), response
state (a symbol, `OK', `NO' or `BAD'), response code (a string), and
human readable response text (a string).
(defvar imap-failed-tags nil (#$ . 9090))
#@21 Command tag number.
(defvar imap-tag 0 (#$ . 9344))
#@10 Process.
(defvar imap-process nil (#$ . 9402))
#@129 Non-nil indicates that the server emitted a continuation request.
The actual value is really the text on the continuation line.
(defvar imap-continuation nil (#$ . 9456))
#@196 List of response tags and callbacks, on the form `(number . function)'.
The function should take two arguments, the first the IMAP tag and the
second the status (OK, NO, BAD etc) of the command.
(defvar imap-callbacks nil (#$ . 9634))
#@433 Send FETCH UID commands as *:* instead of *.
When non-nil, use an alternative UIDS form. Enabling appears to
be required for some servers (e.g., Microsoft Exchange 2007)
which otherwise would trigger a response `BAD The specified
message set is invalid.'. We don't unconditionally use this
form, since this is said to be significantly inefficient.
This variable is set to t automatically per server if the
canonical form fails.
(defvar imap-enable-exchange-bug-workaround nil (#$ . 9876))
#@307 Delete by side effect any elements of ALIST whose car is `equal' to KEY.
The modified ALIST is returned. If the first member
of ALIST has a car that is `equal' to KEY, there is no way to remove it
by side effect; therefore, write `(setq foo (remassoc key foo))' to be
sure of changing the value of `foo'.
(defalias 'imap-remassoc #[(key alist) "\205 @@\232\203 A\207\302 A\"\241\210\207" [alist key imap-remassoc] 4 (#$ . 10376)])
#@41 Enable multibyte in the current buffer.
(defalias 'imap-disable-multibyte '(macro . #[nil "\300\207" [(set-buffer-multibyte nil)] 1 (#$ . 10823)]))
(defalias 'imap-utf7-encode #[(string) "\203 \205 \3021 \303 \304\"0\207\210\305\306 \"\210 \207 \207" [imap-use-utf7 string (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..."] 3])
(put 'imap-utf7-encode 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-utf7-decode #[(string) "\203 \205 \3021 \303 \304\"0\207\210\305\306 \"\210 \207 \207" [imap-use-utf7 string (error) utf7-decode t message "imap: Could not UTF7 decode `%s', using it undecoded..."] 3])
(put 'imap-utf7-decode 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-ok-p #[(status) "\302=\203 \303\207\304\207" [status imap-error OK t nil] 2])
(put 'imap-ok-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-error-text #[(&optional buffer) "r\206 pq\210\302 @8)\207" [buffer imap-failed-tags 3] 2])
(defalias 'imap-log #[(string-or-buffer) "\205# r\303 !q\210\304\305!\210\306 \210db\210\307\n!\203 \310\n!\202\" \nc)\207" [imap-log imap-log-buffer string-or-buffer get-buffer-create set-buffer-multibyte nil buffer-disable-undo bufferp insert-buffer-substring] 2])
(defalias 'imap-kerberos4-stream-p #[(buffer) "\301\302\"\207" [buffer imap-capability AUTH=KERBEROS_V4] 3])
(defalias 'imap-kerberos4-open #[(name buffer server port) "\306\211 \204\f \211A\242\211\203\f\307\310\n\"\210\311 \210\f\206!
* +, -. /\3120123\313\n\314\3154\316\317\f!\3205&\"% 6\306 76\203r1q\210\3218\3229\3236!\324>\203\311 1q\203\311 eb\203\311 \325\326!\203} \306y\210\202q \325\327!\203\211 \306y\210\202} \325\330!\203\225 \306y\210\202\211 \325\331!\203\236 \332u\210\333 \203\274 \334\335\306\322#\204\263 \334\336\306\322#\203\274 \337\340!\2117\204\311 \3416\340\"\210\342\340!\210\202] \311 \210\307\343\n7\203\333 \3447P\202\334 \345#\2107\203\365 \306 :\346\3457\")\204\365 6\202\3236!\347>\203\350 \210\3516!\210).\202 +\207" [imap-kerberos4-program done cmd cmds port imap-default-port nil message "Opening Kerberos 4 IMAP connection with `%s'..." erase-buffer start-process format-spec format-spec-make 115 112 number-to-string 108 "\n" t process-status (open run) looking-at "^verify error:num=" "^TLS connection established" "^C:" "S: " 3 imap-parse-greeting re-search-forward "^__\\(.*\\)__\n" "^\\(Authenticat.*\\)" match-string 1 accept-process-output sit-for "Opening Kerberos 4 IMAP connection with `%s'...%s" "done, " "failed" string-match (open run) imap-logout delete-process imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write imap-process-connection-type process-connection-type name buffer shell-file-name shell-command-switch server imap-default-user process response imap-client-eol imap-calculate-literal-size-first case-fold-search] 14])
(defalias 'imap-gssapi-stream-p #[(buffer) "\301\302\"\207" [buffer imap-capability AUTH=GSSAPI] 3])
(defalias 'imap-gssapi-open #[(name buffer server port) "\306\211 \204\n \211A\242\211\203\n\307\310\n\"\210\311 \210\f\206!
* +, -. /\3120123\313\n\314\3154\316\317\f!\3205&\"% 6\306 76\203r1q\210\3218\3229\3236!\324>\203\312 1q\203\312 eb\203\312 \325\326!\203} \306y\210\202q \325\327!\203\211 \306y\210\202} \325\330!\203\225 \306y\210\202\211 \325\331!\203\236 \332u\210\325\333!\203\247 \306y\210\334 \203\275 \335\336\306\322#\203\275 \337\340!\2117\204\312 \3416\340\"\210\342\340!\210\202] \3431!\210\311 \210\307\3447\206\332 \345\"\2107\203\363 \306 :\346\3457\")\204\363 6\202\3236!\347>\203\377 \350 \210\3516!\210).\202 +\207" [imap-gssapi-program done cmd cmds port imap-default-port nil message "Opening GSSAPI IMAP connection with `%s'..." erase-buffer start-process format-spec format-spec-make 115 112 number-to-string 108 "\n" t process-status (open run) looking-at "^verify error:num=" "^TLS connection established" "^C:" "S: " 3 "Trying " imap-parse-greeting re-search-forward "^\\(\\(Authenticat.*\\)\\|\\(Client authentication finished.*\\)\\)" match-string 1 accept-process-output sit-for imap-log "GSSAPI IMAP connection: %s" "failed" string-match (open run) imap-logout delete-process imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write imap-process-connection-type process-connection-type name buffer shell-file-name shell-command-switch server imap-default-user process response imap-client-eol imap-calculate-literal-size-first case-fold-search] 14])
(defalias 'imap-tls-p #[(_buffer) "\300\207" [nil] 1])
(defalias 'imap-tls-open #[(name buffer server port) "\206 \n\f \306\307\310&\211 \205W \311!\312>\203G q\203G db\203G \313y\203G \314 \204G \315\316\"\210\317\316!\210\202 \320!\210\311!\321>\205W ,\207" [port imap-default-tls-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write open-network-stream :type tls process-status (open run) -1 imap-parse-greeting accept-process-output 1 sit-for imap-log (open run) name buffer server process] 8])
(defalias 'imap-network-p #[(_buffer) "\300\207" [t] 1])
(defalias 'imap-network-open #[(name buffer server port) "\206 \n\f \306$\211 \205O \307!\310>\203? q\203? eb\203? \311 \204? \312\313\"\210\314\313!\210\202 \315!\210\307!\316>\205O ,\207" [port imap-default-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write open-network-stream process-status (open run) imap-parse-greeting accept-process-output 1 sit-for imap-log (open run) name buffer server process] 6])
(defalias 'imap-shell-p #[(_buffer) "\300\207" [nil] 1])
(defalias 'imap-shell-open #[(name buffer server port) "<\203 \202 C\306\211 \204\236 \211A\242\211\203\236 \307\310\n\"\210\311
\206+ ! \"# $\312%&'(\313\n\314\315)\316*\317\320
!\321+&\"%\211 ,\203\232 \322,!\323>\203\206 &q\203\206 db\203\206 \324y\203\206 \325 \204\206 \326,\327\"\210\330\327!\210\202[ \331&!\210\332 \210\322,!\333>\203\232 ,-\202 \203\253 \307\334\n\"\210 \202\261 \307\335\n\"\210\306+\207" [imap-shell-program done cmd cmds imap-client-eol port nil message "imap: Opening IMAP connection with `%s'..." "\n" start-process format-spec format-spec-make 115 103 112 number-to-string 108 process-status (open run) -1 imap-parse-greeting accept-process-output 1 sit-for imap-log erase-buffer (open run) "imap: Opening IMAP connection with `%s'...done" "imap: Opening IMAP connection with `%s'...failed" imap-default-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write imap-process-connection-type process-connection-type name buffer shell-file-name shell-command-switch server imap-shell-host imap-default-user process] 17])
(defalias 'imap-starttls-p #[(buffer) "\301\302\"\207" [buffer imap-capability STARTTLS] 3])
(defalias 'imap-starttls-open #[(name buffer server port) "\306\307!\210\206 \n\f \310 \311\312\313\314\315\316\317\320\321\322\323\324& \325 ! \203L \326 !\210\327 !\330>\203L !r q\210eb\210\331 \210)\306\332!\203W \333\202X \334\"\210!-\207" [port imap-default-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write message "imap: Connecting with STARTTLS..." open-network-stream :type starttls :capability-command "1 CAPABILITY
\n" :always-query-capabilities t :end-of-command "
\n" :success "^1 OK " :starttls-function #[(capabilities) "\302\303\304\305#)\266\203\205 \306\207" [capabilities inhibit-changing-match-data "STARTTLS" nil t string-match "1 STARTTLS
\n"] 7] nil imap-log process-status (open run) imap-parse-greeting "imap: Connecting with STARTTLS...%s" "done" "failed" name buffer server process done] 17])
#@194 Login to server in BUFFER.
Return t if login was successful, nil otherwise.
LOGINFUNC is passed a username and a password. It should return
t if it successfully authenticates, nil otherwise.
(defalias 'imap-interactive-login #[(buffer loginfunc) "rq\210\306\304!\210\306\307!\210\310\211\211 \203 \n\204z \f\206, \311\312\313
# \206+ \"\206; \314\312\315
$! \203 \n\203 \n\"\203j \316\317!\210\320 \204 \204d \321\322!\203 \n\202 \316\323!\210\310\211\324\325!\210\202 ,\207" [buffer ret passwd user imap-username imap-server make-local-variable imap-password nil read-from-minibuffer format-message "imap: username for %s (using stream `%s'): " read-passwd "imap: password for %s@%s (using authenticator `%s'): " message "imap: Login successful..." t y-or-n-p "imap: Store password for this IMAP session? " "imap: Login failed..." sit-for 1 imap-stream imap-default-user imap-auth loginfunc imap-store-password] 7 (#$ . 18788)])
(defalias 'imap-gssapi-auth-p #[(_buffer) "\301=\207" [imap-stream gssapi] 2])
(defalias 'imap-gssapi-auth #[(_buffer) "\301\302\303=\203\f \304\202
\305\"\210\303=\207" [imap-stream message "imap: Authenticating using GSSAPI...%s" gssapi "done" "failed"] 4])
(defalias 'imap-kerberos4-auth-p #[(buffer) "\302\303\"\205\n \304=\207" [buffer imap-stream imap-capability AUTH=KERBEROS_V4 kerberos4] 3])
(defalias 'imap-kerberos4-auth #[(_buffer) "\301\302\303=\203\f \304\202
\305\"\210\303=\207" [imap-stream message "imap: Authenticating using Kerberos 4...%s" kerberos4 "done" "failed"] 4])
(defalias 'imap-cram-md5-p #[(buffer) "\301\302\"\207" [buffer imap-capability AUTH=CRAM-MD5] 3])
#@49 Login to server using the AUTH CRAM-MD5 method.
(defalias 'imap-cram-md5-auth #[(buffer) "\302\303!\210\304\305\"\211\203 \302\306!\202 \302\307!)\207" [buffer done message "imap: Authenticating using CRAM-MD5..." imap-interactive-login #[(user passwd) "\302\303\304D!\211\305=\203 \306\202 \307)\207" [status imap-error imap-send-command-wait "AUTHENTICATE CRAM-MD5" #[(challenge) "\306!\307\310\311\312\n %\f\313 Q \314
!+\207" [challenge decoded passwd hash user response base64-decode-string rfc2104-hash md5 64 16 " " base64-encode-string] 7] OK t nil] 4] "imap: Authenticating using CRAM-MD5...done" "imap: Authenticating using CRAM-MD5...failed"] 4 (#$ . 20463)])
(defalias 'imap-login-p #[(buffer) "\301\302\"?\205
\301\303\"?\207" [buffer imap-capability LOGINDISABLED X-LOGIN-CMD-DISABLED] 3])
(defalias 'imap-quote-specials #[(string) "\302\303!rq\210\304\216 c\210eb\210\305\306\307\310#\203$ \311u\210\312c\210\313u\210\202 \314 +\207" [#1=#:temp-buffer string generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] re-search-forward "[\\\"]" nil t -1 "\\" 1 buffer-string] 4])
#@42 Login to server using the LOGIN command.
(defalias 'imap-login-auth #[(buffer) "\301\302!\210\303\304\"\207" [buffer message "imap: Plaintext authentication..." imap-interactive-login #[(user passwd) "\304\305\306!\307\306 !\310\260!\211\311=\203 \312\202 \n\313)\207" [user passwd status imap-error imap-send-command-wait "LOGIN \"" imap-quote-specials "\" \"" "\"" OK t nil] 7]] 3 (#$ . 21617)])
(defalias 'imap-anonymous-p #[(_buffer) "\300\207" [t] 1])
(defalias 'imap-anonymous-auth #[(buffer) "\303\304!\210rq\210\305\306\307 \310\311 Q\312Q!\211\313=\203 \314\202! \315*\207" [buffer status imap-error message "imap: Logging in anonymously..." imap-send-command-wait "LOGIN anonymous \"" user-login-name "@" system-name "\"" OK t nil] 6])
(defalias 'imap-sasl-make-mechanisms #[(buffer) "\302\303\304\305\302 \"\"\210)\207" [mecs buffer nil mapc #[(sym) "\303!\211G\304V\205 \305\304O\306\230\205 \304\307O\nB\211)\207" [sym name mecs symbol-name 5 0 "AUTH=" nil] 4] imap-capability] 5])
(defalias 'imap-sasl-auth-p #[(buffer) "\3011 \302\303!0\202 \210\304\207\205 \305\306!!\207" [buffer (error) require sasl nil sasl-find-mechanism imap-sasl-make-mechanisms] 3])
#@40 Login to server using the SASL method.
(defalias 'imap-sasl-auth #[(buffer) "\306\307!\210rq\210\310\304!\210\310\311!\210\310\312!\210\313\314!!\315\211\n\204\313 \f\2067 \316\317
\320\321 !\322\260 \2066 '\"\211\203 \323 \324
$ \325 \315\"\n\326\327\n!\203` \330\331\321 !\327\n!#\202f \330\332\321 !\"\" (\333(!\334=\203\237 \335\n\336)!\"\210\315)\325 \n\"\n\337\327\n!\203\231 \340\327\n!\341\"\202\232 \342!\210\202j \333(!\211 *\343=\203\257 \341\202\264 *+\315)\203\277 \341\202\307 \306\344!\210\345\346!\210)\202 \n,\207" [buffer user logged mechanism imap-username imap-server message "imap: Authenticating using SASL..." make-local-variable imap-sasl-client imap-sasl-step sasl-find-mechanism imap-sasl-make-mechanisms nil read-from-minibuffer "IMAP username for " " using SASL " sasl-mechanism-name ": " sasl-make-client "imap2" sasl-next-step imap-send-command sasl-step-data format "AUTHENTICATE %s %s" "AUTHENTICATE %s" imap-wait-for-tag INCOMPLETE sasl-step-set-data base64-decode-string imap-send-command-1 base64-encode-string t "" OK "Login failed..." sit-for 1 imap-default-user tag imap-continuation status imap-error] 7 (#$ . 22821)])
(defalias 'imap-digest-md5-p #[(buffer) "\301\302\"\205 \3031 \304\305!0\207\210\306\207" [buffer imap-capability AUTH=DIGEST-MD5 (error) require digest-md5 nil] 3])
#@51 Login to server using the AUTH DIGEST-MD5 method.
(defalias 'imap-digest-md5-auth #[(buffer) "\301\302!\210\303\304\"\207" [buffer message "imap: Authenticating using DIGEST-MD5..." imap-interactive-login #[(user passwd) "\304\305\306D!\307!\310=\205& \311\312\313!\210\307!\211\314=\203\" \315\202% \n\311))\207" [tag imap-continuation status imap-error imap-send-command "AUTHENTICATE DIGEST-MD5" #[(challenge) "\305\306!!\210\307\310\311\312!\"\313\n # \314\f\315\"*\207" [challenge digest-uri user passwd response digest-md5-parse-digest-challenge base64-decode-string digest-md5-digest-uri "imap" digest-md5-challenge realm digest-md5-digest-response base64-encode-string no-line-break] 4] imap-wait-for-tag INCOMPLETE nil imap-send-command-1 "" OK t] 4]] 3 (#$ . 24186)])
(defalias 'imap-open-1 #[(buffer) "rq\210\306 \210\307\211\310\3111! \312\f
\2368\313$0\202# \210\307\211\205d \314\315\"\210\316\317\"\210 \310=\203S \320!\321>\203S \322\323\"\210\324\325\"\210\2025 \322\326\"\210\320!\327>\205d )\207" [buffer imap-current-mailbox imap-current-message imap-state imap-stream imap-stream-alist erase-buffer nil initial (error quit) 2 "imap" set-process-filter imap-arrival-filter set-process-sentinel imap-sentinel process-status (open run) message "Waiting for response from %s..." accept-process-output 1 "Waiting for response from %s...done" (open run) imap-server imap-port imap-process] 6])
#@563 Open an IMAP connection to host SERVER at PORT returning a buffer.
If PORT is unspecified, a default value is used (143 except
for SSL which use 993).
STREAM indicates the stream to use, see `imap-streams' for available
streams. If nil, it choices the best stream the server is capable of.
AUTH indicates authenticator to use, see `imap-authenticators' for
available authenticators. If nil, it choices the best stream the
server is capable of.
BUFFER can be a buffer or a name of a buffer, which is created if
necessary. If nil, the buffer name is generated.
(defalias 'imap-open #[(server &optional port stream auth buffer) "\206
\306\307 \n\206\f \310#r\311!q\210\312!\203 \313!\210\314\315 \"\210\316\317!\210\320 \210 \206/ \f\n\2065
\206= !\206F \"\"\321\322\f\"\210\"\206T # \"\323!)\204f \321\324\f\"\210\317\2020\"\204 $ %%\211A%\242\211!\203 !&\236A@!\203o #!=\204 r\311\325\326!!q\210\314\315 \"\210\316\317!\210\320 \210 \206\251 \f\n\206\257
\206\267 \321\327!\"\210! \"\323p!)\204\327 \330p!\210\321\331!\"\210\202\313!\210;\203\344 \202\347 \332! '\330!\210\333'!\210p)\321\334!\"\210!\"\317\211(%)\202o \321\335\f\"\210!\"\317\211(\211%\202q )\312!\203*\336)\310\"*\"\2050)\207" [buffer server port imap-local-variables imap-server imap-port format " *imap* %s:%d" 0 get-buffer-create imap-opened imap-close mapc make-local-variable set-buffer-multibyte nil buffer-disable-undo message "imap: Connecting to %s..." imap-open-1 "imap: Connecting to %s...failed" generate-new-buffer-name " *temp*" "imap: Reconnecting with stream `%s'..." kill-buffer "imap: Reconnecting with stream `%s'...failed" buffer-name rename-buffer "imap: Reconnecting with stream `%s'...done" "imap: Connecting to %s...done" make-vector auth imap-auth stream imap-stream imap-default-stream imap-streams streams imap-stream-alist name imap-capability imap-mailbox-prime imap-mailbox-data] 5 (#$ . 25639)])
#@73 If non-nil, check if IMAP is open.
See the function `imap-ping-server'.
(custom-declare-variable 'imap-ping-server t '(#$ . 27615) :version "23.1" :group 'imap :type 'boolean)
#@114 Return non-nil if connection to imap server in BUFFER is open.
If BUFFER is nil then the current buffer is used.
(defalias 'imap-opened #[(&optional buffer) "\303\206 p!\211\205- \304!\205- rq\210 \205, \305 !\306>\205, \n\203+ \302 \202, \307)\207" [buffer imap-process imap-ping-server get-buffer buffer-live-p process-status (open run) t] 2 (#$ . 27798)])
#@173 Ping the IMAP server in BUFFER with a "NOOP" command.
Return non-nil if the server responds, and nil if it does not
respond. If BUFFER is nil, the current buffer is used.
(defalias 'imap-ping-server #[(&optional buffer) "\3031 \304\305\"\211\306=\203 \307\202 \310)0\207\210\310\207" [buffer status imap-error (error) imap-send-command-wait "NOOP" OK t nil] 4 (#$ . 28169)])
#@349 Authenticate to server in BUFFER, using current buffer if nil.
It uses the authenticator specified when opening the server.
Optional arguments USER and PASSWD specify the username and
password to use if the authenticator requires a username and/or
password. If omitted or nil, the authenticator may query the
user for a username and/or password.
(defalias 'imap-authenticate #[(&optional user passwd buffer) "r\206 pq\210 \306=\204 \307=\206\255 \310=\206\255 \311=\202\255 \312\303!\210\312\305!\210\312\313!\210\n\2032 \n\f\2038 \f\203W \236\211 \205\255 \314 8p!\205\255 \307\211\202\255 \315 \211A\242\211\203\253 \236\211 A@p!\203^ \316\317#\210\314 8p!\203\240 \316\320#\210\307\315\211\202` \316\321#\210\202^ * )\207" [buffer imap-state user imap-username passwd imap-password nonauth auth selected examine make-local-variable imap-last-authenticator 2 nil message "imap: Authenticating to `%s' using `%s'..." "imap: Authenticating to `%s' using `%s'...done" "imap: Authenticating to `%s' using `%s'...failed" imap-auth imap-authenticator-alist imap-authenticators auths imap-server] 5 (#$ . 28559)])
#@85 Close connection to server in BUFFER.
If BUFFER is nil, the current buffer is used.
(defalias 'imap-close #[(&optional buffer) "r\206 pq\210\304 \203 \3051 \306 0\202 \210\202 \210 \203, \307 !\310>\203, \311 !\210\312\211\312\313 \210)\314\207" [buffer imap-process imap-current-mailbox imap-current-message imap-opened (quit) imap-logout-wait process-status (open run) delete-process nil erase-buffer t] 3 (#$ . 29729)])
#@181 Return a list of identifiers which server in BUFFER support.
If IDENTIFIER, return non-nil if it's among the servers capabilities.
If BUFFER is nil, the current buffer is assumed.
(defalias 'imap-capability #[(&optional identifier buffer) "r\206 pq\210 \204# \305\306!\211\307=\203 \310\202 \n\311)\204# \312\f\2032 \313\314\f!\226! >\2023 )\207" [buffer imap-capability status imap-error identifier imap-send-command-wait "CAPABILITY" OK t nil (IMAP2) intern symbol-name] 4 (#$ . 30168)])
#@351 Identify client to server in BUFFER, and return server identity.
LIST-OF-VALUES is nil, or a plist with identifier and value
strings to send to the server to identify the client.
Return a list of identifiers which server in BUFFER support, or
nil if it doesn't support ID or returns no information.
If BUFFER is nil, the current buffer is assumed.
(defalias 'imap-id #[(&optional list-of-values buffer) "r\206 pq\210\305\306!\2053 \307 \204 \310\202 \311\312\313 \314#\315Q!\211\316=\203+ \317\202. \n\320)\2053 \f)\207" [buffer list-of-values status imap-error imap-id imap-capability ID imap-send-command-wait "ID NIL" "ID (" mapconcat #[(el) "\301\301Q\207" [el "\""] 3] " " ")" OK t nil] 7 (#$ . 30673)])
#@100 Return a namespace hierarchy at server in BUFFER.
If BUFFER is nil, the current buffer is assumed.
(defalias 'imap-namespace #[(&optional buffer) "r\206 pq\210 \204 \302\303!\203 \304\305!\210 )\207" [buffer imap-namespace imap-capability NAMESPACE imap-send-command-wait "NAMESPACE"] 2 (#$ . 31398)])
(defalias 'imap-send-command-wait #[(command &optional buffer) "\302\303 \" \"\207" [command buffer imap-wait-for-tag imap-send-command] 4])
(defalias 'imap-logout #[(&optional buffer) "\204 p \203? \3062 \307 \310\311#\211 B\312\216\313\314\"+0\211 \306=\203< \31517 rq\210\316
!)0\202= \210\310\202= \f)\207\313\314\"\207" [buffer imap-logout-timeout -with-timeout-timer- with-timeout-timers -with-timeout-value- imap-process #1=#:timeout run-with-timer nil #[nil "\300\301\211\"\207" [throw #1#] 3] #[nil "\301!\207" [-with-timeout-timer- cancel-timer] 2] imap-send-command "LOGOUT" (error) delete-process] 5])
(defalias 'imap-logout-wait #[(&optional buffer) "\204 p \203? \3062 \307 \310\311#\211 B\312\216\313\314\"+0\211 \306=\203< \31517 rq\210\316
!)0\202= \210\310\202= \f)\207\313\314\"\207" [buffer imap-logout-timeout -with-timeout-timer- with-timeout-timers -with-timeout-value- imap-process #1=#:timeout run-with-timer nil #[nil "\300\301\211\"\207" [throw #1#] 3] #[nil "\301!\207" [-with-timeout-timer- cancel-timer] 2] imap-send-command-wait "LOGOUT" (error) delete-process] 5])
(defalias 'imap-mailbox-put #[(propname value &optional mailbox buffer) "r\206 pq\210 \203 \306\307\n\206 \"\f
#\210\202$ \310\311\f
\np%\210)\312\207" [buffer imap-mailbox-data mailbox imap-current-mailbox propname value put intern error "Imap-mailbox-data is nil, prop %s value %s mailbox %s buffer %s" t] 6])
(defalias 'imap-mailbox-get-1 #[(propname &optional mailbox) "\304\206 \n\" N\207" [mailbox imap-current-mailbox imap-mailbox-data propname intern-soft] 3])
(put 'imap-mailbox-get-1 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-mailbox-get #[(propname &optional mailbox buffer) "\n\203 \205! \3061 \307 \310\"0\202! \210\311\312 \"\210 \202! )r \206) pq\210\f\2061
\313\2069
\f\"\fN,\207" [mailbox string imap-use-utf7 buffer propname imap-current-mailbox (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." intern-soft imap-mailbox-data] 3])
(defalias 'imap-mailbox-map-1 #[(func &optional mailbox-decoder buffer) "r\206 pq\210\303\304\305\n\"\210 *\207" [buffer result imap-mailbox-data nil mapatoms #[(s) " \203
\304\n!!\202 \304\n!! B\211\207" [func mailbox-decoder s result symbol-name] 4]] 3])
#@147 Map a function across each mailbox in `imap-mailbox-data', returning a list.
Function should take a mailbox name (a string) as
the only argument.
(defalias 'imap-mailbox-map #[(func &optional buffer) "\302\303 #\207" [func buffer imap-mailbox-map-1 imap-utf7-decode] 4 (#$ . 34023)])
(defalias 'imap-current-mailbox #[(&optional buffer) "r\206 pq\210 \203( \n\205) \3041 \305\n\306\"0\202) \210\307\310\n\"\210\n\202) \n*\207" [buffer imap-current-mailbox string imap-use-utf7 (error) utf7-decode t message "imap: Could not UTF7 decode `%s', using it undecoded..."] 3])
(defalias 'imap-current-mailbox-p-1 #[(mailbox &optional examine) " \230\205 \n\203 \302=\206 \n?\205 \304=\207" [mailbox imap-current-mailbox examine imap-state selected] 2])
(defalias 'imap-current-mailbox-p #[(mailbox &optional examine buffer) "r\206 pq\210\305 \203) \n\205* \3061 \307\n\310\"0\202* \210\311\312\n\"\210\n\202* \n)\f\")\207" [buffer mailbox string imap-use-utf7 examine imap-current-mailbox-p-1 (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..."] 4])
#@83 Select MAILBOX on server in BUFFER.
If EXAMINE is non-nil, do a read-only select.
(defalias 'imap-mailbox-select-1 #[(mailbox &optional examine) "\306 \"\203 \n\207\307 \203 \310\202 \311\312\313R!\211\314=\203% \315\202( \316)\203? \317
\320\" \203: \301\202; \321\n\207\316\211\207" [mailbox examine imap-current-mailbox status imap-error imap-message-prime imap-current-mailbox-p-1 imap-send-command-wait "EXAMINE" "SELECT" " \"" "\"" OK t nil make-vector 0 selected imap-message-data imap-state] 6 (#$ . 35126)])
(defalias 'imap-mailbox-select #[(mailbox &optional examine buffer) "r\206 pq\210\305 \203) \n\205* \3061 \307\n\310\"0\202* \210\311\312\n\"\210\n\202* \n)\f\" \203L \n\205M \3131B \314\n\310\"0\202M \210\311\315\n\"\210\n\202M \n*\207" [buffer mailbox string imap-use-utf7 examine imap-mailbox-select-1 (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." (error) utf7-decode "imap: Could not UTF7 decode `%s', using it undecoded..."] 4])
(defalias 'imap-mailbox-examine-1 #[(mailbox &optional buffer) "r\206 pq\210\302 \303\")\207" [buffer mailbox imap-mailbox-select-1 examine] 3])
#@38 Examine MAILBOX on server in BUFFER.
(defalias 'imap-mailbox-examine #[(mailbox &optional buffer) "\302\303 #\207" [mailbox buffer imap-mailbox-select examine] 4 (#$ . 36293)])
#@61 Close current folder in BUFFER, without expunging articles.
(defalias 'imap-mailbox-unselect #[(&optional buffer) "r\206 pq\210 \306=\204V \307\310!\203) \311\312!\211\313=\203\" \314\202% \n\315)\204V \311\316\f\317Q!\211\313=\203: \314\202= \n\315)\205] \311\320!\211\313=\203O \314\202R \n\315)\205] \315\211\306\314)\207" [buffer imap-state status imap-error imap-current-mailbox imap-message-data auth imap-capability UNSELECT imap-send-command-wait "UNSELECT" OK t nil "EXAMINE \"" "\"" "CLOSE"] 5 (#$ . 36477)])
#@160 Expunge articles in current folder in BUFFER.
If ASYNCH, do not wait for successful completion of the command.
If BUFFER is nil the current buffer is assumed.
(defalias 'imap-mailbox-expunge #[(&optional asynch buffer) "r\206 pq\210 \205/ \n\306=?\205/ \203 \307\310!\202/ \311\310!\211 \312=\203+ \313\202. \f\314))\207" [buffer imap-current-mailbox imap-state asynch status imap-error examine imap-send-command "EXPUNGE" imap-send-command-wait OK t nil] 3 (#$ . 37014)])
#@167 Expunge articles and close current folder in BUFFER.
If ASYNCH, do not wait for successful completion of the command.
If BUFFER is nil the current buffer is assumed.
(defalias 'imap-mailbox-close #[(&optional asynch buffer) "r\206 pq\210 \205C \n\203& \306\307\310!\311\312\313\314\315 \316BB\317BBF\"\210\202B \320\310!\211\321=\2034 \322\2027 \323)\203B \323\211\324\322)\207" [buffer imap-current-mailbox asynch status imap-error imap-message-data imap-add-callback imap-send-command "CLOSE" lambda (tag status) (message "IMAP mailbox `%s' closed... %s" imap-current-mailbox status) when eq (imap-current-mailbox) ((setq imap-current-mailbox nil imap-message-data nil imap-state 'auth)) imap-send-command-wait OK t nil auth imap-state] 10 (#$ . 37499)])
(defalias 'imap-mailbox-create-1 #[(mailbox) "\303\304\305E!\211\306=\203 \307\202 \310)\207" [mailbox status imap-error imap-send-command-wait "CREATE \"" "\"" OK t nil] 5])
#@85 Create MAILBOX on server in BUFFER.
If BUFFER is nil the current buffer is assumed.
(defalias 'imap-mailbox-create #[(mailbox &optional buffer) "r\206 pq\210\304 \203) \n\205* \3051 \306\n\307\"0\202* \210\310\311\n\"\210\n\202* \n)!)\207" [buffer mailbox string imap-use-utf7 imap-mailbox-create-1 (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..."] 4 (#$ . 38452)])
#@85 Delete MAILBOX on server in BUFFER.
If BUFFER is nil the current buffer is assumed.
(defalias 'imap-mailbox-delete #[(mailbox &optional buffer) "\n\203 \205! \3061 \307 \310\"0\202! \210\311\312 \"\210 \202! )r \206) pq\210\313\314\315E!\211 \316=\203< \310\202? \f\317+\207" [mailbox string imap-use-utf7 buffer status imap-error (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "DELETE \"" "\"" OK nil] 5 (#$ . 38868)])
#@104 Rename mailbox OLDNAME to NEWNAME on server in BUFFER.
If BUFFER is nil the current buffer is assumed.
(defalias 'imap-mailbox-rename #[(oldname newname &optional buffer) "\n\203 \205! \3061 \307 \310\"0\202! \210\311\312 \"\210 \202! ) \n\203B \205C \30618 \307 \310\"0\202C \210\311\312 \"\210 \202C )r\f\206L pq\210\313\314\315\316 \316\257!\211 \317=\203c \310\202g
\320,\207" [oldname string imap-use-utf7 newname buffer status (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "RENAME \"" "\" " "\"" OK nil imap-error] 8 (#$ . 39368)])
#@267 Return a list of subscribed mailboxes on server in BUFFER.
If ROOT is non-nil, only list matching mailboxes. If ADD-DELIMITER is
non-nil, a hierarchy delimiter is added to root. REFERENCE is an
implementation-specific string that has to be passed to lsub command.
(defalias 'imap-mailbox-lsub #[(&optional root reference add-delimiter buffer) "r\206 pq\210 \203R \306\n \307 \206
\"\fN*\204R \310\311\312\n \203J \205L \3131> \314\315\"0\202L \210\316\317\"\210\202L )\320\260!\210\321\322!\210\310\323\312\n \203\201 \205\203 \3131u \314\315\"0\202\203 \210\316\317\"\210\202\203 ) \205\230 \306\n \307 \206\222
\"\fN*\324\260!\211 \325=\203\250 \315\202\255 \326)\205\274 \326 \321\327!\210 \237))\207" [buffer add-delimiter root mailbox propname imap-current-mailbox delimiter intern-soft imap-send-command-wait "LIST \"" "\" \"" (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\"" imap-mailbox-map-1 #[(mailbox) "\301\302\303#\207" [mailbox imap-mailbox-put lsub nil] 4] "LSUB \"" "%\"" OK nil #[(mailbox) "\306\307\206\n \n \" N*\205:
\2032 \f\2053 \3101( \311\f\312\"0\2023 \210\313\314\f\"\210\f\2023 \f)
B\211
\207" [mailbox propname imap-current-mailbox imap-mailbox-data string imap-use-utf7 lsub intern-soft (error) utf7-decode t message "imap: Could not UTF7 decode `%s', using it undecoded..." out] 3] imap-mailbox-data reference string imap-use-utf7 status imap-error out] 9 (#$ . 39994)])
#@219 Return a list of mailboxes matching ROOT on server in BUFFER.
If ADD-DELIMITER is non-nil, a hierarchy delimiter is added to
root. REFERENCE is an implementation-specific string that has to be
passed to list command.
(defalias 'imap-mailbox-list #[(root &optional reference add-delimiter buffer) "r\206 pq\210 \203R \306\n \307 \206
\"\fN*\204R \310\311\312\n \203J \205L \3131> \314\315\"0\202L \210\316\317\"\210\202L )\320\260!\210\321\322!\210\310\311\312\n \203\201 \205\203 \3131u \314\315\"0\202\203 \210\316\317\"\210\202\203 ) \205\230 \306\n \307 \206\222
\"\fN*\323\260!\211 \324=\203\250 \315\202\255 \325)\205\274 \325 \321\326!\210 \237))\207" [buffer add-delimiter root mailbox propname imap-current-mailbox delimiter intern-soft imap-send-command-wait "LIST \"" "\" \"" (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\"" imap-mailbox-map-1 #[(mailbox) "\301\302\303#\207" [mailbox imap-mailbox-put list nil] 4] "%\"" OK nil #[(mailbox) "\306\307\206\n \n \" N*\205:
\2032 \f\2053 \3101( \311\f\312\"0\2023 \210\313\314\f\"\210\f\2023 \f)
B\211
\207" [mailbox propname imap-current-mailbox imap-mailbox-data string imap-use-utf7 list intern-soft (error) utf7-decode t message "imap: Could not UTF7 decode `%s', using it undecoded..." out] 3] imap-mailbox-data reference string imap-use-utf7 status imap-error out] 9 (#$ . 41508)])
#@95 Send the SUBSCRIBE command on the MAILBOX to server in BUFFER.
Returns non-nil if successful.
(defalias 'imap-mailbox-subscribe #[(mailbox &optional buffer) "r\206 pq\210\306\307 \203* \n\205+ \3101 \311\n\312\"0\202+ \210\313\314\n\"\210\n\202+ \n)\315Q!\211 \316=\203: \312\202= \f\317*\207" [buffer mailbox string imap-use-utf7 status imap-error imap-send-command-wait "SUBSCRIBE \"" (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\"" OK nil] 6 (#$ . 42963)])
#@95 Send the SUBSCRIBE command on the MAILBOX to server in BUFFER.
Returns non-nil if successful.
(defalias 'imap-mailbox-unsubscribe #[(mailbox &optional buffer) "r\206 pq\210\306\307 \203* \n\205+ \3101 \311\n\312\"0\202+ \210\313\314\n\"\210\n\202+ \n)\315Q!\211 \316=\203: \312\202= \f\317*\207" [buffer mailbox string imap-use-utf7 status imap-error imap-send-command-wait "UNSUBSCRIBE " (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\"" OK nil] 6 (#$ . 43480)])
#@328 Get status items ITEM in MAILBOX from server in BUFFER.
ITEMS can be a symbol or a list of symbols, valid symbols are one of
the STATUS data items -- i.e. `messages', `recent', `uidnext', `uidvalidity',
or `unseen'. If ITEMS is a list of symbols, a list of values is
returned, if ITEMS is a symbol only its value is returned.
(defalias 'imap-mailbox-status #[(mailbox items &optional buffer) "r\206 pq\210\306\307 \203* \n\205+ \3101 \311\n\312\"0\202+ \210\313\314\n\"\210\n\202+ \n)\315\316\317\f<\2038 \f\202: \fC\"\226F!\211 \320=\203I \312\202M
\321)\205a \f<\203] \322\323\f\"\202a \324\f \")\207" [buffer mailbox string imap-use-utf7 items status imap-send-command-wait "STATUS \"" (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\" " format "%s" OK nil mapcar #[(item) "\302 \"\207" [item mailbox imap-mailbox-get] 3] imap-mailbox-get imap-error] 8 (#$ . 44000)])
#@260 Send status item requests ITEMS on MAILBOX to server in BUFFER.
ITEMS can be a symbol or a list of symbols, valid symbols are one of
the STATUS data items -- i.e., `messages', `recent', `uidnext', `uidvalidity'
or `unseen'. The IMAP command tag is returned.
(defalias 'imap-mailbox-status-asynch #[(mailbox items &optional buffer) "r\206 pq\210\305\306 \203* \n\205+ \3071 \310\n\311\"0\202+ \210\312\313\n\"\210\n\202+ \n)\314\315\316\f<\2038 \f\202: \fC\"\226F!)\207" [buffer mailbox string imap-use-utf7 items imap-send-command "STATUS \"" (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\" " format "%s"] 7 (#$ . 44930)])
#@43 Get ACL on MAILBOX from server in BUFFER.
(defalias 'imap-mailbox-acl-get #[(&optional mailbox buffer) "\n\203 \205! \3061 \307 \310\"0\202! \210\311\312 \"\210 \202! )r \206) pq\210\313\314\2062 \f\315E!\211 \316=\203@ \310\202D
\317)\205^ \320\206N \f \321\206W \f\"N**\207" [mailbox string imap-use-utf7 buffer imap-current-mailbox status (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "GETACL \"" "\"" OK nil acl intern-soft imap-error propname imap-mailbox-data] 5 (#$ . 45609)])
#@75 Change/set ACL for IDENTIFIER to RIGHTS in MAILBOX from server in BUFFER.
(defalias 'imap-mailbox-acl-set #[(identifier rights &optional mailbox buffer) "\n\203 \205! \3061 \307 \310\"0\202! \210\311\312 \"\210 \202! )r \206) pq\210\313\314\2062 \f\315
\316\257!\211 \317=\203F \310\202K \320+\207" [mailbox string imap-use-utf7 buffer imap-current-mailbox identifier (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "SETACL \"" "\" " " " OK nil rights status imap-error] 8 (#$ . 46183)])
#@75 Remove <id,rights> pairs for IDENTIFIER from MAILBOX on server in BUFFER.
(defalias 'imap-mailbox-acl-delete #[(identifier &optional mailbox buffer) "\n\203 \205! \3061 \307 \310\"0\202! \210\311\312 \"\210 \202! )r \206) pq\210\313\314\2062 \f\315
F!\211 \316=\203B \310\202G \317+\207" [mailbox string imap-use-utf7 buffer imap-current-mailbox identifier (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "DELETEACL \"" "\" " OK nil status imap-error] 6 (#$ . 46756)])
(defalias 'imap-current-message #[(&optional buffer) "r\206 pq\210 )\207" [buffer imap-current-message] 1])
(defalias 'imap-list-to-message-set #[(list) "\301\302<\203 \202
C\303#\207" [list mapconcat #[(item) "\301!\207" [item number-to-string] 2] ","] 4])
(defalias 'imap-range-to-message-set #[(range) "\301\302<\203 A<\204 C\202 \303#\207" [range mapconcat #[(item) ":\203
\301\302@A#\207\301\303\"\207" [item format "%d:%d" "%d"] 4] ","] 4])
(defalias 'imap-fetch-asynch #[(uids props &optional nouidfetch buffer) "r\206 pq\210\304\305\306 \203 \307\202 \310\n<\203 \311\n!\202 \n $!)\207" [buffer nouidfetch uids props imap-send-command format "%sFETCH %s %s" "" "UID " imap-list-to-message-set] 6])
#@169 Fetch properties PROPS from message set UIDS from server in BUFFER.
UIDS can be a string, number or a list of numbers. If RECEIVE is
non-nil, return these properties.
(defalias 'imap-fetch #[(uids props &optional receive nouidfetch buffer) "r\206 pq\210\306\307\310 \203 \311\202 \312\n<\203 \313\n!\202 \n $!\211 \314=\203. \315\2021 \f\316)\205T \203? \n;\203C \315\202T \n<\203O \317\320\n\"\202T \321\n\")\207" [buffer nouidfetch uids props status imap-error imap-send-command-wait format "%sFETCH %s %s" "" "UID " imap-list-to-message-set OK t nil mapcar #[(uid) "<\203\n \302\303\"\207\304 \"\207" [receive uid mapcar #[(prop) "\302 \"\207" [uid prop imap-message-get] 3] imap-message-get] 3] imap-message-get receive] 7 (#$ . 48040)])
(defalias 'imap-message-put #[(uid propname value &optional buffer) "r\206 pq\210 \203 \305\306\307\n! \" \f#\210\202\" \310\311\n \fp%\210)\312\207" [buffer imap-message-data uid propname value put intern number-to-string error "Imap-message-data is nil, uid %s prop %s value %s buffer %s" t] 6])
(defalias 'imap-message-get #[(uid propname &optional buffer) "r\206 pq\210\304\305 !\n\" N)\207" [buffer uid imap-message-data propname intern-soft number-to-string] 3])
#@78 Map a function across each message in `imap-message-data', returning a list.
(defalias 'imap-message-map #[(func propname &optional buffer) "r\206 pq\210\303\304\305\n\"\210 *\207" [buffer result imap-message-data nil mapatoms #[(s) " \304N \nN\" B\211\207" [func s propname result UID] 4]] 3 (#$ . 49278)])
(defalias 'imap-message-envelope-date '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (0)] 6]))
(defalias 'imap-message-envelope-subject '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (1)] 6]))
(defalias 'imap-message-envelope-from '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (2)] 6]))
(defalias 'imap-message-envelope-sender '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (3)] 6]))
(defalias 'imap-message-envelope-reply-to '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (4)] 6]))
(defalias 'imap-message-envelope-to '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (5)] 6]))
(defalias 'imap-message-envelope-cc '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (6)] 6]))
(defalias 'imap-message-envelope-bcc '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (7)] 6]))
(defalias 'imap-message-envelope-in-reply-to '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (8)] 6]))
(defalias 'imap-message-envelope-message-id '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (9)] 6]))
(defalias 'imap-message-body '(macro . #[(uid &optional buffer) "\302\303\304BB\305 \306BBE\207" [buffer uid with-current-buffer or ((current-buffer)) imap-message-get ('BODY)] 5]))
(defalias 'imap-search #[(predicate &optional buffer) "r\206 pq\210\306\307\310\"\210\311\312 P!\211\313=\203 \314\202 \n\315)\205U \307\f \316
\206/ \f\"N*\310=\203C \317\320!\210\315\202U \307\f \316
\206N \f\"N*)\207" [buffer predicate status imap-error imap-current-mailbox mailbox imap-mailbox-put search dummy imap-send-command-wait "UID SEARCH " OK t nil intern-soft message "Missing SEARCH response to a SEARCH command (server not RFC compliant)..." propname imap-mailbox-data] 4])
#@109 Return t if FLAG can be permanently saved on articles.
MAILBOX specifies a mailbox on the server in BUFFER.
(defalias 'imap-message-flag-permanent-p #[(flag &optional mailbox buffer) "r\206 pq\210\303\304\305 \"\235\206 \n\304\305 \"\235)\207" [buffer mailbox flag "\\*" imap-mailbox-get permanentflags] 4 (#$ . 52446)])
(defalias 'imap-message-flags-set #[(articles flags &optional silent buffer) "\205. \205. r\n\206 pq\210\306\307\310 \205 \311\312 \313\260!\211 \314=\203* \315\202- \f\316*\207" [articles flags buffer silent status imap-error imap-send-command-wait "UID STORE " " FLAGS" ".SILENT" " (" ")" OK t nil] 9])
(defalias 'imap-message-flags-del #[(articles flags &optional silent buffer) "\205. \205. r\n\206 pq\210\306\307\310 \205 \311\312 \313\260!\211 \314=\203* \315\202- \f\316*\207" [articles flags buffer silent status imap-error imap-send-command-wait "UID STORE " " -FLAGS" ".SILENT" " (" ")" OK t nil] 9])
(defalias 'imap-message-flags-add #[(articles flags &optional silent buffer) "\205. \205. r\n\206 pq\210\306\307\310 \205 \311\312 \313\260!\211 \314=\203* \315\202- \f\316*\207" [articles flags buffer silent status imap-error imap-send-command-wait "UID STORE " " +FLAGS" ".SILENT" " (" ")" OK t nil] 9])
(defalias 'imap-string-to-integer #[(string &optional base) "\304 \"\211 V\203 \305\306\307\n\"!\202 \n)\207" [string base number most-positive-fixnum string-to-number error format "String %s cannot be converted to a Lisp integer"] 5])
#@281 Like `imap-fetch', but DTRT with Exchange 2007 bug.
However, UIDS here is a cons, where the car is the canonical form
of the UIDS specification, and the cdr is the one which works with
Exchange 2007 or, potentially, other buggy servers.
See `imap-enable-exchange-bug-workaround'.
(defalias 'imap-fetch-safe #[(uids props &optional receive nouidfetch buffer) "\3061 \307\310 \203 \nA\202 \n@ \f
%)0\207 \204E \311\312A@\"\203E r
\2062 pq\210\313\301!\210\307\310\nA \f
$)\202M \314@A\")\207" [debug-on-error imap-enable-exchange-bug-workaround uids props receive nouidfetch (error) t imap-fetch string-match "The specified message set is invalid" make-local-variable signal buffer data] 6 (#$ . 53955)])
(defalias 'imap-message-copyuid-1 #[(mailbox) "\306\307!\203+ \310\311\206 \n \" N*@\312\313\310\311\206\" \n \" N*8!D\207\n\f\314\313\315\" \316!\205n \317\320\321\"\205Z \322\311\206M \n \" N*\323\324\325\326\327\"\"D \203k \330 \331=\"\210\202n \332 \210+\207" [mailbox propname imap-current-mailbox imap-mailbox-data imap-state imap-message-data imap-capability UIDPLUS copyuid intern-soft string-to-number 2 make-vector 0 imap-mailbox-examine-1 imap-fetch-safe ("*" . "*:*") "UID" uidvalidity apply max imap-message-map #[(uid _prop) "\207" [uid] 1] UID imap-mailbox-select examine imap-mailbox-unselect state old-mailbox] 6])
(defalias 'imap-message-copyuid #[(mailbox &optional buffer) "r\206 pq\210\304 \203) \n\205* \3051 \306\n\307\"0\202* \210\310\311\n\"\210\n\202* \n)!)\207" [buffer mailbox string imap-use-utf7 imap-message-copyuid-1 (error) utf7-decode t message "imap: Could not UTF7 decode `%s', using it undecoded..."] 4])
#@316 Copy ARTICLES to MAILBOX on server in BUFFER.
ARTICLES is a string message set. Create mailbox if it doesn't exist,
unless DONT-CREATE is non-nil. On success, return a list with
the UIDVALIDITY of the mailbox the article(s) was copied to as the
first element. The rest of list contains the saved articles' UIDs.
(defalias 'imap-message-copy #[(articles mailbox &optional dont-create no-copyuid buffer) "\205\206 r \206\n pq\210\n\f\203, \205- \3061\" \307 \310\"0\202- \210\311\312 \"\210 \202- )\313\314\n\315\260\n \316!\211 \317=\203J \310\202O \320)\203W \310\202y ?\205y \321\n!\205y \316!\211 \317=\203s \310\202x \320)*\205\205 \206\205 \322\n!*\207" [articles buffer mailbox string imap-use-utf7 imap-current-target-mailbox (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "UID COPY " " \"" "\"" imap-send-command-wait OK nil imap-mailbox-create-1 imap-message-copyuid-1 cmd status imap-error dont-create no-copyuid] 6 (#$ . 55651)])
(defalias 'imap-message-appenduid-1 #[(mailbox) "\306\307!\203 \310\311\206 \n \" N*\207\n\f\312\313\314\" \315!\205Y \316\317\320\"\205E \321\311\2068 \n \" N*\322\323\324\325\326\"\"D\203V \327\330=\"\210\202Y \331 \210+\207" [mailbox propname imap-current-mailbox imap-mailbox-data imap-state imap-message-data imap-capability UIDPLUS appenduid intern-soft make-vector 2 0 imap-mailbox-examine-1 imap-fetch-safe ("*" . "*:*") "UID" uidvalidity apply max imap-message-map #[(uid _prop) "\207" [uid] 1] UID imap-mailbox-select examine imap-mailbox-unselect state old-mailbox] 6])
(defalias 'imap-message-appenduid #[(mailbox &optional buffer) "r\206 pq\210\304 \203) \n\205* \3051 \306\n\307\"0\202* \210\310\311\n\"\210\n\202* \n)!)\207" [buffer mailbox string imap-use-utf7 imap-message-appenduid-1 (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..."] 4])
#@206 Append ARTICLE (a buffer) to MAILBOX on server in BUFFER.
FLAGS and DATE-TIME is currently not used. Return a cons holding
uidvalidity of MAILBOX and UID the newly created article got, or nil
on failure.
(defalias 'imap-message-append #[(mailbox article &optional _flags _date-time buffer) "\n\203 \205! \3061 \307 \310\"0\202! \210\311\312 \"\210 \202! )r \206) pq\210 \313\314\315
F!\211 \316=\203@ \310\202E \317*\205L \320!*\207" [mailbox string imap-use-utf7 buffer imap-current-target-mailbox article (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "APPEND \"" "\" " OK nil imap-message-appenduid-1 status imap-error] 6 (#$ . 57591)])
#@78 Return number of lines in article by looking at the mime bodystructure BODY.
(defalias 'imap-body-lines #[(body) "<\203; @;\2033 @\226\301\230\203 \3028\247\203 \3028\207@\226\303\230\2031 \3048\247\2031 \3048\207\305\207\306\307\310\311\"\"\207\305\207" [body "TEXT" 7 "MESSAGE" 9 0 apply + mapcar imap-body-lines] 5 (#$ . 58317)])
#@28 Return a FROM string line.
(defalias 'imap-envelope-from #[(from) "\205 \301H\301H\205 \302\303H\304\305H\301H\205 \306\260\207" [from 0 " <" 2 "@" 3 ">"] 7 (#$ . 58667)])
(defalias 'imap-add-callback #[(tag func) "\303 BC\n\"\211\207" [tag func imap-callbacks append] 3])
(defalias 'imap-send-command-1 #[(cmdstr) " P\303!\210\304\n\"\207" [cmdstr imap-client-eol imap-process imap-log process-send-string] 3])
(defalias 'imap-send-command #[(command &optional buffer) "r\206 pq\210 <\204 C\nT\211\306\211 \307\n!\310P \211A\242\211\203\345 \f;\2035 \fP\202 \311\f!\203\275 \306 r\fq\210 \203S \312 \313\232\204m eb\210\314\313\306\315#\203m \316 !\210\202] \204v \312 ) \317\320 \"P+\321\216\322 !\210\306\323
!\324=\204\225 \306\202\271 !\" # $r\fq\210\325\f!\210\326$ed#\210)\327$ \"\210+)\202 \330\f!\203\336 \322 !\210\306\331\216\323
!\324=\205\331 \f%! B)\202 \332\333!\210\202 \203\355 \322 !\210
,\207" [buffer command imap-tag cmdstr cmd tag nil number-to-string " " bufferp buffer-size "
\n" search-forward t replace-match format "{%d}" #[nil "\301\211\207" [imap-continuation nil] 2] imap-send-command-1 imap-wait-for-tag INCOMPLETE imap-log process-send-region process-send-string functionp #[nil "\301\211\207" [imap-continuation nil] 2] error "Unknown command type" imap-client-eol imap-calculate-literal-size-first size calcfirst eol imap-process imap-stream stream process imap-continuation] 4])
(defalias 'imap-wait-for-tag #[(tag &optional buffer) "r\206 pq\210\306\n\204J \307 !\310>\203J \f
W\203J \311 \312\245\306 \211 \313W\2043 \314\315\316\"\210\317 \320!\320\320!Z\321_!#\210*\202\n \n\204Z \f
W\203Z \317 \322\211#\210 \203b \315\323!\210\307 !\324>\205z
\236\206z \n\203y \325\202z \326*\207" [buffer imap-have-messaged imap-continuation imap-process imap-reached-tag tag nil process-status (open run) buffer-size 1024 10 t message "imap read: %dk" accept-process-output truncate 1000 0 "" (open run) INCOMPLETE OK message-log-max len imap-read-timeout imap-failed-tags] 8])
(defalias 'imap-sentinel #[(process string) "\301!\207" [process delete-process] 2])
#@112 Return point at end of current line, taking into account literals.
Return nil if no complete line has arrived.
(defalias 'imap-find-next-line #[nil "\301\302Q\303\304#\205+ \305\306!\203* d`\307\305\306!!\\W?\205+ `\307\305\306!!\\b\210\310 \207`\207" [imap-server-eol re-search-forward "\\|{\\([0-9]+\\)}" nil t match-string 1 string-to-number imap-find-next-line] 5 (#$ . 60853)])
#@22 IMAP process filter.
(defalias 'imap-arrival-filter #[(proc string) "\305\306!!\205h r\306!q\210db\210 c\210\307 !\210\310eb\210\311 \211\205g \214e\n}\210\312 G[!\210eb\210\313\216\f\314=\203@ \315 \210\202c \f\316=\204X \f\317=\204X \f\320=\204X \f\321=\203^ \322 \210\202c \323\324\f\"\210*\202 *\207" [proc string end imap-server-eol imap-state buffer-name process-buffer imap-log nil imap-find-next-line delete-char #[nil "ed|\207" [] 2] initial imap-parse-greeting auth nonauth selected examine imap-parse-response message "Unknown state %s in arrival filter"] 3 (#$ . 61244)])
(defalias 'imap-forward #[nil "m\206 \300u\207" [nil] 1])
(put 'imap-forward 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-number #[nil "\300\301!\205 \302\303\304!!\304\225b\210\207" [looking-at "[0-9]+" string-to-number match-string 0] 3])
(put 'imap-parse-number 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-literal #[nil "\302\303!\205# \304\225\305\306\307!!d \\W?\205\" \\b\210 \211\\{*\207" [len pos looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string 1] 4])
(put 'imap-parse-literal 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-string #[nil "\304f\305=\2036 \306u\210`\307\310\304w\210 `{\304f\311=\2030 `T\312u\210\310\304w\210 `{P\202 \306u\210*\207\304f\313=\205` \314\315!\205` \316\225\317\320\306!!d \n\\W?\205_ \n\\b\210 \211\n\\{*\207" [name p len pos nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string] 4])
(put 'imap-parse-string 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-nil #[nil "\300\301!\205 \302\225b\207" [looking-at "NIL" 0] 2])
(put 'imap-parse-nil 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-nstring #[nil "\304f\305=\2038 \306u\210`\307\310\304w\210 `{\304f\311=\2030 `T\312u\210\310\304w\210 `{P\202 \306u\210*\202b \304f\313=\203e \314\315!\203e \316\225\317\320\306!!d \n\\W?\205a \n\\b\210 \211\n\\{*\206p \314\321!\203o \316\225b\210\304\207" [name p len pos nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL"] 4])
(put 'imap-parse-nstring 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-astring #[nil "\304f\305=\2038 \306u\210`\307\310\304w\210 `{\304f\311=\2030 `T\312u\210\310\304w\210 `{P\202 \306u\210*\202b \304f\313=\203e \314\315!\203e \316\225\317\320\306!!d \n\\W?\205a \n\\b\210 \211\n\\{*\206z `\321\322\304\323#\203u \316\225Sb\202y \304\210`{\207" [name p len pos nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string re-search-forward "[(){
\n%*\"\\]" t] 5])
(put 'imap-parse-astring 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-address #[nil "\305\211f\306=\205\367m\204 \305u\210\307\305f\310=\203I \311u\210`\312\313\305w\210\n`{\305f\314=\203A `T\315u\210\313\305w\210 \n`{P\202' \311u\210 *\202s \305f\316=\203v \317\320!\203v \321\225\322\323\311!! d\f \\W?\205r \f \\b\210\f\211 \\{*\206\201 \317\324!\203\200 \321\225b\210\305m\204\210 \305u\210\305f\310=\203\300 \311u\210`\312\313\305w\210\n`{\305f\314=\203\270 `T\315u\210\313\305w\210 \n`{P\202\236 \311u\210 *\202\352 \305f\316=\203\355 \317\320!\203\355 \321\225\322\323\311!! d\f \\W?\205\351 \f \\b\210\f\211 \\{*\206\370 \317\324!\203\367 \321\225b\210\305m\204\377 \305u\210\305f\310=\2037\311u\210`\312\313\305w\210\n`{\305f\314=\203/`T\315u\210\313\305w\210 \n`{P\202\311u\210 *\202a\305f\316=\203d\317\320!\203d\321\225\322\323\311!! d\f \\W?\205`\f \\b\210\f\211 \\{*\206o\317\324!\203n\321\225b\210\305m\204v\305u\210\305f\310=\203\256\311u\210`\312\313\305w\210\n`{\305f\314=\203\246`T\315u\210\313\305w\210 \n`{P\202\214\311u\210 *\202\330\305f\316=\203\333\317\320!\203\333\321\225\322\323\311!! d\f \\W?\205\327\f \\b\210\f\211 \\{*\206\346\317\324!\203\345\321\225b\210\305$\305f\325=\205\367m\204\366\305u\210)\207" [address name p len pos nil 40 vector 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL" 41] 9])
(put 'imap-parse-address 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-address-list #[nil "\306f\307=\203=\306\211m\204 \306u\210\306f\310=\204+\306f\311=\203' m\204' \306u\210\306\211f\307=\205 m\2047 \306u\210\312\306f\313=\203p \314u\210`\315\316\306w\210 `{\306f\317=\203h `T\320u\210\316\306w\210\n `{P\202N \314u\210\n*\202\232 \306f\321=\203\235 \322\323!\203\235 \324\225\325\326\314!! d
\f\\W?\205\231
\f\\b\210
\211\f\\{*\206\250 \322\327!\203\247 \324\225b\210\306m\204\257 \306u\210\306f\313=\203\347 \314u\210`\315\316\306w\210 `{\306f\317=\203\337 `T\320u\210\316\306w\210\n `{P\202\305 \314u\210\n*\202\306f\321=\203\322\323!\203\324\225\325\326\314!! d
\f\\W?\205
\f\\b\210
\211\f\\{*\206 \322\327!\203 \324\225b\210\306m\204&\306u\210\306f\313=\203^\314u\210`\315\316\306w\210 `{\306f\317=\203V`T\320u\210\316\306w\210\n `{P\202<\314u\210\n*\202\210\306f\321=\203\213\322\323!\203\213\324\225\325\326\314!! d
\f\\W?\205\207
\f\\b\210
\211\f\\{*\206\226\322\327!\203\225\324\225b\210\306m\204\235\306u\210\306f\313=\203\325\314u\210`\315\316\306w\210 `{\306f\317=\203\315`T\320u\210\316\306w\210\n `{P\202\263\314u\210\n*\202\377\306f\321=\203\322\323!\203\324\225\325\326\314!! d
\f\\W?\205\376
\f\\b\210
\211\f\\{*\206
\322\327!\203\f\324\225b\210\306$\306f\310=\205 m\204 \306u\210 )\211\203+ B\202 \306f\310=\205;m\2049\306u\210\237*\207\322\327!\205F\324\225b\207" [addresses address name p len pos nil 40 41 32 vector 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL"] 8])
(put 'imap-parse-address-list 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-mailbox #[nil "\305f\306=\2038 \307u\210`\310\311\305w\210 `{\305f\312=\2030 `T\313u\210\311\305w\210 `{P\202 \307u\210*\202b \305f\314=\203e \315\316!\203e \317\225\320\321\307!!d \n\\W?\205a \n\\b\210 \211\n\\{*\206z `\322\323\305\324#\203u \317\225Sb\202y \305\210`{\211 \226\325\230\203\206 \325\202\207 \f)\207" [name p len pos mailbox nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string re-search-forward "[(){
\n%*\"\\]" t "INBOX"] 6])
(put 'imap-parse-mailbox 'byte-optimizer 'byte-compile-inline-expand)
#@25 Parse an IMAP greeting.
(defalias 'imap-parse-greeting #[nil "\301\302!\203\n \303\211\207\301\304!\203 \305\211\207\301\306!\205 \307\211\207" [imap-state looking-at "\\* OK " nonauth "\\* PREAUTH " auth "\\* BYE " closed] 2 (#$ . 67721)])
#@33 Parse an IMAP command response.
(defalias 'imap-parse-response #[nil "\306\307p!\211\310 \311\"\203 d`T^d{\206 \312\211\202\310 \313\"\203,\307p!\211m\2041 \306u\210\310 \314\"\203> \315 \202(\310 \316\"\203J \315 \202(\310 \317\"\203V \315 \202(\310 \320\"\203b \315 \202(\310 \321\"\203q \322\323\324 \"\202(\310 \325\"\203~ \326\327!\202(\310 \330\"\203\213 \326\331!\202(\310 \332\"\203\240 \322\333\307\334`d{\335Q!\"\202(\310 \336\"\203\254 \337 \202(\310 \340\"\203\301 \307\334`d{\226\335Q!\211\202(\310 \341\"\203\322 \307`d{!\211\202(\310 \342\"\203\336 \343 \202(\307p!m\204\350 \306u\210 4\3104\344\"\203\371 \322\345\"\202'\3104\346\"\203\322\347\"\202'\3104\350\"\203\312\202'\3104\351\"\203\"\352!\202'\353\354\355 \"))\202\306 5\250\204<\353\354\355 \"\202\307p!\2115m\204I\306u\210 6\3106\314\"\203_7]7\315 \210\202\370\3106\316\"\203\2437]7\212\315 \210)\306\211 8 9\306f\356=\203\215`\357\360!{9m\204\215\306u\210`d{8598F:B:*\202\370\3106\317\"\203\3627]7\212\315 \210)\306\211 8 9\306f\356=\203\321`\357\360!{9m\204\321\306u\210`d{8598F:B:\361\362598%\210*\202\370\353\354\355 \"\210);\236\205;\236A5\"\210\363;\"\211;)*\207" [token #1=#:temp imap-continuation #2=#:temp imap-capability imap-id nil read eql + t * OK imap-parse-resp-text NO BAD BYE FLAGS imap-mailbox-put flags imap-parse-flag-list LIST imap-parse-data-list list LSUB lsub SEARCH search "(" ")" STATUS imap-parse-status CAPABILITY ID ACL imap-parse-acl EXISTS exists RECENT recent EXPUNGE FETCH imap-parse-fetch message "Garbage: %s" buffer-string 91 search-forward "]" error "Internal error, tag %s status %s code %s text %s" imap-remassoc #3=#:temp status #4=#:temp imap-reached-tag text code imap-failed-tags imap-callbacks] 6 (#$ . 67973)])
(defalias 'imap-parse-resp-text #[nil "\300 \207" [imap-parse-resp-text-code] 1])
(defalias 'imap-parse-resp-text-code #[nil "\306\307!\203
m\204
\310u\210\310f\311=\205\213m\204 \310u\210\312\313\310\314#\203) \315\316\317 \"\207\312\320\310\314#\2038 \315\321\322\323!\"\207\312\324\310\314#\203G \315\325\326p!\"\207\306\327!\203T \315\330\322\323!\"\207\312\331\310\314#\203a \315\332\314\"\207\312\333\310\314#\203A\310\211\310f\334=\203\245 \323u\210`\335\336\310w\210 `{\310f\337=\203\235 `T\340u\210\336\310w\210\n `{P\202\203 \323u\210\n*\202\317 \310f\341=\205\317 \306\342!\205\317 \343\225\344\322\323!! d
\f\\W?\205\316
\f\\b\210
\211\f\\{*m\204\327 \310u\210\310f\334=\203\323u\210`\335\336\310w\210 `{\310f\337=\203`T\340u\210\336\310w\210\n `{P\202\355 \323u\210\n*\2029\310f\341=\2059\306\342!\2059\343\225\344\322\323!! d
\f\\W?\2058
\f\\b\210
\211\f\\{*\315\300 #*\207\312\345\310\314#\203P\315\346\314/#\207\306\347!\203e\315\350\322\323!\344\322\340!!D/#\207\306\351!\203{\315\352\322\323!\322\340!\322\353!E/#\207\312\354\310\314#\205\213\355\3560`d{#\207" [newname oldname name p len pos looking-at " \\[" nil 91 search-forward "PERMANENTFLAGS " t imap-mailbox-put permanentflags imap-parse-flag-list "UIDNEXT \\([0-9]+\\)" uidnext match-string 1 "UNSEEN " first-unseen read "UIDVALIDITY \\([0-9]+\\)" uidvalidity "READ-ONLY" read-only "NEWNAME " 34 "" "^\"\\\\" 92 2 123 "{\\([0-9]+\\)}
\n" 0 string-to-number "TRYCREATE" trycreate "APPENDUID \\([0-9]+\\) \\([0-9]+\\)" appenduid "COPYUID \\([0-9]+\\) \\([0-9,:]+\\) \\([0-9,:]+\\)" copyuid 3 "ALERT] " message "Imap server %s information: %s" imap-current-target-mailbox imap-server] 6])
(defalias 'imap-parse-data-list #[(type) "\306\211\211\307 \310\311!\205\273 \312\313!\314\225Tb\210\306f\315=\203P \313u\210`\316 \317\306w\210\f`{\306f\320=\203H `T\321u\210\317\306w\210 \f`{P\202. \313u\210 *\202~ \306f\322=\203\201 \310\323!\203\201 \314\225\324\312\313!! d
\\W?\205}
\\b\210\211
\\{*\206\226 `\325\326\306\327#\203\221 \314\225Sb\202\225 \306\210`{\211\226\330\230\203\242 \330\202\243 )\211\205\273 \331 \327#\210\331\332\n#\210\331\301 #+\207" [mailbox delimiter flags name p len nil imap-parse-flag-list looking-at " NIL\\| \"\\\\?\\(.\\)\"" match-string 1 0 34 "" "^\"\\\\" 92 2 123 "{\\([0-9]+\\)}
\n" string-to-number re-search-forward "[(){
\n%*\"\\]" t "INBOX" imap-mailbox-put list-flags pos type] 5])
(defalias 'imap-parse-header-list #[nil "\305f\306=\205\241 \305\305f\307=\204\227 m\204 \305u\210\305f\310=\203O \311u\210`\312\313\305w\210\n`{\305f\314=\203G `T\315u\210\313\305w\210 \n`{P\202- \311u\210 *\202y \305f\316=\203| \317\320!\203| \321\225\322\323\311!! d\f \\W?\205x \f \\b\210\f\211 \\{*\206\221 `\324\325\305\326#\203\214 \321\225Sb\202\220 \305\210`{B\202 m\204\236 \305u\210\237)\207" [strlist name p len pos nil 40 41 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string re-search-forward "[(){
\n%*\"\\]" t] 5])
(put 'imap-parse-header-list 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-fetch-body-section #[nil "`\306\307\310\311#S{`Sf\312=\203\301 \313\314\310f\315=\205\265 \310\310f\316=\204\253 m\204+ \310u\210\310f\317=\203c \320u\210`\321\322\310w\210 `{\310f\323=\203[ `T\324u\210\322\310w\210\n `{P\202A \320u\210\n*\202\215 \310f\325=\203\220 \326\327!\203\220 \330\225\331\332\320!! d
\f\\W?\205\214
\f\\b\210
\211\f\\{*\206\245 `\306\333\310\311#\203\240 \330\225Sb\202\244 \310\210`{ B\202 m\204\262 \310u\210 \237)B\334#\335\336\310\311#\210\202\302 )\207" [section strlist name p len pos re-search-forward "[] ]" nil t 32 mapconcat identity 40 41 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "[(){
\n%*\"\\]" " " search-forward "]"] 8])
(put 'imap-parse-fetch-body-section 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-fetch #[(response) "\306f\307=\205\355\306\211\211\211\211\211\211\211\211\211\211\211 8 9 : ; < =\310\306w >\306f\311=?>\312U\2049 \313u\210)\203[m\204D \306u\210\314p! ?m\204P \306u\210?\315=\203i \3161b \314p!0\202d \210\306=\202W?\317=\203} \320 \211<\204W\321\202W?\322=\203\213 \323 ;\202W?\324=\203\n\306f\325=\203\323 \326u\210`\327 @ A\330\306w\210A`{@\306f\331=\203\312 `TA\332u\210\330\306w\210@A`{P@\202\254 \326u\210@*\202\306f\333=\205\334\335!\205\312\225\336\337\326!! B CdCB\\W?\205CB\\b\210C\211B\\{*:\202W?\340=\203\227\306f\325=\203R\326u\210`\327 @ A\330\306w\210A`{@\306f\331=\203I`TA\332u\210\330\306w\210@A`{P@\202+\326u\210@*\202\204\306f\333=\203\207\334\335!\203\207\312\225\336\337\326!! B CdCB\\W?\205\203CB\\b\210C\211B\\{*\206\222\334\341!\203\221\312\225b\210\3069\202W?\342=\203$\306f\325=\203\337\326u\210`\327 @ A\330\306w\210A`{@\306f\331=\203\326`TA\332u\210\330\306w\210@A`{P@\202\270\326u\210@*\202\306f\333=\203\334\335!\203\312\225\336\337\326!! B CdCB\\W?\205CB\\b\210C\211B\\{*\206 \334\341!\203 \312\225b\210\3068\202W?\343=\203\260\306f\325=\203l\326u\210`\327 @ A\330\306w\210A`{@\306f\331=\203c`TA\332u\210\330\306w\210@A`{P@\202E\326u\210@*\202\236\306f\333=\203\241\334\335!\203\241\312\225\336\337\326!! B CdCB\\W?\205\235CB\\b\210C\211B\\{*\206\254\334\341!\203\253\312\225b\210\306\202W?\344=\203\276\314p!\202W?\345=\203M`Sf\346=\203G`\347\350\306\321#S{ D`Sf\351=\203\245\352\353D\306f\307=\205\231\306 E\306f\311=\204\216m\204\373\306u\210\306f\325=\203<\326u\210`\327 @ A\330\306w\210A`{@\306f\331=\2033`TA\332u\210\330\306w\210@A`{P@\202\326u\210@*\202n\306f\333=\203q\334\335!\203q\312\225\336\337\326!! B CdCB\\W?\205mCB\\b\210C\211B\\{*\206\206`\347\354\306\321#\203\201\312\225Sb\202\205\306\210`{EBE\202\355m\204\225\306u\210E\237)B\355#\356\357\306\321#\210\202\247D)\226\306f\360=\205\270`T\356\361\306\321#{m\204\277\306u\210\306f\325=\203 \326u\210`\327 @ A\330\306w\210A`{@\306f\331=\203\367`TA\332u\210\330\306w\210@A`{P@\202\331\326u\210@*\2022\306f\333=\2035\334\335!\2035\312\225\336\337\326!! B CdCB\\W?\2051CB\\b\210C\211B\\{*\206@\334\341!\203?\312\225b\210\306E\nB\202W\362 \202W?\363=\203W\362 )\202% =\205\353=F\364=\315=#\210<\204u\203}\364=\317<#\210;\203\212\364=\322;#\210:\203\227\364=\324:#\2109\203\244\364=\3409#\2108\203\261\364=\3428#\210
\203\274\364=\343
#\210\f\203\307\364=\344\f#\210 \203\322\364=\345 #\210\n\203\335\364=\365\n#\210 \203\350\364=\363 #\210\366\367!.\f\207" [flags-empty bodystructure bodydetail body rfc822size rfc822text nil 40 " " 41 0 -1 read UID (error) FLAGS imap-parse-flag-list t ENVELOPE imap-parse-envelope INTERNALDATE 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" string-to-number match-string RFC822 "NIL" RFC822\.HEADER RFC822\.TEXT RFC822\.SIZE BODY 91 re-search-forward "[] ]" 32 mapconcat identity "[(){
\n%*\"\\]" " " search-forward "]" 60 ">" imap-parse-body BODYSTRUCTURE imap-message-put BODYDETAIL run-hooks imap-fetch-data-hook rfc822header rfc822 internaldate envelope flags uid moved token name p len pos section strlist imap-current-message] 13])
(defalias 'imap-parse-status #[nil "\306f\307=\2038 \310u\210`\311\312\306w\210 `{\306f\313=\2030 `T\314u\210\312\306w\210 `{P\202 \310u\210*\202b \306f\315=\203e \316\317!\203e \320\225\321\322\310!!d \n\\W?\205a \n\\b\210 \211\n\\{*\206z `\323\324\306\325#\203u \320\225Sb\202y \306\210`{\211 \226\326\230\203\206 \326\202\207 \f) \306f\327=\203\223 \306u\210\f\2053\306f\330=\2053\306f\331=?\2053\306u\210\316\332!\2053\322\310!\226 \320\225b\210
\333\230\203\311 \334\335\336p!\f#\210\202/
\337\230\203\332 \334\340\336p!\f#\210\202/
\341\230\203\367 \316\342!\203/\334\343\322\320!\f#\203/\320\225b\210\202/
\344\230\203\316\342!\203/\334\345\322\320!\f#\203/\320\225b\210\202/
\346\230\203%\334\347\336p!\f#\210\202/\350\351
\f#\210\336p!\210)\202\236 )\207" [name p len pos mailbox token nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string re-search-forward "[(){
\n%*\"\\]" t "INBOX" 32 40 41 "\\([A-Za-z]+\\) " "MESSAGES" imap-mailbox-put messages read "RECENT" recent "UIDNEXT" "[0-9]+" uidnext "UIDVALIDITY" uidvalidity "UNSEEN" unseen message "Unknown status data %s in mailbox %s ignored"] 5])
(defalias 'imap-parse-acl #[nil "\306f\307=\2038 \310u\210`\311\312\306w\210 `{\306f\313=\2030 `T\314u\210\312\306w\210 `{P\202 \310u\210*\202b \306f\315=\203e \316\317!\203e \320\225\321\322\310!!d \n\\W?\205a \n\\b\210 \211\n\\{*\206z `\323\324\306\325#\203u \320\225Sb\202y \306\210`{\211 \226\326\230\203\206 \326\202\207 \f)\306\211\211 \306f\327=\203\253m\204\237 \306u\210\306f\307=\203\327 \310u\210`\311\312\306w\210 `{\306f\313=\203\317 `T\314u\210\312\306w\210 `{P\202\265 \310u\210*\202\306f\315=\203\316\317!\203\320\225\321\322\310!!d \n\\W?\205 \n\\b\210 \211\n\\{*\206`\323\324\306\325#\203\320\225Sb\202\306\210`{m\204\"\306u\210\306f\307=\203Z\310u\210`\311\312\306w\210 `{\306f\313=\203R`T\314u\210\312\306w\210 `{P\2028\310u\210*\202\204\306f\315=\203\207\316\317!\203\207\320\225\321\322\310!!d \n\\W?\205\203 \n\\b\210 \211\n\\{*\206\234`\323\324\306\325#\203\227\320\225Sb\202\233\306\210`{\330
BC\"\202\221 \331\305
\f#,\207" [name p len pos mailbox acl nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string re-search-forward "[(){
\n%*\"\\]" t "INBOX" 32 append imap-mailbox-put rights identifier] 5])
(defalias 'imap-parse-flag-list #[nil "\302\211\302f\303=\204 \304\305\306\302\211$\210\302f\307=\204< m\204 \302u\210\310\302w\210`\211\203< \311\312 w\313V\203< `{ B\202 \302f\307=\204J \304\314\315\302\211$\210m\204Q \302u\210 \237*\207" [start flag-list nil 40 cl--assertion-failed (eq (char-after) 40) "In imap-parse-flag-list 1" 41 " " "^ )" point-at-eol 0 (eq (char-after) 41) "In imap-parse-flag-list 2"] 5])
(defalias 'imap-parse-envelope #[nil "\306f\307=\205\307m\204 \306u\210\310\306f\311=\203G \312u\210`\313\314\306w\210 `{\306f\315=\203? `T\316u\210\314\306w\210 `{P\202% \312u\210*\202q \306f\317=\203t \320\321!\203t \322\225\323\324\312!!d \n\\W?\205p \n\\b\210 \211\n\\{*\206 \320\325!\203~ \322\225b\210\306m\204\206 \306u\210\306f\311=\203\276 \312u\210`\313\314\306w\210 `{\306f\315=\203\266 `T\316u\210\314\306w\210 `{P\202\234 \312u\210*\202\350 \306f\317=\203\353 \320\321!\203\353 \322\225\323\324\312!!d \n\\W?\205\347 \n\\b\210 \211\n\\{*\206\366 \320\325!\203\365 \322\225b\210\306m\204\375 \306u\210\306f\307=\203<\306\211 m\204\306u\210\306f\326=\204(\306f\327=\203$m\204$\306u\210\306\211 f\307=\205m\2044\306u\210\310\306f\311=\203m\312u\210`\313\314\306w\210 `{\306f\315=\203e`T\316u\210\314\306w\210 `{P\202K\312u\210*\202\227\306f\317=\203\232\320\321!\203\232\322\225\323\324\312!!d \n\\W?\205\226 \n\\b\210 \211\n\\{*\206\245\320\325!\203\244\322\225b\210\306m\204\254\306u\210\306f\311=\203\344\312u\210`\313\314\306w\210 `{\306f\315=\203\334`T\316u\210\314\306w\210 `{P\202\302\312u\210*\202\306f\317=\203\320\321!\203\322\225\323\324\312!!d \n\\W?\205
\n\\b\210 \211\n\\{*\206 \320\325!\203\322\225b\210\306m\204#\306u\210\306f\311=\203[\312u\210`\313\314\306w\210 `{\306f\315=\203S`T\316u\210\314\306w\210 `{P\2029\312u\210*\202\205\306f\317=\203\210\320\321!\203\210\322\225\323\324\312!!d \n\\W?\205\204 \n\\b\210 \211\n\\{*\206\223\320\325!\203\222\322\225b\210\306m\204\232\306u\210\306f\311=\203\322\312u\210`\313\314\306w\210 `{\306f\315=\203\312`T\316u\210\314\306w\210 `{P\202\260\312u\210*\202\374\306f\317=\203\377\320\321!\203\377\322\225\323\324\312!!d \n\\W?\205\373 \n\\b\210 \211\n\\{*\206\n\320\325!\203 \322\225b\210\306$\306f\326=\205m\204\306u\210
)\211\203(
\fB\202\306f\326=\2058m\2046\306u\210\f\237*\202E\320\325!\205E\322\225bm\204L\306u\210\306f\307=\203\213\306\211 m\204^\306u\210\306f\326=\204w\306f\327=\203sm\204s\306u\210\306\211 f\307=\205jm\204\203\306u\210\310\306f\311=\203\274\312u\210`\313\314\306w\210 `{\306f\315=\203\264`T\316u\210\314\306w\210 `{P\202\232\312u\210*\202\346\306f\317=\203\351\320\321!\203\351\322\225\323\324\312!!d \n\\W?\205\345 \n\\b\210 \211\n\\{*\206\364\320\325!\203\363\322\225b\210\306m\204\373\306u\210\306f\311=\2033\312u\210`\313\314\306w\210 `{\306f\315=\203+`T\316u\210\314\306w\210 `{P\202\312u\210*\202]\306f\317=\203`\320\321!\203`\322\225\323\324\312!!d \n\\W?\205\\ \n\\b\210 \211\n\\{*\206k\320\325!\203j\322\225b\210\306m\204r\306u\210\306f\311=\203\252\312u\210`\313\314\306w\210 `{\306f\315=\203\242`T\316u\210\314\306w\210 `{P\202\210\312u\210*\202\324\306f\317=\203\327\320\321!\203\327\322\225\323\324\312!!d \n\\W?\205\323 \n\\b\210 \211\n\\{*\206\342\320\325!\203\341\322\225b\210\306m\204\351\306u\210\306f\311=\203!\312u\210`\313\314\306w\210 `{\306f\315=\203`T\316u\210\314\306w\210 `{P\202\377\312u\210*\202K\306f\317=\203N\320\321!\203N\322\225\323\324\312!!d \n\\W?\205J \n\\b\210 \211\n\\{*\206Y\320\325!\203X\322\225b\210\306$\306f\326=\205jm\204i\306u\210
)\211\203w
\fB\202^\306f\326=\205\207m\204\205\306u\210\f\237*\202\224\320\325!\205\224\322\225bm\204\233\306u\210\306f\307=\203\332\306\211 m\204\255\306u\210\306f\326=\204\306\306f\327=\203\302m\204\302\306u\210\306\211 f\307=\205\271m\204\322\306u\210\310\306f\311=\203 \312u\210`\313\314\306w\210 `{\306f\315=\203`T\316u\210\314\306w\210 `{P\202\351\312u\210*\2025\306f\317=\2038\320\321!\2038\322\225\323\324\312!!d \n\\W?\2054 \n\\b\210 \211\n\\{*\206C\320\325!\203B\322\225b\210\306m\204J\306u\210\306f\311=\203\202\312u\210`\313\314\306w\210 `{\306f\315=\203z`T\316u\210\314\306w\210 `{P\202`\312u\210*\202\254\306f\317=\203\257\320\321!\203\257\322\225\323\324\312!!d \n\\W?\205\253 \n\\b\210 \211\n\\{*\206\272\320\325!\203\271\322\225b\210\306m\204\301\306u\210\306f\311=\203\371\312u\210`\313\314\306w\210 `{\306f\315=\203\361`T\316u\210\314\306w\210 `{P\202\327\312u\210*\202#\306f\317=\203&\320\321!\203&\322\225\323\324\312!!d \n\\W?\205\" \n\\b\210 \211\n\\{*\2061\320\325!\2030\322\225b\210\306m\2048\306u\210\306f\311=\203p\312u\210`\313\314\306w\210 `{\306f\315=\203h`T\316u\210\314\306w\210 `{P\202N\312u\210*\202\232\306f\317=\203\235\320\321!\203\235\322\225\323\324\312!!d \n\\W?\205\231 \n\\b\210 \211\n\\{*\206\250\320\325!\203\247\322\225b\210\306$\306f\326=\205\271m\204\270\306u\210
)\211\203\306
\fB\202\255\306f\326=\205\326m\204\324\306u\210\f\237*\202\343\320\325!\205\343\322\225bm\204\352\306u\210\306f\307=\203)\n\306\211 m\204\374\306u\210\306f\326=\204\n\306f\327=\203m\204\306u\210\306\211 f\307=\205\nm\204!\306u\210\310\306f\311=\203Z\312u\210`\313\314\306w\210 `{\306f\315=\203R`T\316u\210\314\306w\210 `{P\2028\312u\210*\202\204\306f\317=\203\207\320\321!\203\207\322\225\323\324\312!!d \n\\W?\205\203 \n\\b\210 \211\n\\{*\206\222\320\325!\203\221\322\225b\210\306m\204\231\306u\210\306f\311=\203\321\312u\210`\313\314\306w\210 `{\306f\315=\203\311`T\316u\210\314\306w\210 `{P\202\257\312u\210*\202\373\306f\317=\203\376\320\321!\203\376\322\225\323\324\312!!d \n\\W?\205\372 \n\\b\210 \211\n\\{*\206 \320\325!\203 \322\225b\210\306m\204 \306u\210\306f\311=\203H \312u\210`\313\314\306w\210 `{\306f\315=\203@ `T\316u\210\314\306w\210 `{P\202& \312u\210*\202r \306f\317=\203u \320\321!\203u \322\225\323\324\312!!d \n\\W?\205q \n\\b\210 \211\n\\{*\206\200 \320\325!\203 \322\225b\210\306m\204\207 \306u\210\306f\311=\203\277 \312u\210`\313\314\306w\210 `{\306f\315=\203\267 `T\316u\210\314\306w\210 `{P\202\235 \312u\210*\202\351 \306f\317=\203\354 \320\321!\203\354 \322\225\323\324\312!!d \n\\W?\205\350 \n\\b\210 \211\n\\{*\206\367 \320\325!\203\366 \322\225b\210\306$\306f\326=\205\nm\204\n\306u\210
)\211\203\n
\fB\202\374\306f\326=\205%\nm\204#\n\306u\210\f\237*\2022\n\320\325!\2052\n\322\225bm\2049\n\306u\210\306f\307=\203x\f\306\211 m\204K\n\306u\210\306f\326=\204d\f\306f\327=\203`\nm\204`\n\306u\210\306\211 f\307=\205W\fm\204p\n\306u\210\310\306f\311=\203\251\n\312u\210`\313\314\306w\210 `{\306f\315=\203\241\n`T\316u\210\314\306w\210 `{P\202\207\n\312u\210*\202\323\n\306f\317=\203\326\n\320\321!\203\326\n\322\225\323\324\312!!d \n\\W?\205\322\n \n\\b\210 \211\n\\{*\206\341\n\320\325!\203\340\n\322\225b\210\306m\204\350\n\306u\210\306f\311=\203 \312u\210`\313\314\306w\210 `{\306f\315=\203 `T\316u\210\314\306w\210 `{P\202\376\n\312u\210*\202J \306f\317=\203M \320\321!\203M \322\225\323\324\312!!d \n\\W?\205I \n\\b\210 \211\n\\{*\206X \320\325!\203W \322\225b\210\306m\204_ \306u\210\306f\311=\203\227 \312u\210`\313\314\306w\210 `{\306f\315=\203\217 `T\316u\210\314\306w\210 `{P\202u \312u\210*\202\301 \306f\317=\203\304 \320\321!\203\304 \322\225\323\324\312!!d \n\\W?\205\300 \n\\b\210 \211\n\\{*\206\317 \320\325!\203\316 \322\225b\210\306m\204\326 \306u\210\306f\311=\203\f\312u\210`\313\314\306w\210 `{\306f\315=\203\f`T\316u\210\314\306w\210 `{P\202\354 \312u\210*\2028\f\306f\317=\203;\f\320\321!\203;\f\322\225\323\324\312!!d \n\\W?\2057\f \n\\b\210 \211\n\\{*\206F\f\320\325!\203E\f\322\225b\210\306$\306f\326=\205W\fm\204V\f\306u\210
)\211\203d\f
\fB\202K\n\306f\326=\205t\fm\204r\f\306u\210\f\237*\202\201\f\320\325!\205\201\f\322\225bm\204\210\f\306u\210\306f\307=\203\307\306\211 m\204\232\f\306u\210\306f\326=\204\263\306f\327=\203\257\fm\204\257\f\306u\210\306\211 f\307=\205\246m\204\277\f\306u\210\310\306f\311=\203\370\f\312u\210`\313\314\306w\210 `{\306f\315=\203\360\f`T\316u\210\314\306w\210 `{P\202\326\f\312u\210*\202\"
\306f\317=\203%
\320\321!\203%
\322\225\323\324\312!!d \n\\W?\205!
\n\\b\210 \211\n\\{*\2060
\320\325!\203/
\322\225b\210\306m\2047
\306u\210\306f\311=\203o
\312u\210`\313\314\306w\210 `{\306f\315=\203g
`T\316u\210\314\306w\210 `{P\202M
\312u\210*\202\231
\306f\317=\203\234
\320\321!\203\234
\322\225\323\324\312!!d \n\\W?\205\230
\n\\b\210 \211\n\\{*\206\247
\320\325!\203\246
\322\225b\210\306m\204\256
\306u\210\306f\311=\203\346
\312u\210`\313\314\306w\210 `{\306f\315=\203\336
`T\316u\210\314\306w\210 `{P\202\304
\312u\210*\202\306f\317=\203\320\321!\203\322\225\323\324\312!!d \n\\W?\205 \n\\b\210 \211\n\\{*\206 \320\325!\203 \322\225b\210\306m\204%\306u\210\306f\311=\203]\312u\210`\313\314\306w\210 `{\306f\315=\203U`T\316u\210\314\306w\210 `{P\202;\312u\210*\202\207\306f\317=\203\212\320\321!\203\212\322\225\323\324\312!!d \n\\W?\205\206 \n\\b\210 \211\n\\{*\206\225\320\325!\203\224\322\225b\210\306$\306f\326=\205\246m\204\245\306u\210
)\211\203\263
\fB\202\232\f\306f\326=\205\303m\204\301\306u\210\f\237*\202\320\320\325!\205\320\322\225bm\204\327\306u\210\306f\311=\203\312u\210`\313\314\306w\210 `{\306f\315=\203`T\316u\210\314\306w\210 `{P\202\355\312u\210*\2029\306f\317=\203<\320\321!\203<\322\225\323\324\312!!d \n\\W?\2058 \n\\b\210 \211\n\\{*\206G\320\325!\203F\322\225b\210\306m\204N\306u\210\306f\311=\203\206\312u\210`\313\314\306w\210 `{\306f\315=\203~`T\316u\210\314\306w\210 `{P\202d\312u\210*\202\260\306f\317=\203\263\320\321!\203\263\322\225\323\324\312!!d \n\\W?\205\257 \n\\b\210 \211\n\\{*\206\276\320\325!\203\275\322\225b\210\306m\204\305\306u\210&\n\207" [name p len pos addresses address nil 40 vector 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL" 41 32] 16])
(defalias 'imap-parse-string-list #[nil "\306f\307=\203\222 \306\211m\204 \306u\210\306f\310=\203J \311u\210`\312\313\306w\210 `{\306f\314=\203B `T\315u\210\313\306w\210\n `{P\202( \311u\210\n*\202t \306f\316=\205t \317\320!\205t \321\225\322\323\311!! d
\f\\W?\205s
\f\\b\210
\211\f\\{*\211\203\216 B\306f\310=\204 m\204 \306u\210\202 \237*\207\317\324!\205\237 \321\225b\205\237 \306\207" [str strlist name p len pos nil 40 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL"] 4])
(put 'imap-parse-string-list 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-body-extension #[nil "\305f\306=\203D \305m\204 \305u\210\307 B\305f\310=\203+ m\204# \305u\210\307 B\202 \305f\311=\2049 \312\313\314\305\211$\210m\204@ \305u\210\237)\207\315\316!\203V \317\320\321!!\321\225b\210\206\306 \305f\322=\203\216 \323u\210`\324\325\305w\210\n`{\305f\326=\203\206 `T\327u\210\325\305w\210 \n`{P\202l \323u\210 *\202\270 \305f\330=\203\273 \315\331!\203\273 \321\225\317\320\323!! d\f \\W?\205\267 \f \\b\210\f\211 \\{*\206\306 \315\332!\203\305 \321\225b\210\305\207" [b-e name p len pos nil 40 imap-parse-body-extension 32 41 cl--assertion-failed (eq (char-after) 41) "In imap-parse-body-extension" looking-at "[0-9]+" string-to-number match-string 0 34 1 "" "^\"\\\\" 92 2 123 "{\\([0-9]+\\)}
\n" "NIL"] 5])
(defalias 'imap-parse-body-ext #[nil "\306\211f\307=\203\236m\204 \306u\210\306\211f\310=\203Am\204 \306u\210\306f\311=\203X \312u\210`\313\314\306w\210 `{\306f\315=\203P `T\316u\210\314\306w\210\n `{P\2026 \312u\210\n*\202\202 \306f\317=\205\202 \320\321!\205\202 \322\225\323\324\312!! d
\f\\W?\205\201
\f\\b\210
\211\f\\{* Bm\204\214 \306u\210\306f\310=\203'\306\211 m\204\240 \306u\210\306f\311=\203\330 \312u\210`\313\314\306w\210 `{\306f\315=\203\320 `T\316u\210\314\306w\210\n `{P\202\266 \312u\210\n*\202\306f\317=\205\320\321!\205\322\225\323\324\312!! d
\f\\W?\205
\f\\b\210
\211\f\\{*\211\203 B\306f\311=\204\240 m\204\240 \306u\210\202\240 \237*\2024\320\325!\2054\322\225b\2054\306 Bm\204K\306u\210\202K\320\325!\203K\322\225b\210 \237B)\306f\307=\203\236m\204_\306u\210\306f\310=\203\306f\310=\203\306\211 m\204z\306u\210\306f\311=\203\262\312u\210`\313\314\306w\210 `{\306f\315=\203\252`T\316u\210\314\306w\210\n `{P\202\220\312u\210\n*\202\334\306f\317=\205\334\320\321!\205\334\322\225\323\324\312!! d
\f\\W?\205\333
\f\\b\210
\211\f\\{*\211\203\372B\306f\311=\204zm\204z\306u\210\202z\237*\202\320\325!\205\322\225b\205\306B\202\207\306f\311=\203L\312u\210`\313\314\306w\210 `{\306f\315=\203D`T\316u\210\314\306w\210\n `{P\202*\312u\210\n*\202v\306f\317=\203y\320\321!\203y\322\225\323\324\312!! d
\f\\W?\205u
\f\\b\210
\211\f\\{*\206\204\320\325!\203\203\322\225b\210\306B\306f\307=\203\236m\204\225\306u\210\326\327 \"\202\207)\207" [ext dsp name p len pos nil 32 40 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL" append imap-parse-body-extension str strlist] 5])
(put 'imap-parse-body-ext 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-body #[nil "\306\211f\307=\205R m\204 \306u\210\306f\307=\203P\306\306f\307=\203D \310 \211\203D \306f\311=\203= `Tf\307=\203= m\204= \306u\210 B\202 m\204K \306u\210\306f\312=\203\203 \313u\210`\314\315\306w\210 `{\306f\316=\203{ `T\317u\210\315\306w\210\n `{P\202a \313u\210\n*\202\255 \306f\320=\205\255 \321\322!\205\255 \323\225\324\325\313!! d
\f\\W?\205\254
\f\\b\210
\211\f\\{*B\306f\311=\2035m\204\276 \306u\210\306f\307=\203s\306f\307=\203`\306\211 % &m\204\331 \306u\210\306f\312=\203\313u\210`\314\315\306w\210 `{\306f\316=\203 `T\317u\210\315\306w\210\n `{P\202\357 \313u\210\n*\202;\306f\320=\205;\321\322!\205;\323\225\324\325\313!! d
\f\\W?\205:
\f\\b\210
\211\f\\{*\211%\203Y%&B&\306f\312=\204\331 m\204\331 \306u\210\202\331 &\237*\202m\321\326!\205m\323\225b\205m\306B\202\201\321\326!\203}\323\225b\210\306B\327\306\211 'f\311=\203/m\204\223\306u\210\306\211 (f\307=\203\311m\204\244\306u\210\306f\312=\203\334\313u\210`\314\315\306w\210 `{\306f\316=\203\324`T\317u\210\315\306w\210\n `{P\202\272\313u\210\n*\202\306f\320=\205\321\322!\205\323\225\324\325\313!! d
\f\\W?\205
\f\\b\210
\211\f\\{*(B(m\204\306u\210\306f\307=\203\255\306\211 % &m\204&\306u\210\306f\312=\203^\313u\210`\314\315\306w\210 `{\306f\316=\203V`T\317u\210\315\306w\210\n `{P\202<\313u\210\n*\202\210\306f\320=\205\210\321\322!\205\210\323\225\324\325\313!! d
\f\\W?\205\207
\f\\b\210
\211\f\\{*\211%\203\246%&B&\306f\312=\204&m\204&\306u\210\202&&\237*\202\272\321\326!\205\272\323\225b\205\272\306(B(m\204\323\306u\210\202\323\321\326!\203\323\323\225b\210(\237'B')\306f\311=\203/m\204\352\306u\210\306f\307=\203\241\306f\307=\203\214\306\211 % &m\204\306u\210\306f\312=\203=\313u\210`\314\315\306w\210 `{\306f\316=\2035`T\317u\210\315\306w\210\n `{P\202\313u\210\n*\202g\306f\320=\205g\321\322!\205g\323\225\324\325\313!! d
\f\\W?\205f
\f\\b\210
\211\f\\{*\211%\203\205%&B&\306f\312=\204m\204\306u\210\202&\237*\202\231\321\326!\205\231\323\225b\205\231\306'B'\202\306f\312=\203\331\313u\210`\314\315\306w\210 `{\306f\316=\203\321`T\317u\210\315\306w\210\n `{P\202\267\313u\210\n*\202\306f\320=\203\321\322!\203\323\225\324\325\313!! d
\f\\W?\205
\f\\b\210
\211\f\\{*\206\321\326!\203\323\225b\210\306'B'\306f\311=\203/m\204$\306u\210\327\330 '\"'\202')\"\306f\331=\204C\332\333\334\306\211$\210m\204J\306u\210\237)\202R \306f\312=\203\210\313u\210`\314\315\306w\210 `{\306f\316=\203\200`T\317u\210\315\306w\210\n `{P\202f\313u\210\n*\202\262\306f\320=\205\262\321\322!\205\262\323\225\324\325\313!! d
\f\\W?\205\261
\f\\b\210
\211\f\\{*Bm\204\274\306u\210\306f\312=\203\364\313u\210`\314\315\306w\210 `{\306f\316=\203\354`T\317u\210\315\306w\210\n `{P\202\322\313u\210\n*\202 \306f\320=\205 \321\322!\205 \323\225\324\325\313!! d
\f\\W?\205
\f\\b\210
\211\f\\{*Bm\204(\306u\210\306f\311=\2036m\2046\306u\210\306f\307=\203\353\306f\307=\203\330\306\211 % &m\204Q\306u\210\306f\312=\203\211\313u\210`\314\315\306w\210 `{\306f\316=\203\201`T\317u\210\315\306w\210\n `{P\202g\313u\210\n*\202\263\306f\320=\205\263\321\322!\205\263\323\225\324\325\313!! d
\f\\W?\205\262
\f\\b\210
\211\f\\{*\211%\203\321%&B&\306f\312=\204Qm\204Q\306u\210\202Q&\237*\202\345\321\326!\205\345\323\225b\205\345\306B\202\371\321\326!\203\365\323\225b\210\306Bm\204 \306u\210\306f\312=\2038\313u\210`\314\315\306w\210 `{\306f\316=\2030`T\317u\210\315\306w\210\n `{P\202\313u\210\n*\202b\306f\320=\203e\321\322!\203e\323\225\324\325\313!! d
\f\\W?\205a
\f\\b\210
\211\f\\{*\206p\321\326!\203o\323\225b\210\306Bm\204z\306u\210\306f\312=\203\262\313u\210`\314\315\306w\210 `{\306f\316=\203\252`T\317u\210\315\306w\210\n `{P\202\220\313u\210\n*\202\334\306f\320=\203\337\321\322!\203\337\323\225\324\325\313!! d
\f\\W?\205\333
\f\\b\210
\211\f\\{*\206\352\321\326!\203\351\323\225b\210\306Bm\204\364\306u\210\306f\312=\203,\313u\210`\314\315\306w\210 `{\306f\316=\203$`T\317u\210\315\306w\210\n `{P\202\n\313u\210\n*\202V\306f\320=\203Y\321\322!\203Y\323\225\324\325\313!! d
\f\\W?\205U
\f\\b\210
\211\f\\{*\206d\321\326!\203c\323\225b\210\335Bm\204n\306u\210\306f\336=\203\200\337\306w\210\306B\202\222\321\340!\205\217\324\325\323!!\323\225b\210B\306f\311=\203m\204\240\306u\210\306\211 )f\307=\203\345\341 Bm\204\266\306u\210\310 B\306f\331=\203\311\323B\202m\204\320\306u\210\321\340!\205\337\324\325\323!!\323\225b\210B\202\321\340!\205\364\324\325\323!!\323\225b\210\211)\203)B\202\342u\210)\306f\311=\203; m\204\306u\210\306f\312=\203L\313u\210`\314\315\306w\210 `{\306f\316=\203D`T\317u\210\315\306w\210\n `{P\202*\313u\210\n*\202v\306f\320=\203y\321\322!\203y\323\225\324\325\313!! d
\f\\W?\205u
\f\\b\210
\211\f\\{*\206\204\321\326!\203\203\323\225b\210\306B\327\306\211 'f\311=\2035 m\204\231\306u\210\306\211 (f\307=\203\317 m\204\252\306u\210\306f\312=\203\342\313u\210`\314\315\306w\210 `{\306f\316=\203\332`T\317u\210\315\306w\210\n `{P\202\300\313u\210\n*\202\f \306f\320=\205\f \321\322!\205\f \323\225\324\325\313!! d
\f\\W?\205
\f\\b\210
\211\f\\{*(B(m\204 \306u\210\306f\307=\203\263 \306\211 % &m\204, \306u\210\306f\312=\203d \313u\210`\314\315\306w\210 `{\306f\316=\203\\ `T\317u\210\315\306w\210\n `{P\202B \313u\210\n*\202\216 \306f\320=\205\216 \321\322!\205\216 \323\225\324\325\313!! d
\f\\W?\205\215
\f\\b\210
\211\f\\{*\211%\203\254 %&B&\306f\312=\204, m\204, \306u\210\202, &\237*\202\300 \321\326!\205\300 \323\225b\205\300 \306(B(m\204\331 \306u\210\202\331 \321\326!\203\331 \323\225b\210(\237'B')\306f\311=\2035 m\204\360 \306u\210\306f\307=\203\247\n\306f\307=\203\222\n\306\211 % &m\204 \n\306u\210\306f\312=\203C\n\313u\210`\314\315\306w\210 `{\306f\316=\203;\n`T\317u\210\315\306w\210\n `{P\202!\n\313u\210\n*\202m\n\306f\320=\205m\n\321\322!\205m\n\323\225\324\325\313!! d
\f\\W?\205l\n
\f\\b\210
\211\f\\{*\211%\203\213\n%&B&\306f\312=\204 \nm\204 \n\306u\210\202 \n&\237*\202\237\n\321\326!\205\237\n\323\225b\205\237\n\306'B'\202 \306f\312=\203\337\n\313u\210`\314\315\306w\210 `{\306f\316=\203\327\n`T\317u\210\315\306w\210\n `{P\202\275\n\313u\210\n*\202 \306f\320=\203\f \321\322!\203\f \323\225\324\325\313!! d
\f\\W?\205
\f\\b\210
\211\f\\{*\206 \321\326!\203 \323\225b\210\306'B'\306f\311=\2035 m\204* \306u\210\327\330 '\"'\202 ')\"\306f\331=\204I \332\343\344\306\211$\210m\204P \306u\210\237)\207" [body subbody name p len pos nil 40 imap-parse-body 32 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL" append imap-parse-body-extension 41 cl--assertion-failed (eq (char-after) 41) "In imap-parse-body" "7BIT" 45 "-0-9" "[0-9]+" imap-parse-envelope -1 (eq (char-after) 41) "In imap-parse-body 2" str strlist ext dsp lines] 6])
(byte-code "\203 \302\303!\210\304\305 !!\210\306\307\310\"\210\311\312!\207" [imap-debug imap-debug-buffer require trace buffer-disable-undo get-buffer-create mapc #[(f) "\302 \"\207" [f imap-debug-buffer trace-function-background] 3] (imap-utf7-encode imap-utf7-decode imap-error-text imap-kerberos4s-p imap-kerberos4-open imap-network-p imap-network-open imap-interactive-login imap-kerberos4a-p imap-kerberos4-auth imap-cram-md5-p imap-cram-md5-auth imap-login-p imap-login-auth imap-anonymous-p imap-anonymous-auth imap-open-1 imap-open imap-opened imap-ping-server imap-authenticate imap-close imap-capability imap-namespace imap-send-command-wait imap-mailbox-put imap-mailbox-get imap-mailbox-map-1 imap-mailbox-map imap-current-mailbox imap-current-mailbox-p-1 imap-current-mailbox-p imap-mailbox-select-1 imap-mailbox-select imap-mailbox-examine-1 imap-mailbox-examine imap-mailbox-unselect imap-mailbox-expunge imap-mailbox-close imap-mailbox-create-1 imap-mailbox-create imap-mailbox-delete imap-mailbox-rename imap-mailbox-lsub imap-mailbox-list imap-mailbox-subscribe imap-mailbox-unsubscribe imap-mailbox-status imap-mailbox-acl-get imap-mailbox-acl-set imap-mailbox-acl-delete imap-current-message imap-list-to-message-set imap-fetch-asynch imap-fetch imap-fetch-safe imap-message-put imap-message-get imap-message-map imap-search imap-message-flag-permanent-p imap-message-flags-set imap-message-flags-del imap-message-flags-add imap-message-copyuid-1 imap-message-copyuid imap-message-copy imap-message-appenduid-1 imap-message-appenduid imap-message-append imap-body-lines imap-envelope-from imap-send-command-1 imap-send-command imap-wait-for-tag imap-sentinel imap-find-next-line imap-arrival-filter imap-parse-greeting imap-parse-response imap-parse-resp-text imap-parse-resp-text-code imap-parse-data-list imap-parse-fetch imap-parse-status imap-parse-acl imap-parse-flag-list imap-parse-envelope imap-parse-body-extension imap-parse-body) provide imap] 3)
Kontol Shell Bypass