;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:32 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/imap.el
;;; in Emacs version 24.3.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\307\"\210\305\311\312\"\210\305\313\314\"\210\305\315\314\"\210\305\316\314\"\210\305\317\314\"\210\305\320\321\"\210\305\322\323\"\210\305\324\323\"\210\305\325\326\"\210\305\327\326\"\210\305\330\331\"\210\332\333\334\335\336\337\340\341&\210\342\343\344\345\340\333\346\347&\210\342\350\351\352\340\333\346\353&\210\342\354\355\356\340\333\346\357&\210\342\360\361\362\340\333\346\363&\210\342\364\334\365\336\366\340\333\346\367&	\210\342\370\371\372\340\333\346\367&\210\342\373\334\374\340\333\346\367&\210\342\375\334\376\340\333\346\367&\210\342\377\201@\201A\340\333\346\201B&\210\342\201C\201D\201E\340\333\346\201B&\210\342\201F\201G\201H\346\201I\340\333&\210\342\201J\334\201K\340\333\346\367&\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] autoload starttls-open-stream "starttls" starttls-negotiate 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 open-tls-stream "tls" 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-ssl-program '("openssl s_client -quiet -ssl3 -connect %s:%p" "openssl s_client -quiet -ssl2 -connect %s:%p" "s_client -quiet -ssl3 -connect %s:%p" "s_client -quiet -ssl2 -connect %s:%p") "A string, or list of strings, containing commands for SSL connections.\nWithin a string, %s is replaced with the server address and %p with\nport number on server.  The program should accept IMAP commands on\nstdin and return responses to stdout.  Each entry in the list is tried\nuntil a successful connection is made." (choice string (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 (#$ . 5837))
#@68 Priority of streams to consider when opening connection to server.
(defvar imap-streams '(gssapi kerberos4 starttls tls ssl network shell) (#$ . 5939))
#@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-ssl-p imap-ssl-open) (network imap-network-p imap-network-open) (shell imap-shell-p imap-shell-open) (starttls imap-starttls-p imap-starttls-open)) (#$ . 6098))
#@71 Priority of authenticators to consider when authenticating to server.
(defvar imap-authenticators '(gssapi kerberos4 digest-md5 cram-md5 login anonymous) (#$ . 6629))
#@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)) (#$ . 6803))
#@36 Error codes from the last command.
(defvar imap-error nil (#$ . 7415))
#@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 (#$ . 7493))
(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 (#$ . 8754))
#@38 The EOL string sent from the server.
(defvar imap-server-eol "
\n" (#$ . 8895))
#@39 The EOL string we send to the server.
(defvar imap-client-eol "
\n" (#$ . 8981))
#@23 Current mailbox name.
(defvar imap-current-mailbox nil (#$ . 9068))
#@54 Current target mailbox for COPY and APPEND commands.
(defvar imap-current-target-mailbox nil (#$ . 9142))
#@28 Obarray with mailbox data.
(defvar imap-mailbox-data nil (#$ . 9254))
#@32 Length of `imap-mailbox-data'.
(defvar imap-mailbox-prime 997 (#$ . 9330))
#@25 Current message number.
(defvar imap-current-message nil (#$ . 9411))
#@28 Obarray with message data.
(defvar imap-message-data nil (#$ . 9487))
#@32 Length of `imap-message-data'.
(defvar imap-message-prime 997 (#$ . 9563))
#@24 Capability for server.
(defvar imap-capability nil (#$ . 9644))
#@35 Identity of server.
See RFC 2971.
(defvar imap-id nil (#$ . 9714))
#@31 Namespace for current server.
(defvar imap-namespace nil (#$ . 9787))
#@52 Lower limit on command tags that have been parsed.
(defvar imap-reached-tag 0 (#$ . 9863))
#@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 (#$ . 9961))
#@21 Command tag number.
(defvar imap-tag 0 (#$ . 10215))
#@10 Process.
(defvar imap-process nil (#$ . 10274))
#@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 (#$ . 10329))
#@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 (#$ . 10508))
#@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 (#$ . 10751))
#@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	\211@@)\232\203A\207\303	A\"\241\210\207" [alist key x imap-remassoc] 5 (#$ . 11252)])
#@41 Enable multibyte in the current buffer.
(defalias 'imap-disable-multibyte '(macro . #[nil "\300\207" [(set-buffer-multibyte nil)] 1 (#$ . 11707)]))
(defalias 'imap-utf7-encode #[(string) "\203
	\205\302\303\304\217\207	\207" [imap-use-utf7 string nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string))] 3])
(put 'imap-utf7-encode 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-utf7-decode #[(string) "\203
	\205\302\303\304\217\207	\207" [imap-use-utf7 string nil (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string))] 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\206pq\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@\211\203\f
\307\310\n\"\210\311 \210\f\206!
*+,-./\3120123\313\n\314\3154\316\317\f!\3205&\"%6\30676\203
r1q\210\3218\3229\3236!\324>\203\3111q\203\311eb\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\3656\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@\211\203\n
\307\310\n\"\210\311 \210\f\206!
*+,-./\3120123\313\n\314\3154\316\317\f!\3205&\"%6\30676\203
r1q\210\3218\3229\3236!\324>\203\3121q\203\312eb\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\3636\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-ssl-p #[(buffer) "\300\207" [nil] 1])
#@35 Open an SSL connection to SERVER.
(defalias 'imap-ssl-open #[(name buffer server port) "<\203	\202C\306\211	\204\271\211A@\211\203\271\307\310\n\"\210\311 \210\f\206+
 !\"#\312\313!\203B\313\202C\314\306$\315%&'(\316\n\317\320)\321\322\f!$\"%$$\306\"\210$\203\264r&q\210eb\210\323$!\324>\203\237&q\203\237db\203\237\325y\203\237\326 \204\237\327$\330\"\210\331\330!\210\202t\332&!\210\311 \210\323$!\333>\203\263$).\202	\203\306\307\334\n\"\210	\202\314\307\335\n\"\210\306+\207" [imap-ssl-program done cmd cmds port imap-default-ssl-port nil message "imap: Opening SSL connection with `%s'..." erase-buffer fboundp set-process-query-on-exit-flag process-kill-without-query start-process format-spec format-spec-make 115 112 number-to-string process-status (open run) -1 imap-parse-greeting accept-process-output 1 sit-for imap-log (open run) "imap: Opening SSL connection with `%s'...done" "imap: Opening SSL connection with `%s'...failed" 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 process name buffer shell-file-name shell-command-switch server] 13 (#$ . 16396)])
(defalias 'imap-tls-p #[(buffer) "\300\207" [nil] 1])
(defalias 'imap-tls-open #[(name buffer server port) "\206	\n\f\306$\211\205T\307!\310>\203Dq\203Ddb\203D\311y\203D\312 \204D\313\314\"\210\315\314!\210\202\316!\210\307!\317>\205T,\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-tls-stream process-status (open run) -1 imap-parse-greeting accept-process-output 1 sit-for imap-log (open run) name buffer server process] 6])
(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	\202C\306\211	\204\236\211A@\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\206db\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) "\206	\n\f\306 $!\307\211\"#\310\311!\210!\203\235\312!!\313>\203Oq\203Odb\203O\314y\203O\315 \204O\316!\317\"\210\320\317!\210\202$\321\322!\210\312!!\323>\203\201q\203\201db\203\201\314y\203\201\324\325\307\326#\204\201\316!\317\"\210\320\317!\210\202S\327!\210\330!!\211#\203\235\312!!\331>\203\235!\"#;\203\251\310\332#\"\210\310\333\"\203\264\334\202\265\335\"\210\".\207" [port imap-default-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write starttls-open-stream nil message "imap: Connecting with STARTTLS..." process-status (open run) -1 imap-parse-greeting accept-process-output 1 sit-for imap-send-command "STARTTLS" (open run) re-search-forward "[0-9]+ OK.*
?\n" t imap-log starttls-negotiate (open run) "imap: STARTTLS info: %s" "imap: Connecting with STARTTLS...%s" "done" "failed" name buffer server process done tls-info] 6])
#@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\204\203\f\2060\311\312
\313\314!\315\260\206/\"\206D\316\317\320
\321\314!\315\260!\203\n\203\n\"\203s\322\323!\210\324\204\204m\325\326!\203\n\202\322\327!\210\310\211\330\331!\210\202	,\207" [buffer ret passwd user imap-username imap-server make-local-variable imap-password nil read-from-minibuffer "imap: username for " " (using stream `" symbol-name "'): " read-passwd "imap: password for " "@" " (using authenticator `" 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] 9 (#$ . 21050)])
(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\313Q\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 (#$ . 22750)])
(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*" ((byte-code "\301!\203\n\302!\210\301\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 (#$ . 23920)])
(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) "\301\302\303\217\205\f\304\305!!\207" [buffer nil (byte-code "\300\301!\207" [require sasl] 2) ((error)) 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 (#$ . 25139)])
(defalias 'imap-digest-md5-p #[(buffer) "\301\302\"\205\303\304\305\217\207" [buffer imap-capability AUTH=DIGEST-MD5 nil (byte-code "\300\301!\207" [require digest-md5] 2) ((error))] 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 (#$ . 26525)])
(defalias 'imap-open-1 #[(buffer) "rq\210\306 \210\307\211\310\307\311\312\217\211\205I\313\f\314\"\210\315\f\316\"\210\310=\203;\317\f!\320>\203;\321\322
\"\210\323\f\324\"\210\202 \321\325
\"\210\317\f!\326>\205I\f)\207" [buffer imap-current-mailbox imap-current-message imap-state imap-process imap-server erase-buffer nil initial (byte-code "\305	\2368\306\n\f$\207" [imap-stream imap-stream-alist buffer imap-server imap-port 2 "imap"] 5) (((error quit))) 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)] 4])
#@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%@\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 (#$ . 28014)])
#@73 If non-nil, check if IMAP is open.
See the function `imap-ping-server'.
(custom-declare-variable 'imap-ping-server t '(#$ . 29987) :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\206p!\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 (#$ . 30170)])
#@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) "\300\301\302\217\207" [nil (byte-code "\303\304\"\211\305=\203\306\202	\307)\207" [buffer status imap-error imap-send-command-wait "NOOP" OK t nil] 4) ((error))] 3 (#$ . 30541)])
#@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\206pq\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\3148p!\205\255\307\211\202\255\315\211A@\211\203\253\236\211A@p!\203^\316\317#\210\3148p!\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 (#$ . 30956)])
#@85 Close connection to server in BUFFER.
If BUFFER is nil, the current buffer is used.
(defalias 'imap-close #[(&optional buffer) "r\206pq\210\304 \203\305\306\307\217\210	\203\"\310	!\311>\203\"\312	!\210\305\211\305\313 \210)\314\207" [buffer imap-process imap-current-mailbox imap-current-message imap-opened nil (imap-logout-wait) ((quit)) process-status (open run) delete-process erase-buffer t] 4 (#$ . 32123)])
#@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\206pq\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 (#$ . 32555)])
#@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\206pq\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 (#$ . 33060)])
#@100 Return a namespace hierarchy at server in BUFFER.
If BUFFER is nil, the current buffer is assumed.
(defalias 'imap-namespace #[(&optional buffer) "r\206pq\210	\204\302\303!\203\304\305!\210	)\207" [buffer imap-namespace imap-capability NAMESPACE imap-send-command-wait "NAMESPACE"] 2 (#$ . 33785)])
(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) "\204p	\203\303\304\215\211\303=\203\305\306\307\217\202\n)\207\310\311\"\207" [buffer imap-logout-timeout -with-timeout-value- #1=#:timeout (byte-code "\304\305\306#\211\nB\307\216\310\311\"+\207" [imap-logout-timeout -with-timeout-timer- with-timeout-timers buffer run-with-timer nil #[nil "\300\301\211\"\207" [throw #1#] 3] ((cancel-timer -with-timeout-timer-)) imap-send-command "LOGOUT"] 5) nil (byte-code "rq\210\302	!)\207" [buffer imap-process delete-process] 2) ((error)) imap-send-command "LOGOUT"] 4])
(defalias 'imap-logout-wait #[(&optional buffer) "\204p	\203\303\304\215\211\303=\203\305\306\307\217\202\n)\207\310\311\"\207" [buffer imap-logout-timeout -with-timeout-value- #1=#:timeout (byte-code "\304\305\306#\211\nB\307\216\310\311\"+\207" [imap-logout-timeout -with-timeout-timer- with-timeout-timers buffer run-with-timer nil #[nil "\300\301\211\"\207" [throw #1#] 3] ((cancel-timer -with-timeout-timer-)) imap-send-command-wait "LOGOUT"] 5) nil (byte-code "rq\210\302	!)\207" [buffer imap-process delete-process] 2) ((error)) imap-send-command-wait "LOGOUT"] 4])
(defalias 'imap-mailbox-put #[(propname value &optional mailbox buffer) "r\206pq\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\306\307\310\217\202	)r\206pq\210\f\206\"
\311\206*
\n\"\fN,\207" [mailbox string imap-use-utf7 buffer propname imap-current-mailbox nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) intern-soft imap-mailbox-data] 3])
(defalias 'imap-mailbox-map-1 #[(func &optional mailbox-decoder buffer) "r\206pq\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 (#$ . 36602)])
(defalias 'imap-current-mailbox #[(&optional buffer) "r\206pq\210	\203\n\205\304\305\306\217\202\n*\207" [buffer imap-current-mailbox string imap-use-utf7 nil (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string))] 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\206pq\210\305	\203\n\205\306\307\310\217\202\n)\f\")\207" [buffer mailbox string imap-use-utf7 examine imap-current-mailbox-p-1 nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string))] 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 (#$ . 37703)])
(defalias 'imap-mailbox-select #[(mailbox &optional examine buffer) "r\206pq\210\305	\203\n\205\306\307\310\217\202\n)\f\"\203.\n\205/\306\311\312\217\202/\n*\207" [buffer mailbox string imap-use-utf7 examine imap-mailbox-select-1 nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string))] 4])
(defalias 'imap-mailbox-examine-1 #[(mailbox &optional buffer) "r\206pq\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 (#$ . 38874)])
#@61 Close current folder in BUFFER, without expunging articles.
(defalias 'imap-mailbox-unselect #[(&optional buffer) "r\206pq\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 (#$ . 39058)])
#@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\206pq\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 (#$ . 39595)])
#@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\206pq\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 (#$ . 40080)])
(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\206pq\210\304	\203\n\205\305\306\307\217\202\n)!)\207" [buffer mailbox string imap-use-utf7 imap-mailbox-create-1 nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string))] 4 (#$ . 41033)])
#@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\306\307\310\217\202	)r\206pq\210\311\312\313E!\211\314=\203-\315\2020\f\306+\207" [mailbox string imap-use-utf7 buffer status imap-error nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "DELETE \"" "\"" OK t] 5 (#$ . 41448)])
#@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\306\307\310\217\202	)\n\203$	\205%\306\307\310\217\202%	)r\f\206.pq\210\311\312\313\314\314\257!\211\315=\203E\316\202I
\306,\207" [oldname string imap-use-utf7 newname buffer status nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "RENAME \"" "\" " "\"" OK t imap-error] 8 (#$ . 41948)])
#@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\206pq\210	\203@\306\n\307\206
\"\fN*\204@\310\311\312\n\2038\205:\313\314\315\217\202:)\316\260!\210\317\320!\210\310\321\312\n\203]\205_\313\314\315\217\202_)	\205t\306\n\307\206n
\"\fN*\322\260!\211\323=\203\204\324\202\211\313)\205\230\313\317\325!\210\237))\207" [buffer add-delimiter root mailbox propname imap-current-mailbox delimiter intern-soft imap-send-command-wait "LIST \"" "\" \"" nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "\"" imap-mailbox-map-1 #[(mailbox) "\301\302\303#\207" [mailbox imap-mailbox-put lsub nil] 4] "LSUB \"" "%\"" OK t #[(mailbox) "\306\307\206\n\n\"	N*\205+
\203#\f\205$\310\311\312\217\202$\f)B\211\207" [mailbox propname imap-current-mailbox imap-mailbox-data string imap-use-utf7 lsub intern-soft nil (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string)) out] 3] imap-mailbox-data reference string imap-use-utf7 status imap-error out] 9 (#$ . 42545)])
#@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\206pq\210	\203@\306\n\307\206
\"\fN*\204@\310\311\312\n\2038\205:\313\314\315\217\202:)\316\260!\210\317\320!\210\310\311\312\n\203]\205_\313\314\315\217\202_)	\205t\306\n\307\206n
\"\fN*\321\260!\211\322=\203\204\323\202\211\313)\205\230\313\317\324!\210\237))\207" [buffer add-delimiter root mailbox propname imap-current-mailbox delimiter intern-soft imap-send-command-wait "LIST \"" "\" \"" nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "\"" imap-mailbox-map-1 #[(mailbox) "\301\302\303#\207" [mailbox imap-mailbox-put list nil] 4] "%\"" OK t #[(mailbox) "\306\307\206\n\n\"	N*\205+
\203#\f\205$\310\311\312\217\202$\f)B\211\207" [mailbox propname imap-current-mailbox imap-mailbox-data string imap-use-utf7 list intern-soft nil (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string)) out] 3] imap-mailbox-data reference string imap-use-utf7 status imap-error out] 9 (#$ . 44005)])
#@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\206pq\210\306\307	\203\n\205\310\311\312\217\202\n)\313Q!\211\314=\203+\315\202.\f\310*\207" [buffer mailbox string imap-use-utf7 status imap-error imap-send-command-wait "SUBSCRIBE \"" nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "\"" OK t] 6 (#$ . 45406)])
#@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\206pq\210\306\307	\203\n\205\310\311\312\217\202\n)\313Q!\211\314=\203+\315\202.\f\310*\207" [buffer mailbox string imap-use-utf7 status imap-error imap-send-command-wait "UNSUBSCRIBE " nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "\"" OK t] 6 (#$ . 45920)])
#@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\206pq\210\306\307	\203\n\205\310\311\312\217\202\n)\313\314\315\f<\203)\f\202+\fC\"\226F!\211\316=\203:\317\202>
\310)\205R\f<\203N\320\321\f\"\202R\322\f	\")\207" [buffer mailbox string imap-use-utf7 items status imap-send-command-wait "STATUS \"" nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "\" " format "%s" OK t mapcar #[(item) "\302	\"\207" [item mailbox imap-mailbox-get] 3] imap-mailbox-get imap-error] 8 (#$ . 46437)])
#@254 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\206pq\210\305\306	\203\n\205\307\310\311\217\202\n)\312\313\314\f<\203)\f\202+\fC\"\226F!)\207" [buffer mailbox string imap-use-utf7 items imap-send-command "STATUS \"" nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "\" " format "%s"] 7 (#$ . 47364)])
#@43 Get ACL on MAILBOX from server in BUFFER.
(defalias 'imap-mailbox-acl-get #[(&optional mailbox buffer) "\n\203	\205\306\307\310\217\202	)r\206pq\210\311\312\206#\f\313E!\211\314=\2031\315\2025
\306)\205O\316\206?\f\317\206H\f\"N**\207" [mailbox string imap-use-utf7 buffer imap-current-mailbox status nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "GETACL \"" "\"" OK t acl intern-soft imap-error propname imap-mailbox-data] 5 (#$ . 48036)])
#@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\306\307\310\217\202	)r\206pq\210\311\312\206#\f\313
\314\257!\211\315=\2037\316\202<\306+\207" [mailbox string imap-use-utf7 buffer imap-current-mailbox identifier nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "SETACL \"" "\" " " " OK t rights status imap-error] 8 (#$ . 48610)])
#@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\306\307\310\217\202	)r\206pq\210\311\312\206#\f\313
F!\211\314=\2033\315\2028\306+\207" [mailbox string imap-use-utf7 buffer imap-current-mailbox identifier nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "DELETEACL \"" "\" " OK t status imap-error] 6 (#$ . 49183)])
(defalias 'imap-current-message #[(&optional buffer) "r\206pq\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<\203A<\204C\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\206pq\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\206pq\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 (#$ . 50467)])
(defalias 'imap-message-put #[(uid propname value &optional buffer) "r\206pq\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\206pq\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\206pq\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 (#$ . 51705)])
(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\206pq\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\206pq\210\303\304\305	\"\235\206\n\304\305	\"\235)\207" [buffer mailbox flag "\\*" imap-mailbox-get permanentflags] 4 (#$ . 54873)])
(defalias 'imap-message-flags-set #[(articles flags &optional silent buffer) "\205.	\205.r\n\206pq\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\206pq\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\206pq\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	\"\211V\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) "\300\301\302\217\207" [data (byte-code "\306\307	\203\f\nA\202\n@\f
%)\207" [debug-on-error imap-enable-exchange-bug-workaround uids props receive nouidfetch t imap-fetch buffer] 6) ((error (byte-code "\204)\306\307	\211A@)\"\203)r\206pq\210\310\300!\210\311\312\fA
\f
$)\207\313	@	A\"\207" [imap-enable-exchange-bug-workaround data x buffer uids props string-match "The specified message set is invalid" make-local-variable t imap-fetch signal receive nouidfetch] 6)))] 3 (#$ . 56382)])
(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\206pq\210\304	\203\n\205\305\306\307\217\202\n)!)\207" [buffer mailbox string imap-use-utf7 imap-message-copyuid-1 nil (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string))] 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) "\205wr	\206\npq\210\n\f\203\205\306\307\310\217\202)\311\312\n\313\260\n\314!\211\315=\203;\316\202@\306)\203H\316\202j?\205j\317\n!\205j\314!\211\315=\203d\316\202i\306)*\205v\206v\320\n!*\207" [articles buffer mailbox string imap-use-utf7 imap-current-target-mailbox nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "UID COPY " " \"" "\"" imap-send-command-wait OK t imap-mailbox-create-1 imap-message-copyuid-1 cmd status imap-error dont-create no-copyuid] 6 (#$ . 58221)])
(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\206pq\210\304	\203\n\205\305\306\307\217\202\n)!)\207" [buffer mailbox string imap-use-utf7 imap-message-appenduid-1 nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string))] 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\306\307\310\217\202	)r\206pq\210\311\312\313
F!\211\314=\2031\315\2026\306*\205=\316!*\207" [mailbox string imap-use-utf7 buffer imap-current-target-mailbox article nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "APPEND \"" "\" " OK t imap-message-appenduid-1 status imap-error] 6 (#$ . 60149)])
#@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 (#$ . 60873)])
#@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 (#$ . 61223)])
(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\206pq\210	<\204	C\nT\211\306\211\307\n!\310P	\211A@\211\203\345\f;\2035\fP\202\311\f!\203\275\306 r\fq\210\203S\312  \313\232\204meb\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}" ((byte-code "\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 ((byte-code "\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\206pq\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 (#$ . 63420)])
#@22 IMAP process filter.
(defalias 'imap-arrival-filter #[(proc string) "\305\306!!\205hr\306!q\210db\210	c\210\307	!\210\310eb\210\311 \211\205g\214e\n}\210\312G[!\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 ((byte-code "ed|\207" [] 2)) initial imap-parse-greeting auth nonauth selected examine imap-parse-response message "Unknown state %s in arrival filter"] 3 (#$ . 63811)])
(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\367
m\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\367
m\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=\205m\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=\205m\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 (#$ . 70295)])
#@33 Parse an IMAP command response.
(defalias 'imap-parse-response #[nil "\306\307p!\211\310	\311\"\203d`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\2104\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\3065\250\204<
\353\354\355 \"\202\307p!\2115m\204I
\306u\2106\3106\314\"\203_
7]7\315 \210\202\370
\3106\316\"\203\243
7]7\212\315 \210)\306\21189\306f\356=\203\215
`\357\360!{9m\204\215
\306u\210`d{8598F:B:*\202\370
\3106\317\"\203\362
7]7\212\315 \210)\306\21189\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=#:--cl-var-- imap-continuation #2=#:--cl-var-- 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=#:--cl-var-- status #4=#:--cl-var-- imap-reached-tag text code imap-failed-tags imap-callbacks] 6 (#$ . 70547)])
(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\213
m\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\227m\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\253m\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\202m\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\344\306\211\211\211\211\211\211\211\211\211\211\2119:;<=>\310\306w?\306f\311=??\312U\2049\313u\210)\203Rm\204D\306u\210\314p!@m\204P\306u\210@\315=\203`\306\316\317\217>\202N@\320=\203t\321 \211=\204N\322\202N@\323=\203\202\324 <\202N@\325=\203

\306f\326=\203\312\327u\210`\330AB\331\306w\210B`{A\306f\332=\203\301`TB\333u\210\331\306w\210AB`{PA\202\243\327u\210A*\202\374\306f\334=\205\374\335\336!\205\374\312\225\337\340\327!!CDdDC\\W?\205\373DC\\b\210D\211C\\{*;\202N@\341=\203\216
\306f\326=\203I
\327u\210`\330AB\331\306w\210B`{A\306f\332=\203@
`TB\333u\210\331\306w\210AB`{PA\202\"
\327u\210A*\202{
\306f\334=\203~
\335\336!\203~
\312\225\337\340\327!!CDdDC\\W?\205z
DC\\b\210D\211C\\{*\206\211
\335\342!\203\210
\312\225b\210\306:\202N@\343=\203\306f\326=\203\326
\327u\210`\330AB\331\306w\210B`{A\306f\332=\203\315
`TB\333u\210\331\306w\210AB`{PA\202\257
\327u\210A*\202\306f\334=\203\335\336!\203\312\225\337\340\327!!CDdDC\\W?\205DC\\b\210D\211C\\{*\206\335\342!\203\312\225b\210\3069\202N@\344=\203\247\306f\326=\203c\327u\210`\330AB\331\306w\210B`{A\306f\332=\203Z`TB\333u\210\331\306w\210AB`{PA\202<\327u\210A*\202\225\306f\334=\203\230\335\336!\203\230\312\225\337\340\327!!CDdDC\\W?\205\224DC\\b\210D\211C\\{*\206\243\335\342!\203\242\312\225b\210\306\202N@\345=\203\265\314p!\202N@\346=\203D`Sf\347=\203>`\350\351\306\322#S{E`Sf\352=\203\234\353\354E\306f\307=\205\220\306F\306f\311=\204\205m\204\362\306u\210\306f\326=\2033\327u\210`\330AB\331\306w\210B`{A\306f\332=\203*`TB\333u\210\331\306w\210AB`{PA\202\f\327u\210A*\202e\306f\334=\203h\335\336!\203h\312\225\337\340\327!!CDdDC\\W?\205dDC\\b\210D\211C\\{*\206}`\350\355\306\322#\203x\312\225Sb\202|\306\210`{FBF\202\344m\204\214\306u\210F\237)B\356#\357\360\306\322#\210\202\236E)\226\306f\361=\205\257`T\357\362\306\322#{m\204\266\306u\210\306f\326=\203\367\327u\210`\330AB\331\306w\210B`{A\306f\332=\203\356`TB\333u\210\331\306w\210AB`{PA\202\320\327u\210A*\202)\306f\334=\203,\335\336!\203,\312\225\337\340\327!!CDdDC\\W?\205(DC\\b\210D\211C\\{*\2067\335\342!\2036\312\225b\210\306E\nB\202N\363 \202N@\364=\203N\363 )\202%>\205\342>G\365>\315>#\210=\204l\203t\365>\320=#\210<\203\201\365>\323<#\210;\203\216\365>\325;#\210:\203\233\365>\341:#\2109\203\250\365>\3439#\210
\203\263\365>\344
#\210\f\203\276\365>\345\f#\210\203\311\365>\346#\210\n\203\324\365>\366\n#\210	\203\337\365>\364	#\210\367\370!.\f\207" [flags-empty bodystructure bodydetail body rfc822size rfc822text nil 40 " 	" 41 0 -1 read UID (byte-code "\300p!\207" [read] 2) ((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\253
m\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!\210\302f\306=\2049m\204\302u\210\307\302w\210`\211\2039\310\311 w\312V\2039`{	B\202\302f\306=\204D\304\313!\210m\204K\302u\210	\237*\207" [start flag-list nil 40 error "In imap-parse-flag-list 1" 41 " " "^ )" point-at-eol 0 "In imap-parse-flag-list 2"] 2])
(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\211m\204
\306u\210\306f\326=\204(\306f\327=\203$
m\204$
\306u\210\306\211f\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\211m\204^\306u\210\306f\326=\204w\306f\327=\203sm\204s\306u\210\306\211f\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\211m\204\255\306u\210\306f\326=\204\306\306f\327=\203\302m\204\302\306u\210\306\211f\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\211m\204\374\306u\210\306f\326=\204\n\306f\327=\203m\204\306u\210\306\211f\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\211m\204K\n\306u\210\306f\326=\204d\f\306f\327=\203`\nm\204`\n\306u\210\306\211f\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\211m\204\232\f\306u\210\306f\326=\204\263\306f\327=\203\257\fm\204\257\f\306u\210\306\211f\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=\204m\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=\203A\305m\204\305u\210\307 B\305f\310=\203+m\204#\305u\210\307 B\202\305f\311=\2046\312\313!\210m\204=\305u\210\237)\207\314\315!\203S\316\317\320!!\320\225b\210\206\303\305f\321=\203\213\322u\210`\323\324\305w\210\n`{\305f\325=\203\203`T\326u\210\324\305w\210	\n`{P\202i\322u\210	*\202\265\305f\327=\203\270\314\330!\203\270\320\225\316\317\322!!d\f\\W?\205\264\f\\b\210\f\211\\{*\206\303\314\331!\203\302\320\225b\210\305\207" [b-e name p len pos nil 40 imap-parse-body-extension 32 41 error "In imap-parse-body-extension" looking-at "[0-9]+" string-to-number match-string 0 34 1 "" "^\"\\\\" 92 2 123 "{\\([0-9]+\\)}
\n" "NIL"] 4])
(defalias 'imap-parse-body-ext #[nil "\306\211f\307=\203\236m\204\306u\210\306\211f\310=\203A
m\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\211m\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\240m\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\211m\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\372
B\306f\311=\204z
m\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=\205Lm\204\306u\210\306f\307=\203M\306\306f\307=\203D\310 \211\203D\306f\311=\203=`Tf\307=\203=m\204=\306u\210	B\202m\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\331m\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=\204@\332\333!\210m\204G\306u\210\237)\202L\306f\312=\203\205\313u\210`\314\315\306w\210`{\306f\316=\203}`T\317u\210\315\306w\210\n`{P\202c\313u\210\n*\202\257\306f\320=\205\257\321\322!\205\257\323\225\324\325\313!!d
\f\\W?\205\256
\f\\b\210
\211\f\\{*Bm\204\271\306u\210\306f\312=\203\361\313u\210`\314\315\306w\210`{\306f\316=\203\351`T\317u\210\315\306w\210\n`{P\202\317\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=\2033m\2043\306u\210\306f\307=\203\350\306f\307=\203\325\306\211#$m\204N\306u\210\306f\312=\203\206\313u\210`\314\315\306w\210`{\306f\316=\203~`T\317u\210\315\306w\210\n`{P\202d\313u\210\n*\202\260\306f\320=\205\260\321\322!\205\260\323\225\324\325\313!!d
\f\\W?\205\257
\f\\b\210
\211\f\\{*\211#\203\316#$B$\306f\312=\204Nm\204N\306u\210\202N$\237*\202\342\321\326!\205\342\323\225b\205\342\306B\202\366\321\326!\203\362\323\225b\210\306Bm\204\375\306u\210\306f\312=\2035\313u\210`\314\315\306w\210`{\306f\316=\203-`T\317u\210\315\306w\210\n`{P\202\313u\210\n*\202_\306f\320=\203b\321\322!\203b\323\225\324\325\313!!d
\f\\W?\205^
\f\\b\210
\211\f\\{*\206m\321\326!\203l\323\225b\210\306Bm\204w\306u\210\306f\312=\203\257\313u\210`\314\315\306w\210`{\306f\316=\203\247`T\317u\210\315\306w\210\n`{P\202\215\313u\210\n*\202\331\306f\320=\203\334\321\322!\203\334\323\225\324\325\313!!d
\f\\W?\205\330
\f\\b\210
\211\f\\{*\206\347\321\326!\203\346\323\225b\210\306Bm\204\361\306u\210\306f\312=\203)\313u\210`\314\315\306w\210`{\306f\316=\203!`T\317u\210\315\306w\210\n`{P\202\313u\210\n*\202S\306f\320=\203V\321\322!\203V\323\225\324\325\313!!d
\f\\W?\205R
\f\\b\210
\211\f\\{*\206a\321\326!\203`\323\225b\210\334Bm\204k\306u\210\306f\335=\203}\336\306w\210\306B\202\217\321\337!\205\214\324\325\323!!\323\225b\210B\306f\311=\203m\204\235\306u\210\306\211'f\307=\203\342\340 Bm\204\263\306u\210\310 B\306f\331=\203\306\323B\202m\204\315\306u\210\321\337!\205\334\324\325\323!!\323\225b\210B\202\321\337!\205\361\324\325\323!!\323\225b\210\211'\203\377'B\202\341u\210)\306f\311=\2038m\204\306u\210\306f\312=\203I\313u\210`\314\315\306w\210`{\306f\316=\203A`T\317u\210\315\306w\210\n`{P\202'\313u\210\n*\202s\306f\320=\203v\321\322!\203v\323\225\324\325\313!!d
\f\\W?\205r
\f\\b\210
\211\f\\{*\206\201\321\326!\203\200\323\225b\210\306B\327\306\211%f\311=\2032m\204\226\306u\210\306\211&f\307=\203\314	m\204\247\306u\210\306f\312=\203\337\313u\210`\314\315\306w\210`{\306f\316=\203\327`T\317u\210\315\306w\210\n`{P\202\275\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\260	\306\211#$m\204)	\306u\210\306f\312=\203a	\313u\210`\314\315\306w\210`{\306f\316=\203Y	`T\317u\210\315\306w\210\n`{P\202?	\313u\210\n*\202\213	\306f\320=\205\213	\321\322!\205\213	\323\225\324\325\313!!d
\f\\W?\205\212	
\f\\b\210
\211\f\\{*\211#\203\251	#$B$\306f\312=\204)	m\204)	\306u\210\202)	$\237*\202\275	\321\326!\205\275	\323\225b\205\275	\306&B&m\204\326	\306u\210\202\326	\321\326!\203\326	\323\225b\210&\237%B%)\306f\311=\2032m\204\355	\306u\210\306f\307=\203\244\n\306f\307=\203\217\n\306\211#$m\204\n\306u\210\306f\312=\203@\n\313u\210`\314\315\306w\210`{\306f\316=\2038\n`T\317u\210\315\306w\210\n`{P\202\n\313u\210\n*\202j\n\306f\320=\205j\n\321\322!\205j\n\323\225\324\325\313!!d
\f\\W?\205i\n
\f\\b\210
\211\f\\{*\211#\203\210\n#$B$\306f\312=\204\nm\204\n\306u\210\202\n$\237*\202\234\n\321\326!\205\234\n\323\225b\205\234\n\306%B%\202\306f\312=\203\334\n\313u\210`\314\315\306w\210`{\306f\316=\203\324\n`T\317u\210\315\306w\210\n`{P\202\272\n\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=\2032m\204'\306u\210\327\330 %\"%\202%)\"\306f\331=\204C\332\342!\210m\204J\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 error "In imap-parse-body" "7BIT" 45 "-0-9" "[0-9]+" imap-parse-envelope -1 "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-ssl-p imap-ssl-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)