%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\312\305\322\323&\210\314\324\316\317\325DD\326\312\305\322\327&\210\314\330\316\317\331DD\332\312\305\322\333&\210\314\334\316\317\335DD\336\310\337\312\305\322\340& \210\314\341\316\317\342DD\343\312\305\322\340&\210\314\344\316\317\345DD\346\312\305\322\340&\210\314\347\316\317\350DD\351\312\305\322\340&\210\314\352\316\317\353DD\354\312\305\322\355&\210\314\356\316\317\357DD\360\312\305\322\355&\210\314\361\316\317\362DD\363\322\364\312\305&\210\314\365\316\317\366DD\367\312\305\322\340&\207" [require format-spec utf7 rfc2104 custom-declare-group imap nil "Low-level IMAP issues." :version "21.1" :group mail custom-declare-variable imap-kerberos4-program funcall function #[0 "\300\207" [("imtest -m kerberos_v4 -u %l -p %p %s" "imtest -kp %s %p")] 1] "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 #[0 "\300\301D\207" ["gsasl %s %p --mechanism GSSAPI --authentication-id %l" "imtest -m gssapi -u %l -p %p %s"] 2] "List of strings containing commands for GSSAPI (krb5) authentication.\n%s is replaced with server hostname, %p with port to connect to, and\n%l with the value of `imap-default-user'. The program should accept\nIMAP commands on stdin and return responses to stdout. Each entry in\nthe list is tried until a successful connection is made." (repeat string) imap-shell-program #[0 "\300\207" [("ssh %s imapd" "rsh %s imapd" "ssh %g ssh %s imapd" "rsh %g rsh %s imapd")] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [#1="gateway"] 1 #1#] "Hostname of rlogin proxy." string imap-default-user #[0 "\300 \207" [user-login-name] 1] "Default username to use." imap-read-timeout #[0 "\301>\203 \302\207\303\207" [system-type (windows-nt cygwin) 1.0 0.1] 2] "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 #[0 "\300\207" [nil] 1] "If non-nil, store session password without prompting."] 10)
#@51 Hooks called after receiving each FETCH response.
(defvar imap-fetch-data-hook nil (#$ . 4816))
#@68 Priority of streams to consider when opening connection to server.
(defvar imap-streams '(gssapi kerberos4 starttls tls ssl network shell) (#$ . 4918))
#@193 Definition of network streams.
(NAME CHECK OPEN)
NAME names the stream, CHECK is a function returning non-nil if the
server support the stream and OPEN is a function for opening the
stream.
(defvar imap-stream-alist '((gssapi imap-gssapi-stream-p imap-gssapi-open) (kerberos4 imap-kerberos4-stream-p imap-kerberos4-open) (tls imap-tls-p imap-tls-open) (ssl imap-tls-p imap-tls-open) (network imap-network-p imap-network-open) (shell imap-shell-p imap-shell-open) (starttls imap-starttls-p imap-starttls-open)) (#$ . 5077))
#@71 Priority of authenticators to consider when authenticating to server.
(defvar imap-authenticators '(gssapi kerberos4 digest-md5 cram-md5 login anonymous) (#$ . 5608))
#@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)) (#$ . 5782))
#@36 Error codes from the last command.
(defvar imap-error nil (#$ . 6394))
#@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 (#$ . 6472))
(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 (#$ . 7733))
#@38 The EOL string sent from the server.
(defvar imap-server-eol "
\n" (#$ . 7874))
#@39 The EOL string we send to the server.
(defvar imap-client-eol "
\n" (#$ . 7960))
#@23 Current mailbox name.
(defvar imap-current-mailbox nil (#$ . 8047))
#@54 Current target mailbox for COPY and APPEND commands.
(defvar imap-current-target-mailbox nil (#$ . 8121))
#@28 Obarray with mailbox data.
(defvar imap-mailbox-data nil (#$ . 8233))
#@32 Length of `imap-mailbox-data'.
(defvar imap-mailbox-prime 997 (#$ . 8309))
#@25 Current message number.
(defvar imap-current-message nil (#$ . 8390))
#@28 Obarray with message data.
(defvar imap-message-data nil (#$ . 8466))
#@32 Length of `imap-message-data'.
(defvar imap-message-prime 997 (#$ . 8542))
#@24 Capability for server.
(defvar imap-capability nil (#$ . 8623))
#@35 Identity of server.
See RFC 2971.
(defvar imap-id nil (#$ . 8693))
#@31 Namespace for current server.
(defvar imap-namespace nil (#$ . 8766))
#@52 Lower limit on command tags that have been parsed.
(defvar imap-reached-tag 0 (#$ . 8842))
#@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 (#$ . 8940))
#@21 Command tag number.
(defvar imap-tag 0 (#$ . 9194))
#@10 Process.
(defvar imap-process nil (#$ . 9252))
#@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 (#$ . 9306))
#@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 (#$ . 9484))
#@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 (#$ . 9726))
#@323 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'.
(fn KEY ALIST)
(defalias 'imap-remassoc #[514 "\211\205 @@\232\203 \211A\207\211\300A\"\241\210\211\207" [imap-remassoc] 6 (#$ . 10226)])
#@41 Enable multibyte in the current buffer.
(defalias 'imap-disable-multibyte '(macro . #[0 "\300\207" [(set-buffer-multibyte nil)] 1 (#$ . 10683)]))
(make-obsolete 'imap-disable-multibyte nil "27.1")
#@15
(fn STRING)
(defalias 'imap-utf7-encode #[257 "\203 \211\205 \3011 \302\303\"0\207\210\304\305\"\210\207\211\207" [imap-use-utf7 (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..."] 4 (#$ . 10886)])
(put 'imap-utf7-encode 'byte-optimizer 'byte-compile-inline-expand)
#@15
(fn STRING)
(defalias 'imap-utf7-decode #[257 "\203 \211\205 \3011 \302\303\"0\207\210\304\305\"\210\207\211\207" [imap-use-utf7 (error) utf7-decode t message "imap: Could not UTF7 decode `%s', using it undecoded..."] 4 (#$ . 11203)])
(put 'imap-utf7-decode 'byte-optimizer 'byte-compile-inline-expand)
#@15
(fn STATUS)
(defalias 'imap-ok-p #[257 "\211\301=\203 \302\207\211\303\207" [imap-error OK t nil] 3 (#$ . 11520)])
(put 'imap-ok-p 'byte-optimizer 'byte-compile-inline-expand)
#@25
(fn &optional BUFFER)
(defalias 'imap-error-text #[256 "r\211\206 pq\210\301@8)\207" [imap-failed-tags 3] 3 (#$ . 11706)])
#@25
(fn STRING-OR-BUFFER)
(defalias 'imap-log #[257 "\205# r\302 !q\210\303\304!\210\305 \210db\210\306!\203 \307!\202\" \211c)\207" [imap-log imap-log-buffer get-buffer-create set-buffer-multibyte nil buffer-disable-undo bufferp insert-buffer-substring] 3 (#$ . 11839)])
#@15
(fn BUFFER)
(defalias 'imap-kerberos4-stream-p #[257 "\300\301\"\207" [imap-capability AUTH=KERBEROS_V4] 4 (#$ . 12119)])
#@32
(fn NAME BUFFER SERVER PORT)
(defalias 'imap-kerberos4-open #[1028 "\306\211\211\204\375 \211A\262\242\211\262\203\375 \307\310\"\210\311 \210\206 \n\f * +\312,-\313\314\315\316\317\f!\320.&\"%\306\203\367 rq\210\321/\3220\323!\324>\203\276 q\203\276 eb\203\276 \325\326!\203s \306y\210\202g \325\327!\203 \306y\210\202s \325\330!\203\213 \306y\210\202 \325\331!\203\224 \332u\210\333 \203\262 \334\335\306\322#\204\251 \334\336\306\322#\203\262 \337\340!\211\262\204\276 \341\340\"\210\342\340!\210\202T \311 \210\307\343\203\317 \344P\202\320 \345#\210\211\203\347 \306 1\346\345\")\204\347 \262\202\366 \323!\347>\203\362 \350 \210\351!\210)+\266\202 \207" [imap-kerberos4-program imap-default-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write 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-process-connection-type process-connection-type shell-file-name shell-command-switch imap-default-user imap-client-eol imap-calculate-literal-size-first case-fold-search] 22 (#$ . 12250)])
#@15
(fn BUFFER)
(defalias 'imap-gssapi-stream-p #[257 "\300\301\"\207" [imap-capability AUTH=GSSAPI] 4 (#$ . 13805)])
#@32
(fn NAME BUFFER SERVER PORT)
(defalias 'imap-gssapi-open #[1028 "\306\211\211\204\373 \211A\262\242\211\262\203\373 \307\310\"\210\311 \210\206 \n\f * +\312,-\313\314\315\316\317\f!\320.&\"%\306\203\365 rq\210\321/\3220\323!\324>\203\277 q\203\277 eb\203\277 \325\326!\203s \306y\210\202g \325\327!\203 \306y\210\202s \325\330!\203\213 \306y\210\202 \325\331!\203\224 \332u\210\325\333!\203\235 \306y\210\334 \203\263 \335\336\306\322#\203\263 \337\340!\211\262\204\277 \341\340\"\210\342\340!\210\202T \343 !\210\311 \210\307\344\206\316 \345\"\210\211\203\345 \306 1\346\345\")\204\345 \262\202\364 \323!\347>\203\360 \350 \210\351!\210)+\266\202 \207" [imap-gssapi-program imap-default-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write 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-process-connection-type process-connection-type shell-file-name shell-command-switch imap-default-user imap-client-eol imap-calculate-literal-size-first case-fold-search] 22 (#$ . 13928)])
#@15
(fn BUFFER)
(defalias 'imap-tls-p #[257 "\300\207" [nil] 2 (#$ . 15485)])
#@32
(fn NAME BUFFER SERVER PORT)
(defalias 'imap-tls-open #[1028 "\211\206 \305\306\307&\211\205K \310!\311>\203> q\203> db\203> \312y\203> \313 \204> \314\315\"\210\316\315!\210\202 \317!\210\310!\320>\205K \211*\207" [imap-default-tls-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write open-network-stream :type tls process-status (open run) -1 imap-parse-greeting accept-process-output 1 sit-for imap-log (open run)] 12 (#$ . 15567)])
#@15
(fn BUFFER)
(defalias 'imap-network-p #[257 "\300\207" [t] 2 (#$ . 16084)])
#@32
(fn NAME BUFFER SERVER PORT)
(defalias 'imap-network-open #[1028 "\211\206 \305$\211\205C \306!\307>\2036 q\2036 eb\2036 \310 \2046 \311\312\"\210\313\312!\210\202 \314!\210\306!\315>\205C \211*\207" [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)] 10 (#$ . 16168)])
#@15
(fn BUFFER)
(defalias 'imap-shell-p #[257 "\300\207" [nil] 2 (#$ . 16652)])
#@32
(fn NAME BUFFER SERVER PORT)
(defalias 'imap-shell-open #[1028 "<\203 \202 C\306\211\211\204\227 \211A\262\242\211\262\203\227 \307\310\"\210\311\206) \n
\312!\"\313\314\315\316#\317\320!\321$&\"%\211\203\221 \322!\323>\203~ q\203~ db\203~ \324y\203~ \325 \204~ \326\327\"\210\330\327!\210\202U \331!\210\332 \210\322!\333>\203\221 \211\262+\266\202
\211\203\244 \307\334\"\210\211\202\252 \307\335\"\210\306\207" [imap-shell-program imap-client-eol imap-default-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write 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" coding-system-for-write imap-process-connection-type process-connection-type shell-file-name shell-command-switch imap-shell-host imap-default-user] 24 (#$ . 16736)])
#@15
(fn BUFFER)
(defalias 'imap-starttls-p #[257 "\300\301\"\207" [imap-capability STARTTLS] 4 (#$ . 17857)])
#@32
(fn NAME BUFFER SERVER PORT)
(defalias 'imap-starttls-open #[1028 "\305\306!\210\211\206 \307\310\311\312\313\314\315\316\317\320\321\322\323&\324\203@ \325!\210\326!\327>\203@ \262rq\210eb\210\330 \210)\305\331\203J \332\202K \333\"\210*\207" [imap-default-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write message "imap: Connecting with STARTTLS..." open-network-stream :type starttls :capability-command "1 CAPABILITY
\n" :always-query-capabilities t :end-of-command "
\n" :success "^1 OK " :starttls-function #[257 "\301\302\303\304#)\266\203\205 \305\207" [inhibit-changing-match-data "STARTTLS" nil t string-match "1 STARTTLS
\n"] 8 "\n\n(fn CAPABILITIES)"] nil imap-log process-status (open run) imap-parse-greeting "imap: Connecting with STARTTLS...%s" "done" "failed"] 22 (#$ . 17972)])
#@217 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.
(fn BUFFER LOGINFUNC)
(defalias 'imap-interactive-login #[514 "rq\210\306\300!\210\306\304!\210\307\211\211\203 \204s \206' \310\311\312 \n#\206& \"\262\f\2065 \313\311\314
$!\262\203 \203 \"\203c \315\316!\210\317\262\f\204 \204^ \320\321!\203 \202 \315\322!\210\307\262\307\323\324!\210\202 \266\202)\207" [imap-username imap-server imap-stream imap-default-user imap-password imap-auth make-local-variable nil read-from-minibuffer format-message "imap: username for %s (using stream `%s'): " read-passwd "imap: password for %s@%s (using authenticator `%s'): " message "imap: Login successful..." t y-or-n-p "imap: Store password for this IMAP session? " "imap: Login failed..." sit-for 1 imap-store-password] 11 (#$ . 18861)])
#@15
(fn BUFFER)
(defalias 'imap-gssapi-auth-p #[257 "\301=\207" [imap-stream gssapi] 3 (#$ . 19822)])
#@15
(fn BUFFER)
(defalias 'imap-gssapi-auth #[257 "\301\302\303=\203\f \304\202
\305\"\210\303=\207" [imap-stream message "imap: Authenticating using GSSAPI...%s" gssapi "done" "failed"] 5 (#$ . 19929)])
#@15
(fn BUFFER)
(defalias 'imap-kerberos4-auth-p #[257 "\301\302\"\205\n \303=\207" [imap-stream imap-capability AUTH=KERBEROS_V4 kerberos4] 4 (#$ . 20140)])
#@15
(fn BUFFER)
(defalias 'imap-kerberos4-auth #[257 "\301\302\303=\203\f \304\202
\305\"\210\303=\207" [imap-stream message "imap: Authenticating using Kerberos 4...%s" kerberos4 "done" "failed"] 5 (#$ . 20304)])
#@15
(fn BUFFER)
(defalias 'imap-cram-md5-p #[257 "\300\301\"\207" [imap-capability AUTH=CRAM-MD5] 4 (#$ . 20525)])
#@62 Login to server using the AUTH CRAM-MD5 method.
(fn BUFFER)
(defalias 'imap-cram-md5-auth #[257 "\300\301!\210\302\303\"\211\203 \300\304!\202 \300\305!\207" [message "imap: Authenticating using CRAM-MD5..." imap-interactive-login #[514 "\301\302\303\304\305\306\307\"\310\"\311\312%D!\211\313=\203 \314\207\211\315\207" [imap-error imap-send-command-wait "AUTHENTICATE CRAM-MD5" make-byte-code 257 "\302!\303\304\305\306\301%\300\307Q\310!\207" vconcat vector [base64-decode-string rfc2104-hash md5 64 16 " " base64-encode-string] 8 "\n\n(fn CHALLENGE)" OK t nil] 11 "\n\n(fn USER PASSWD)"] "imap: Authenticating using CRAM-MD5...done" "imap: Authenticating using CRAM-MD5...failed"] 4 (#$ . 20645)])
#@15
(fn BUFFER)
(defalias 'imap-login-p #[257 "\300\301\"?\205
\300\302\"?\207" [imap-capability LOGINDISABLED X-LOGIN-CMD-DISABLED] 4 (#$ . 21367)])
#@15
(fn STRING)
(defalias 'imap-quote-specials #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210eb\210\311\312\313\314#\203- \315u\210\316c\210\317u\210\202 \320 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 re-search-forward "[\\\"]" nil t -1 "\\" 1 buffer-string] 8 (#$ . 21524)])
#@55 Login to server using the LOGIN command.
(fn BUFFER)
(defalias 'imap-login-auth #[257 "\300\301!\210\302\303\"\207" [message "imap: Plaintext authentication..." imap-interactive-login #[514 "\301\302\303!\304\303!\305\260!\211\306=\203 \307\207\211\310\207" [imap-error imap-send-command-wait "LOGIN \"" imap-quote-specials "\" \"" "\"" OK t nil] 8 "\n\n(fn USER PASSWD)"]] 4 (#$ . 21915)])
#@15
(fn BUFFER)
(defalias 'imap-anonymous-p #[257 "\300\207" [t] 2 (#$ . 22319)])
#@15
(fn BUFFER)
(defalias 'imap-anonymous-auth #[257 "\301\302!\210r\211q\210\303\304\305 \306\307 Q\310Q!\211\311=\203 \312\262\202$ \211\313\262)\207" [imap-error message "imap: Logging in anonymously..." imap-send-command-wait "LOGIN anonymous \"" user-login-name "@" system-name "\"" OK t nil] 6 (#$ . 22405)])
#@15
(fn BUFFER)
(defalias 'imap-sasl-make-mechanisms #[257 "\300C\301\302\303\304\305\306!\307\"\310\311%\312\300\"\"\210\211\242\207" [nil mapc make-byte-code 257 "\301!\211G\302V\205 \303\304\302#\305\230\205 \300\303\302\"\300\242B\240\207" vconcat vector [symbol-name 5 substring 0 "AUTH="] 6 "\n\n(fn SYM)" imap-capability] 9 (#$ . 22728)])
#@15
(fn BUFFER)
(defalias 'imap-sasl-auth-p #[257 "\300\301!\210\302\303!!\207" [require sasl sasl-find-mechanism imap-sasl-make-mechanisms] 4 (#$ . 23086)])
#@53 Login to server using the SASL method.
(fn BUFFER)
(defalias 'imap-sasl-auth #[257 "\306\307!\210r\211q\210\310\300!\210\310\303!\210\310\304!\210\311\312!!\313\211\204\273 \2064 \314\315 \316\317!\320\260\2063 \n\"\262\211\203 \321\322 $\323 \313\"\324\325\f!\203Z \326\327\317!\325\f!#\202a \326\330\317!\"\"\331!\332=\203\217 \333\f\334
!\"\210\313\323 \f\"\335\325\f!\203\211 \336\325\f!\337\"\202\212 \340!\210\202c \331!\211\341=\203\236 \337\262\202\244 \211%\313\262\203\257 \337\262\202\267 \306\342!\210\343\344!\210\210\202 \266\203)\207" [imap-username imap-server imap-default-user imap-sasl-client imap-sasl-step imap-continuation message "imap: Authenticating using SASL..." make-local-variable 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-error] 10 (#$ . 23249)])
#@15
(fn BUFFER)
(defalias 'imap-digest-md5-p #[257 "\300\301\"\205 \3021 \303\304!0\207\210\305\207" [imap-capability AUTH=DIGEST-MD5 (error) require digest-md5 nil] 4 (#$ . 24423)])
#@64 Login to server using the AUTH DIGEST-MD5 method.
(fn BUFFER)
(defalias 'imap-digest-md5-auth #[257 "\300\301!\210\302\303\"\207" [message "imap: Authenticating using DIGEST-MD5..." imap-interactive-login #[514 "\302\303\304\305\306\307\310\"\311\"\312\313%D!\314!\315=\2055 \316\317\320!\210\314!\211\321=\2030 \322\262\2025 \211\316\262\207" [imap-continuation imap-error imap-send-command "AUTHENTICATE DIGEST-MD5" make-byte-code 257 "\302\303!!\210\304\305\306\307!\"\310\300\301#\311\312\"\207" vconcat vector [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] 6 "\n\n(fn CHALLENGE)" imap-wait-for-tag INCOMPLETE nil imap-send-command-1 "" OK t] 11 "\n\n(fn USER PASSWD)"]] 4 (#$ . 24613)])
#@15
(fn BUFFER)
(defalias 'imap-open-1 #[257 "r\211q\210\306 \210\307\211\310\3111 \312 \f\2368\313
$0\202\" \210\307\211\205a \314\315\"\210\316\317\"\210\n\310=\203Q \320!\321>\203Q \322\323
\"\210\324\325\"\210\2024 \322\326
\"\210\320!\327>\205a )\207" [imap-current-mailbox imap-current-message imap-state imap-stream imap-stream-alist imap-server erase-buffer nil initial (error quit) 2 "imap" set-process-filter imap-arrival-filter set-process-sentinel imap-sentinel process-status (open run) message "Waiting for response from %s..." accept-process-output 1 "Waiting for response from %s...done" (open run) imap-port imap-process] 7 (#$ . 25454)])
#@610 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.
(fn SERVER &optional PORT STREAM AUTH BUFFER)
(defalias 'imap-open #[1281 "\211\206 \306\307\206 \310#\262r\311!q\210\312!\203! \313!\210\314\315\"\210\316\317!\210\320 \210\2062 \2068 \n\206> \206D \f\321\322 \"\210\f\206O
\323!)\204` \321\324 \"\210\317\202\f\204 \211A\262\242\211\262\203 \236A@!\203f
=\204\360 r\311\325\326!!q\210\314\315\"\210\316\317!\210\320 \210\206\234 \206\242 \n\206\250 \321\327\"\210 \323p!)\204\303 \330p!\210\321\331\"\210\202\354 \313!\210;\203\320 \202\323 \332!\330!\210\333!\210p\262\210\321\334\"\210\317\211!\262)\202f \321\335 \"\210\317\211!\262\202f \210\312!\203\336\"\310\"#\f\205\211)\207" [imap-local-variables imap-server imap-port imap-auth imap-stream imap-default-stream 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 imap-streams imap-stream-alist imap-capability imap-mailbox-prime imap-mailbox-data] 10 (#$ . 26136)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable imap-ping-server funcall function #[0 "\300\207" [t] 1] "If non-nil, check if IMAP is open.\nSee the function `imap-ping-server'." :version "23.1" :group imap :type boolean] 10)
#@137 Return non-nil if connection to imap server in BUFFER is open.
If BUFFER is nil then the current buffer is used.
(fn &optional BUFFER)
(defalias 'imap-opened #[256 "\302\206 p!\211\262\205. \303!\205. r\211q\210\205- \304!\305>\205- \203, \301 \202- \306)\207" [imap-process imap-ping-server get-buffer buffer-live-p process-status (open run) t] 3 (#$ . 28345)])
#@196 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.
(fn &optional BUFFER)
(defalias 'imap-ping-server #[256 "\3011 \302\303\"\211\304=\203 \305\262\202 \211\306\2620\207\210\306\207" [imap-error (error) imap-send-command-wait "NOOP" OK t nil] 4 (#$ . 28723)])
#@384 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.
(fn &optional USER PASSWD BUFFER)
(defalias 'imap-authenticate #[768 "r\211\206 pq\210\306=\204 \307=\206\232 \310=\206\232 \311=\202\232 \312\301!\210\312\302!\210\312\305!\210\2032 \2038 \203R \f\236\211\205\232 \313
8p!\205\232 \307\211\202\232 \314\211A\262\242\211\262\203\227 \211\f\236\211A@p!\203U \315\316#\210\211\313
8p!\203\215 \315\317#\210\307\314\262\202U \315\320#\210\202U \266)\207" [imap-state imap-username imap-password imap-auth imap-authenticator-alist imap-last-authenticator nonauth auth selected examine make-local-variable 2 nil message "imap: Authenticating to `%s' using `%s'..." "imap: Authenticating to `%s' using `%s'...done" "imap: Authenticating to `%s' using `%s'...failed" imap-authenticators imap-server] 10 (#$ . 29118)])
#@108 Close connection to server in BUFFER.
If BUFFER is nil, the current buffer is used.
(fn &optional BUFFER)
(defalias 'imap-close #[256 "r\211\206 pq\210\303 \203 \3041 \305 0\202 \210\202 \210\203, \306!\307>\203, \310!\210\311\211\311\312 \210)\313\207" [imap-process imap-current-mailbox imap-current-message imap-opened (quit) imap-logout-wait process-status (open run) delete-process nil erase-buffer t] 4 (#$ . 30270)])
#@215 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.
(fn &optional IDENTIFIER BUFFER)
(defalias 'imap-capability #[512 "r\211\206 pq\210\204% \302\303!\211\304=\203 \305\262\202 \211\306\262\204% \307\2034 \310\311!\226!>\2025 )\207" [imap-capability imap-error imap-send-command-wait "CAPABILITY" OK t nil (IMAP2) intern symbol-name] 5 (#$ . 30713)])
#@389 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.
(fn &optional LIST-OF-VALUES BUFFER)
(defalias 'imap-id #[512 "r\211\206 pq\210\302\303!\2055 \304\204 \305\202 \306\307\310\311#\312Q!\211\313=\203, \314\262\2021 \211\315\262\2055 )\207" [imap-error imap-id imap-capability ID imap-send-command-wait "ID NIL" "ID (" mapconcat #[257 "\300\300Q\207" ["\""] 4 "\n\n(fn EL)"] " " ")" OK t nil] 8 (#$ . 31212)])
#@123 Return a namespace hierarchy at server in BUFFER.
If BUFFER is nil, the current buffer is assumed.
(fn &optional BUFFER)
(defalias 'imap-namespace #[256 "r\211\206 pq\210\204 \301\302!\203 \303\304!\210)\207" [imap-namespace imap-capability NAMESPACE imap-send-command-wait "NAMESPACE"] 3 (#$ . 31938)])
#@33
(fn COMMAND &optional BUFFER)
(defalias 'imap-send-command-wait #[513 "\300\301\"\"\207" [imap-wait-for-tag imap-send-command] 6 (#$ . 32254)])
#@25
(fn &optional BUFFER)
(defalias 'imap-logout #[256 "\211\204 p\262\203I \3032, \304\305\306#\211 B\307\310\311\312\313!\314\"\315$\216\316\317\"*\2620\211\303=\203G \3201B rq\210\321\n!)0\202H \210\305\202H \211\207\316\317\"\207" [imap-logout-timeout with-timeout-timers imap-process #1=#:timeout run-with-timer nil #[0 "\300\301\211\"\207" [throw #1#] 3] make-byte-code 0 "\301\300!\207" vconcat vector [cancel-timer] 2 imap-send-command "LOGOUT" (error) delete-process] 8 (#$ . 32409)])
#@25
(fn &optional BUFFER)
(defalias 'imap-logout-wait #[256 "\211\204 p\262\203I \3032, \304\305\306#\211 B\307\310\311\312\313!\314\"\315$\216\316\317\"*\2620\211\303=\203G \3201B rq\210\321\n!)0\202H \210\305\202H \211\207\316\317\"\207" [imap-logout-timeout with-timeout-timers imap-process #1=#:timeout run-with-timer nil #[0 "\300\301\211\"\207" [throw #1#] 3] make-byte-code 0 "\301\300!\207" vconcat vector [cancel-timer] 2 imap-send-command-wait "LOGOUT" (error) delete-process] 8 (#$ . 32917)])
#@48
(fn PROPNAME VALUE &optional MAILBOX BUFFER)
(defalias 'imap-mailbox-put #[1026 "r\211\206 pq\210\203 \302\303\206 \"#\210\202$ \304\305p%\210)\306\207" [imap-mailbox-data imap-current-mailbox put intern error "Imap-mailbox-data is nil, prop %s value %s mailbox %s buffer %s" t] 10 (#$ . 33435)])
#@35
(fn PROPNAME &optional MAILBOX)
(defalias 'imap-mailbox-get-1 #[513 "\302\206 \"N\207" [imap-current-mailbox imap-mailbox-data intern-soft] 5 (#$ . 33752)])
(put 'imap-mailbox-get-1 'byte-optimizer 'byte-compile-inline-expand)
#@42
(fn PROPNAME &optional MAILBOX BUFFER)
(defalias 'imap-mailbox-get #[769 "\203 \211\205! \3031 \304\305\"0\262\202# \210\306\307\"\210\202# \211\262r\206) pq\210\2061 \310\2067 \n\"N\266\202)\207" [imap-use-utf7 imap-current-mailbox imap-mailbox-data (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." intern-soft] 9 (#$ . 33992)])
#@46
(fn FUNC &optional MAILBOX-DECODER BUFFER)
(defalias 'imap-mailbox-map-1 #[769 "r\211\206 pq\210\301C\302\303\304\305\306\307 #\310\"\311\312%\"\210\211\242\262)\207" [imap-mailbox-data nil mapatoms make-byte-code 257 "\302\300\301\203 \301\303!!\202 \303!!\302\242B\240\207" vconcat vector [symbol-name] 6 "\n\n(fn S)"] 13 (#$ . 34384)])
#@175 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.
(fn FUNC &optional BUFFER)
(defalias 'imap-mailbox-map #[513 "\300\301#\207" [imap-mailbox-map-1 imap-utf7-decode] 6 (#$ . 34744)])
#@25
(fn &optional BUFFER)
(defalias 'imap-current-mailbox #[256 "r\211\206 pq\210 \203( \211\205) \3021 \303\304\"0\262\202+ \210\305\306\"\210\202+ \211\262)\207" [imap-current-mailbox imap-use-utf7 (error) utf7-decode t message "imap: Could not UTF7 decode `%s', using it undecoded..."] 5 (#$ . 35031)])
#@34
(fn MAILBOX &optional EXAMINE)
(defalias 'imap-current-mailbox-p-1 #[513 "\230\205 \211\203 \302=\206 \211?\205 \303=\207" [imap-current-mailbox imap-state examine selected] 4 (#$ . 35348)])
#@41
(fn MAILBOX &optional EXAMINE BUFFER)
(defalias 'imap-current-mailbox-p #[769 "r\211\206 pq\210\301\203) \211\205* \3021 \303\304\"0\262\202, \210\305\306\"\210\202, \211\262\")\207" [imap-use-utf7 imap-current-mailbox-p-1 (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..."] 8 (#$ . 35555)])
#@115 Select MAILBOX on server in BUFFER.
If EXAMINE is non-nil, do a read-only select.
(fn MAILBOX &optional EXAMINE)
(defalias 'imap-mailbox-select-1 #[513 "\305\"\203 \207\306\203 \307\202 \310\311\312R!\211\313=\203& \314\262\202+ \211\315\262\203? \316\n\317\"\211\203; \320\202< \321\207\315\211\207" [imap-current-mailbox imap-error imap-message-prime imap-message-data imap-state imap-current-mailbox-p-1 imap-send-command-wait "EXAMINE" "SELECT" " \"" "\"" OK t nil make-vector 0 examine selected] 7 (#$ . 35902)])
#@41
(fn MAILBOX &optional EXAMINE BUFFER)
(defalias 'imap-mailbox-select #[769 "r\211\206 pq\210\301\203) \211\205* \3021 \303\304\"0\262\202, \210\305\306\"\210\202, \211\262\"\203M \211\205N \3071D \310\304\"0\262\202P \210\305\311\"\210\202P \211\262)\207" [imap-use-utf7 imap-mailbox-select-1 (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." (error) utf7-decode "imap: Could not UTF7 decode `%s', using it undecoded..."] 8 (#$ . 36444)])
#@33
(fn MAILBOX &optional BUFFER)
(defalias 'imap-mailbox-examine-1 #[513 "r\211\206 pq\210\300\301\")\207" [imap-mailbox-select-1 examine] 5 (#$ . 36943)])
#@69 Examine MAILBOX on server in BUFFER.
(fn MAILBOX &optional BUFFER)
(defalias 'imap-mailbox-examine #[513 "\300\301#\207" [imap-mailbox-select examine] 6 (#$ . 37106)])
#@84 Close current folder in BUFFER, without expunging articles.
(fn &optional BUFFER)
(defalias 'imap-mailbox-unselect #[256 "r\211\206 pq\210\304=\204\\ \305\306!\203+ \307\310!\211\311=\203# \312\262\202( \211\313\262\204\\ \307\314\n\315Q!\211\311=\203= \312\262\202B \211\313\262\205c \307\316!\211\311=\203T \312\262\202Y \211\313\262\205c \313\211\304\312)\207" [imap-state imap-error imap-current-mailbox imap-message-data auth imap-capability UNSELECT imap-send-command-wait "UNSELECT" OK t nil "EXAMINE \"" "\"" "CLOSE"] 6 (#$ . 37283)])
#@190 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.
(fn &optional ASYNCH BUFFER)
(defalias 'imap-mailbox-expunge #[512 "r\211\206 pq\210\2051 \303=?\2051 \203 \304\305!\2021 \306\305!\211\307=\203, \310\262\2021 \211\311\262)\207" [imap-current-mailbox imap-state imap-error examine imap-send-command "EXPUNGE" imap-send-command-wait OK t nil] 5 (#$ . 37848)])
#@197 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.
(fn &optional ASYNCH BUFFER)
(defalias 'imap-mailbox-close #[512 "r\211\206 pq\210\205D \203& \304\305\306!\307\310\311\312\313\314BB\315BBF\"\210\202C \316\306!\211\317=\2035 \320\262\202: \211\321\262\203C \321\211\322\320)\207" [imap-current-mailbox imap-error imap-message-data imap-state 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] 12 (#$ . 38332)])
#@16
(fn MAILBOX)
(defalias 'imap-mailbox-create-1 #[257 "\301\302\303E!\211\304=\203 \305\207\211\306\207" [imap-error imap-send-command-wait "CREATE \"" "\"" OK t nil] 5 (#$ . 39103)])
#@116 Create MAILBOX on server in BUFFER.
If BUFFER is nil the current buffer is assumed.
(fn MAILBOX &optional BUFFER)
(defalias 'imap-mailbox-create #[513 "r\211\206 pq\210\301\203) \211\205* \3021 \303\304\"0\262\202, \210\305\306\"\210\202, \211\262!)\207" [imap-use-utf7 imap-mailbox-create-1 (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..."] 7 (#$ . 39297)])
#@116 Delete MAILBOX on server in BUFFER.
If BUFFER is nil the current buffer is assumed.
(fn MAILBOX &optional BUFFER)
(defalias 'imap-mailbox-delete #[513 "\203 \211\205! \3021 \303\304\"0\262\202# \210\305\306\"\210\202# \211\262r\206) pq\210\307\310\311E!\211\312=\203= \304\262\202B \211\313\262)\207" [imap-use-utf7 imap-error (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "DELETE \"" "\"" OK nil] 7 (#$ . 39711)])
#@143 Rename mailbox OLDNAME to NEWNAME on server in BUFFER.
If BUFFER is nil the current buffer is assumed.
(fn OLDNAME NEWNAME &optional BUFFER)
(defalias 'imap-mailbox-rename #[770 "\203 \211\205! \3021 \303\304\"0\262\202# \210\305\306\"\210\202# \211\262\203C \211\205D \3021: \303\304\"0\262\202F \210\305\306\"\210\202F \211\262r\206L pq\210\307\310\311\312\312\257!\211\313=\203d \304\262\202i \211\314\262)\207" [imap-use-utf7 imap-error (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "RENAME \"" "\" " "\"" OK nil] 12 (#$ . 40212)])
#@319 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.
(fn &optional ROOT REFERENCE ADD-DELIMITER BUFFER)
(defalias 'imap-mailbox-lsub #[1024 "r\211\206 pq\210\203J \304\305\206 \"N\266\202\204J \306\307\310\n\203B \211\205C \31119 \312\313\"0\262\202E \210\314\315\"\210\202E \211\262\316\260!\210\317\320!\210\306\321\310\n\203s \211\205t \3111j \312\313\"0\262\202v \210\314\315\"\210\202v \211\262\205\212 \304 \305\206\204 \"N\266\202\322\260!\211\323=\203\232 \313\262\202\237 \211\324\262\205\271 \324C\317\325\326\327\330\331!\332\"\333\334%!\210\211\242\237\262)\207" [imap-current-mailbox imap-mailbox-data imap-use-utf7 imap-error delimiter intern-soft imap-send-command-wait "LIST \"" "\" \"" (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\"" imap-mailbox-map-1 #[257 "\300\301\302#\207" [imap-mailbox-put lsub nil] 5 "\n\n(fn MAILBOX)"] "LSUB \"" "%\"" OK nil make-byte-code 257 "\304\305\206 \n\"N\266\202\2059 \300 \2032 \211\2053 \3061) \307\310\"0\262\2025 \210\311\312\"\210\2025 \211\262\300\242B\240\207" vconcat vector [imap-current-mailbox imap-mailbox-data imap-use-utf7 lsub intern-soft (error) utf7-decode t message "imap: Could not UTF7 decode `%s', using it undecoded..."] 6 "\n\n(fn MAILBOX)"] 14 (#$ . 40842)])
#@271 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.
(fn ROOT &optional REFERENCE ADD-DELIMITER BUFFER)
(defalias 'imap-mailbox-list #[1025 "r\211\206 pq\210\203J \304\305\206 \"N\266\202\204J \306\307\310\n\203B \211\205C \31119 \312\313\"0\262\202E \210\314\315\"\210\202E \211\262\316\260!\210\317\320!\210\306\307\310\n\203s \211\205t \3111j \312\313\"0\262\202v \210\314\315\"\210\202v \211\262\205\212 \304 \305\206\204 \"N\266\202\321\260!\211\322=\203\232 \313\262\202\237 \211\323\262\205\271 \323C\317\324\325\326\327\330!\331\"\332\333%!\210\211\242\237\262)\207" [imap-current-mailbox imap-mailbox-data imap-use-utf7 imap-error delimiter intern-soft imap-send-command-wait "LIST \"" "\" \"" (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\"" imap-mailbox-map-1 #[257 "\300\301\302#\207" [imap-mailbox-put list nil] 5 "\n\n(fn MAILBOX)"] "%\"" OK nil make-byte-code 257 "\304\305\206 \n\"N\266\202\2059 \300 \2032 \211\2053 \3061) \307\310\"0\262\2025 \210\311\312\"\210\2025 \211\262\300\242B\240\207" vconcat vector [imap-current-mailbox imap-mailbox-data imap-use-utf7 list intern-soft (error) utf7-decode t message "imap: Could not UTF7 decode `%s', using it undecoded..."] 6 "\n\n(fn MAILBOX)"] 14 (#$ . 42392)])
#@126 Send the SUBSCRIBE command on the MAILBOX to server in BUFFER.
Returns non-nil if successful.
(fn MAILBOX &optional BUFFER)
(defalias 'imap-mailbox-subscribe #[513 "r\211\206 pq\210\302\303\203* \211\205+ \3041! \305\306\"0\262\202- \210\307\310\"\210\202- \211\262\311Q!\211\312=\203< \306\262\202A \211\313\262)\207" [imap-use-utf7 imap-error imap-send-command-wait "SUBSCRIBE \"" (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\"" OK nil] 8 (#$ . 43884)])
#@126 Send the SUBSCRIBE command on the MAILBOX to server in BUFFER.
Returns non-nil if successful.
(fn MAILBOX &optional BUFFER)
(defalias 'imap-mailbox-unsubscribe #[513 "r\211\206 pq\210\302\303\203* \211\205+ \3041! \305\306\"0\262\202- \210\307\310\"\210\202- \211\262\311Q!\211\312=\203< \306\262\202A \211\313\262)\207" [imap-use-utf7 imap-error imap-send-command-wait "UNSUBSCRIBE " (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\"" OK nil] 8 (#$ . 44403)])
#@365 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.
(fn MAILBOX ITEMS &optional BUFFER)
(defalias 'imap-mailbox-status #[770 "r\211\206 pq\210\302\303\203* \211\205+ \3041! \305\306\"0\262\202- \210\307\310\"\210\202- \211\262\311\312\313<\203; \202> C\"\226F!\211\314=\203N \306\262\202S \211\315\262\205r <\203n \316\317\320\321\322\323!\324\"\325\326%\"\202r \327\")\207" [imap-use-utf7 imap-error imap-send-command-wait "STATUS \"" (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\" " format "%s" OK nil mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [imap-mailbox-get] 4 "\n\n(fn ITEM)" imap-mailbox-get] 10 (#$ . 44924)])
#@297 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.
(fn MAILBOX ITEMS &optional BUFFER)
(defalias 'imap-mailbox-status-asynch #[770 "r\211\206 pq\210\301\302\203* \211\205+ \3031! \304\305\"0\262\202- \210\306\307\"\210\202- \211\262\310\311\312<\203; \202> C\"\226F!)\207" [imap-use-utf7 imap-send-command "STATUS \"" (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "\" " format "%s"] 10 (#$ . 45910)])
#@74 Get ACL on MAILBOX from server in BUFFER.
(fn &optional MAILBOX BUFFER)
(defalias 'imap-mailbox-acl-get #[512 "\203 \211\205! \3041 \305\306\"0\262\202# \210\307\310\"\210\202# \211\262r\206) pq\210\311\312\2062 \313E!\211\314=\203A \306\262\202F \211\315\262\205[ \316\206O \317\206U \"N\266\202)\207" [imap-use-utf7 imap-current-mailbox imap-error imap-mailbox-data (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "GETACL \"" "\"" OK nil acl intern-soft] 8 (#$ . 46581)])
#@124 Change/set ACL for IDENTIFIER to RIGHTS in MAILBOX from server in BUFFER.
(fn IDENTIFIER RIGHTS &optional MAILBOX BUFFER)
(defalias 'imap-mailbox-acl-set #[1026 "\203 \211\205! \3031 \304\305\"0\262\202# \210\306\307\"\210\202# \211\262r\206) pq\210\310\311\2062 \312\313 \257!\211\314=\203G \305\262\202L \211\315\262)\207" [imap-use-utf7 imap-current-mailbox imap-error (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "SETACL \"" "\" " " " OK nil] 12 (#$ . 47146)])
#@117 Remove <id,rights> pairs for IDENTIFIER from MAILBOX on server in BUFFER.
(fn IDENTIFIER &optional MAILBOX BUFFER)
(defalias 'imap-mailbox-acl-delete #[769 "\203 \211\205! \3031 \304\305\"0\262\202# \210\306\307\"\210\202# \211\262r\206) pq\210\310\311\2062 \312F!\211\313=\203C \305\262\202H \211\314\262)\207" [imap-use-utf7 imap-current-mailbox imap-error (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "DELETEACL \"" "\" " OK nil] 9 (#$ . 47703)])
#@25
(fn &optional BUFFER)
(defalias 'imap-current-message #[256 "r\211\206 pq\210)\207" [imap-current-message] 2 (#$ . 48242)])
#@13
(fn LIST)
(defalias 'imap-list-to-message-set #[257 "\300\301<\203 \202
C\302#\207" [mapconcat #[257 "\300!\207" [number-to-string] 3 "\n\n(fn ITEM)"] ","] 5 (#$ . 48376)])
#@14
(fn RANGE)
(defalias 'imap-range-to-message-set #[257 "\300\301<\203 A<\204 C\202 \302#\207" [mapconcat #[257 "\211:\203
\300\301@A#\207\300\302\"\207" [format "%d:%d" "%d"] 5 "\n\n(fn ITEM)"] ","] 5 (#$ . 48563)])
#@47
(fn UIDS PROPS &optional NOUIDFETCH BUFFER)
(defalias 'imap-fetch-asynch #[1026 "r\211\206 pq\210\300\301\302\203 \303\202 \304<\203! \305!\202# $!)\207" [imap-send-command format "%sFETCH %s %s" "" "UID " imap-list-to-message-set] 10 (#$ . 48797)])
#@222 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.
(fn UIDS PROPS &optional RECEIVE NOUIDFETCH BUFFER)
(defalias 'imap-fetch #[1282 "r\211\206 pq\210\301\302\303\203 \304\202 \305<\203! \306 !\202# $!\211\307=\2033 \310\262\2028 \211\311\262\205e \203D ;\203H \310\202e <\203a \312\313\314\315\316\317!\320\"\321\322%\"\202e \323\")\207" [imap-error imap-send-command-wait format "%sFETCH %s %s" "" "UID " imap-list-to-message-set OK t nil mapcar make-byte-code 257 "\300<\203 \301\302\303\304\305\306!\307\"\310\311%\300\"\207\312\300\"\207" vconcat vector [mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [imap-message-get] 4 "\n\n(fn PROP)" imap-message-get] 8 "\n\n(fn UID)" imap-message-get] 12 (#$ . 49068)])
#@44
(fn UID PROPNAME VALUE &optional BUFFER)
(defalias 'imap-message-put #[1027 "r\211\206 pq\210\203 \301\302\303!\"#\210\202# \304\305p%\210)\306\207" [imap-message-data put intern number-to-string error "Imap-message-data is nil, uid %s prop %s value %s buffer %s" t] 10 (#$ . 49945)])
#@38
(fn UID PROPNAME &optional BUFFER)
(defalias 'imap-message-get #[770 "r\211\206 pq\210\301\302!\"N)\207" [imap-message-data intern-soft number-to-string] 6 (#$ . 50249)])
#@115 Map a function across each message in `imap-message-data', returning a list.
(fn FUNC PROPNAME &optional BUFFER)
(defalias 'imap-message-map #[770 "r\211\206 pq\210\301C\302\303\304\305\306\307 #\310\"\311\312%\"\210\211\242\262)\207" [imap-message-data nil mapatoms make-byte-code 257 "\302\300\303N\301N\"\302\242B\240\207" vconcat vector [UID] 6 "\n\n(fn S)"] 13 (#$ . 50433)])
#@29
(fn UID &optional BUFFER)
(defalias 'imap-message-envelope-date '(macro . #[513 "\300\301\302BB\303\304\305BB\306BBE\207" [with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (0)] 8 (#$ . 50831)]))
#@29
(fn UID &optional BUFFER)
(defalias 'imap-message-envelope-subject '(macro . #[513 "\300\301\302BB\303\304\305BB\306BBE\207" [with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (1)] 8 (#$ . 51062)]))
#@29
(fn UID &optional BUFFER)
(defalias 'imap-message-envelope-from '(macro . #[513 "\300\301\302BB\303\304\305BB\306BBE\207" [with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (2)] 8 (#$ . 51296)]))
#@29
(fn UID &optional BUFFER)
(defalias 'imap-message-envelope-sender '(macro . #[513 "\300\301\302BB\303\304\305BB\306BBE\207" [with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (3)] 8 (#$ . 51527)]))
#@29
(fn UID &optional BUFFER)
(defalias 'imap-message-envelope-reply-to '(macro . #[513 "\300\301\302BB\303\304\305BB\306BBE\207" [with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (4)] 8 (#$ . 51760)]))
#@29
(fn UID &optional BUFFER)
(defalias 'imap-message-envelope-to '(macro . #[513 "\300\301\302BB\303\304\305BB\306BBE\207" [with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (5)] 8 (#$ . 51995)]))
#@29
(fn UID &optional BUFFER)
(defalias 'imap-message-envelope-cc '(macro . #[513 "\300\301\302BB\303\304\305BB\306BBE\207" [with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (6)] 8 (#$ . 52224)]))
#@29
(fn UID &optional BUFFER)
(defalias 'imap-message-envelope-bcc '(macro . #[513 "\300\301\302BB\303\304\305BB\306BBE\207" [with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (7)] 8 (#$ . 52453)]))
#@29
(fn UID &optional BUFFER)
(defalias 'imap-message-envelope-in-reply-to '(macro . #[513 "\300\301\302BB\303\304\305BB\306BBE\207" [with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (8)] 8 (#$ . 52683)]))
#@29
(fn UID &optional BUFFER)
(defalias 'imap-message-envelope-message-id '(macro . #[513 "\300\301\302BB\303\304\305BB\306BBE\207" [with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (9)] 8 (#$ . 52921)]))
#@29
(fn UID &optional BUFFER)
(defalias 'imap-message-body '(macro . #[513 "\300\301\302BB\303\304BBE\207" [with-current-buffer or ((current-buffer)) imap-message-get ('BODY)] 7 (#$ . 53158)]))
#@35
(fn PREDICATE &optional BUFFER)
(defalias 'imap-search #[513 "r\211\206 pq\210\303\304\305\"\210\306\307P!\211\310=\203 \311\262\202# \211\312\262\205O \304 \313\206. \n\"N\266\202\305=\203A \314\315!\210\312\202O \304 \313\206I \n\"N\266\202)\207" [imap-error imap-current-mailbox imap-mailbox-data 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)..."] 7 (#$ . 53358)])
#@145 Return t if FLAG can be permanently saved on articles.
MAILBOX specifies a mailbox on the server in BUFFER.
(fn FLAG &optional MAILBOX BUFFER)
(defalias 'imap-message-flag-permanent-p #[769 "r\211\206 pq\210\300\301\302\"\235\204 \301\302\"\235\205 \303)\207" ["\\*" imap-mailbox-get permanentflags t] 7 (#$ . 53869)])
#@47
(fn ARTICLES FLAGS &optional SILENT BUFFER)
(defalias 'imap-message-flags-set #[1026 "\2052 \2052 r\211\206 pq\210\301\302\303\205 \304\305\306\260!\211\307=\203, \310\262\2021 \211\311\262)\207" [imap-error imap-send-command-wait "UID STORE " " FLAGS" ".SILENT" " (" ")" OK t nil] 12 (#$ . 54201)])
#@47
(fn ARTICLES FLAGS &optional SILENT BUFFER)
(defalias 'imap-message-flags-del #[1026 "\2052 \2052 r\211\206 pq\210\301\302\303\205 \304\305\306\260!\211\307=\203, \310\262\2021 \211\311\262)\207" [imap-error imap-send-command-wait "UID STORE " " -FLAGS" ".SILENT" " (" ")" OK t nil] 12 (#$ . 54521)])
#@47
(fn ARTICLES FLAGS &optional SILENT BUFFER)
(defalias 'imap-message-flags-add #[1026 "\2052 \2052 r\211\206 pq\210\301\302\303\205 \304\305\306\260!\211\307=\203, \310\262\2021 \211\311\262)\207" [imap-error imap-send-command-wait "UID STORE " " +FLAGS" ".SILENT" " (" ")" OK t nil] 12 (#$ . 54842)])
#@334 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'.
(fn UIDS PROPS &optional RECEIVE NOUIDFETCH BUFFER)
(defalias 'imap-fetch-safe #[1282 "\3021 \303\304 \203 A\202 @%)0\207 \204D \305\306A@\"\203D r\206- pq\210\307\301!\210\303\304A$)\202J \310@A\"\207" [debug-on-error imap-enable-exchange-bug-workaround (error) t imap-fetch string-match "The specified message set is invalid" make-local-variable signal] 11 (#$ . 55164)])
#@16
(fn MAILBOX)
(defalias 'imap-message-copyuid-1 #[257 "\304\305!\203) \306\307\206 \"N\266\202@\310\311\306\307\206 \"N\266\2028!D\207\n\312\311\313\"\314!\205d \315\316\317\"\205S \320\307\206E \"N\266\202\321\322\323\324\325\"\"D\203a \326\327=\"\210\202d \330 \210)\207" [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 #[514 "\207" [] 3 "\n\n(fn UID PROP)"] UID imap-mailbox-select examine imap-mailbox-unselect] 9 (#$ . 55848)])
#@33
(fn MAILBOX &optional BUFFER)
(defalias 'imap-message-copyuid #[513 "r\211\206 pq\210\301\203) \211\205* \3021 \303\304\"0\262\202, \210\305\306\"\210\202, \211\262!)\207" [imap-use-utf7 imap-message-copyuid-1 (error) utf7-decode t message "imap: Could not UTF7 decode `%s', using it undecoded..."] 7 (#$ . 56508)])
#@379 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.
(fn ARTICLES MAILBOX &optional DONT-CREATE NO-COPYUID BUFFER)
(defalias 'imap-message-copy #[1282 "\205\203 r\211\206\n pq\210\203, \211\205- \3031# \304\305\"0\262\202/ \210\306\307\"\210\202/ \211\262\310\311\312\260\313!\211\314=\203H \305\262\202M \211\315\262\203T \305\202s ?\205s \316!\205s \313!\211\314=\203n \305\262\202s \211\315\262)\262\205\200 \206\200 \317!\262)\207" [imap-use-utf7 imap-current-target-mailbox imap-error (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." "UID COPY " " \"" "\"" imap-send-command-wait OK nil imap-mailbox-create-1 imap-message-copyuid-1] 11 (#$ . 56841)])
#@16
(fn MAILBOX)
(defalias 'imap-message-appenduid-1 #[257 "\304\305!\203 \306\307\206 \"N\207\n\310\311\312\"\313!\205N \314\315\316\"\205= \317\307\206/ \"N\266\202\320\321\322\323\324\"\"D\203K \325\326=\"\210\202N \327 \210)\207" [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 #[514 "\207" [] 3 "\n\n(fn UID PROP)"] UID imap-mailbox-select examine imap-mailbox-unselect] 9 (#$ . 57832)])
#@33
(fn MAILBOX &optional BUFFER)
(defalias 'imap-message-appenduid #[513 "r\211\206 pq\210\301\203) \211\205* \3021 \303\304\"0\262\202, \210\305\306\"\210\202, \211\262!)\207" [imap-use-utf7 imap-message-appenduid-1 (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..."] 7 (#$ . 58429)])
#@261 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.
(fn MAILBOX ARTICLE &optional FLAGS DATE-TIME BUFFER)
(defalias 'imap-message-append #[1282 "\203 \211\205! \3031 \304\305\"0\262\202# \210\306\307\"\210\202# \211\262r\206) pq\210\211\310\311\312F!\211\313=\203A \305\262\202F \211\314\262)\205M \315!)\207" [imap-use-utf7 imap-current-target-mailbox imap-error (error) utf7-encode t message "imap: Could not UTF7 encode `%s', using it unencoded..." imap-send-command-wait "APPEND \"" "\" " OK nil imap-message-appenduid-1] 11 (#$ . 58766)])
#@89 Return number of lines in article by looking at the mime bodystructure BODY.
(fn BODY)
(defalias 'imap-body-lines #[257 "\211<\203; \211@;\2033 \211@\226\300\230\203 \3018\247\203 \3018\207\211@\226\302\230\2031 \3038\247\2031 \3038\207\304\207\305\306\307\310\"\"\207\304\207" ["TEXT" 7 "MESSAGE" 9 0 apply + mapcar imap-body-lines] 6 (#$ . 59487)])
#@39 Return a FROM string line.
(fn FROM)
(defalias 'imap-envelope-from #[257 "\211\205 \211\300H\300H\205 \301\302H\303\304H\300H\205 \305\260\207" [0 " <" 2 "@" 3 ">"] 8 (#$ . 59852)])
#@17
(fn TAG FUNC)
(defalias 'imap-add-callback #[514 "\301BC\"\211\207" [imap-callbacks append] 5 (#$ . 60049)])
#@15
(fn CMDSTR)
(defalias 'imap-send-command-1 #[257 "\211P\262\302!\210\303 \"\207" [imap-client-eol imap-process imap-log process-send-string] 4 (#$ . 60170)])
#@33
(fn COMMAND &optional BUFFER)
(defalias 'imap-send-command #[513 "r\211\206 pq\210<\204 C\262T\211\305\211\306!\307P\262\211A\262\242\211\262\203\317 ;\2037 \211P\262\202 \310!\203\246 \n\305rq\210\203L \311 \262\312\232\204d eb\210\313\312\305\314#\203d \315!\210\202U \204l \311 \262)\316\317\"P\266\204\320\216\321!\210\305\262\322!\323=\204\214 \305\262\202\242 rq\210\324!\210\325ed#\210)\326 \"\266)\202 \327!\203\310 \321!\210\305\262\330\216\322!\323=\205\302 \f!B\262)\202 \331\332!\210\202 \211\203\327 \321!\210\266\203)\207" [imap-tag imap-client-eol imap-calculate-literal-size-first imap-process imap-continuation nil number-to-string " " bufferp buffer-size "
\n" search-forward t replace-match format "{%d}" #[0 "\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 #[0 "\301\211\207" [imap-continuation nil] 2] error "Unknown command type"] 12 (#$ . 60340)])
#@29
(fn TAG &optional BUFFER)
(defalias 'imap-wait-for-tag #[513 "r\211\206 pq\210\306\2049 \307 !\310>\2039 \nW\2039 \311 \312\245\306\211\313W\204/ \314\262\315\316\"\210\317 \f\"\210)\210\202 \204H \nW\203H \317 \320\"\210\211\203P \315\321!\210\307 !\322>\205g
\236\206g \203f \323\202g \324\262)\207" [imap-continuation imap-process imap-reached-tag message-log-max imap-read-timeout imap-failed-tags nil process-status (open run) buffer-size 1024 10 t message "imap read: %dk" accept-process-output 0 "" (open run) INCOMPLETE OK] 7 (#$ . 61371)])
#@23
(fn PROCESS STRING)
(defalias 'imap-sentinel #[514 "\300!\207" [delete-process] 4 (#$ . 61941)])
#@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 #[0 "\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 (#$ . 62048)])
#@40 IMAP process filter.
(fn PROC STRING)
(defalias 'imap-arrival-filter #[514 "\302\303!!\205j r\303!q\210db\210\211c\210\304!\210\305eb\210\306 \211\262\205g \214e}\210\307G[!\210eb\210\310\216 \311=\203@ \312 \210\202c \313=\204X \314=\204X \315=\204X \316=\203^ \317 \210\202c \320\321 \"\210*\202 \262)\207" [imap-server-eol imap-state buffer-name process-buffer imap-log nil imap-find-next-line delete-char #[0 "ed|\207" [] 2] initial imap-parse-greeting auth nonauth selected examine imap-parse-response message "Unknown state %s in arrival filter"] 6 (#$ . 62437)])
(defalias 'imap-forward #[0 "m\206 \300u\207" [nil] 1])
(put 'imap-forward 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-number #[0 "\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 #[0 "\300\301!\205\" \302\225\303\304\305!!d\\W?\205 \\b\210\211\\{\266\202\207" [looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string 1] 5])
(put 'imap-parse-literal 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-string #[0 "\300f\301=\2035 \302u\210`\303\304\300w\210`{\262\300f\305=\2031 `T\262\306u\210\304\300w\210\211`{P\262\202 \302u\210\207\300f\307=\205^ \310\311!\205^ \312\225\313\314\302!!d\\W?\205\\ \\b\210\211\\{\266\202\207" [nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string] 5])
(put 'imap-parse-string 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-nil #[0 "\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 #[0 "\300f\301=\2039 \302u\210`\303\304\300w\210`{\262\300f\305=\2031 `T\262\306u\210\304\300w\210\211`{P\262\202 \302u\210\262\202b \300f\307=\203e \310\311!\203e \312\225\313\314\302!!d\\W?\205` \\b\210\211\\{\266\202\206p \310\315!\203o \312\225b\210\300\207" [nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL"] 5])
(put 'imap-parse-nstring 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-astring #[0 "\300f\301=\2039 \302u\210`\303\304\300w\210`{\262\300f\305=\2031 `T\262\306u\210\304\300w\210\211`{P\262\202 \302u\210\262\202b \300f\307=\203e \310\311!\203e \312\225\313\314\302!!d\\W?\205` \\b\210\211\\{\266\202\206z `\315\316\300\317#\203u \312\225Sb\202y \300\210`{\207" [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 #[0 "\300\211f\301=\205\367m\204 \300u\210\302\300f\303=\203I \304u\210`\305\306\300w\210`{\262\300f\307=\203A `T\262\310u\210\306\300w\210\211`{P\262\202% \304u\210\262\202r \300f\311=\203u \312\313!\203u \314\225\315\316\304!!d\\W?\205p \\b\210\211\\{\266\202\206\200 \312\317!\203 \314\225b\210\300m\204\207 \300u\210\300f\303=\203\300 \304u\210`\305\306\300w\210`{\262\300f\307=\203\270 `T\262\310u\210\306\300w\210\211`{P\262\202\234 \304u\210\262\202\351 \300f\311=\203\354 \312\313!\203\354 \314\225\315\316\304!!d\\W?\205\347 \\b\210\211\\{\266\202\206\367 \312\317!\203\366 \314\225b\210\300m\204\376 \300u\210\300f\303=\2037\304u\210`\305\306\300w\210`{\262\300f\307=\203/`T\262\310u\210\306\300w\210\211`{P\262\202\304u\210\262\202`\300f\311=\203c\312\313!\203c\314\225\315\316\304!!d\\W?\205^\\b\210\211\\{\266\202\206n\312\317!\203m\314\225b\210\300m\204u\300u\210\300f\303=\203\256\304u\210`\305\306\300w\210`{\262\300f\307=\203\246`T\262\310u\210\306\300w\210\211`{P\262\202\212\304u\210\262\202\327\300f\311=\203\332\312\313!\203\332\314\225\315\316\304!!d\\W?\205\325\\b\210\211\\{\266\202\206\345\312\317!\203\344\314\225b\210\300$\262\300f\320=\205\367m\204\366\300u\210\211\207" [nil 40 vector 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL" 41] 10])
(put 'imap-parse-address 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-address-list #[0 "\300f\301=\203=\300\211m\204 \300u\210\300f\302=\204,\300f\303=\203% m\204% \300u\210\300\211f\301=\205 m\2044 \300u\210\304\300f\305=\203n \306u\210`\307\310\300w\210`{\262\300f\311=\203f `T\262\312u\210\310\300w\210\211`{P\262\202J \306u\210\262\202\227 \300f\313=\203\232 \314\315!\203\232 \316\225\317\320\306!!d\\W?\205\225 \\b\210\211\\{\266\202\206\245 \314\321!\203\244 \316\225b\210\300m\204\254 \300u\210\300f\305=\203\345 \306u\210`\307\310\300w\210`{\262\300f\311=\203\335 `T\262\312u\210\310\300w\210\211`{P\262\202\301 \306u\210\262\202\300f\313=\203\314\315!\203\316\225\317\320\306!!d\\W?\205\f\\b\210\211\\{\266\202\206 \314\321!\203\316\225b\210\300m\204#\300u\210\300f\305=\203\\\306u\210`\307\310\300w\210`{\262\300f\311=\203T`T\262\312u\210\310\300w\210\211`{P\262\2028\306u\210\262\202\205\300f\313=\203\210\314\315!\203\210\316\225\317\320\306!!d\\W?\205\203\\b\210\211\\{\266\202\206\223\314\321!\203\222\316\225b\210\300m\204\232\300u\210\300f\305=\203\323\306u\210`\307\310\300w\210`{\262\300f\311=\203\313`T\262\312u\210\310\300w\210\211`{P\262\202\257\306u\210\262\202\374\300f\313=\203\377\314\315!\203\377\316\225\317\320\306!!d\\W?\205\372\\b\210\211\\{\266\202\206\n\314\321!\203 \316\225b\210\300$\262\300f\302=\205 m\204\300u\210\211\262\211\262\203,B\262\202 \300f\302=\205<m\204:\300u\210\211\237\207\314\321!\205F\316\225b\207" [nil 40 41 32 vector 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL"] 12])
(put 'imap-parse-address-list 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-mailbox #[0 "\300f\301=\2039 \302u\210`\303\304\300w\210`{\262\300f\305=\2031 `T\262\306u\210\304\300w\210\211`{P\262\202 \302u\210\262\202b \300f\307=\203e \310\311!\203e \312\225\313\314\302!!d\\W?\205` \\b\210\211\\{\266\202\206z `\315\316\300\317#\203u \312\225Sb\202y \300\210`{\211\226\320\230\203\205 \320\202\206 \211\207" [nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string re-search-forward "[(){
\n%*\"\\]" t "INBOX"] 5])
(put 'imap-parse-mailbox 'byte-optimizer 'byte-compile-inline-expand)
#@25 Parse an IMAP greeting.
(defalias 'imap-parse-greeting #[0 "\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 (#$ . 68987)])
#@33 Parse an IMAP command response.
(defalias 'imap-parse-response #[0 "\306\307p!\211\262\211\310\267\202\272 d`T^d{\206 \311\211\202o\307p!\211\262m\204) \306u\210\211\312\267\202\207 \313 \202\265 \313 \202\265 \313 \202\265 \313 \202\265 \314\315\316 \"\202\265 \317\320!\202\265 \317\321!\202\265 \314\322\307\323`d{\324Q!\"\202\265 \325 \202\265 \307\323`d{\226\324Q!\211\202\265 \307`d{!\211\202\265 \326 \202\265 \307p!m\204\221 \306u\210\211\327\267\202\256 \314\330\"\202\263 \314\331\"\202\263 \311\202\263 \332 \202\263 \333\334\335 \"\262\262\202o\306\250\204\310 \333\334\335 \"\202m\307p!\211\262m\204\325 \306u\210\211\336\267\202R ]\313 \210\202X ]\212\313 \210)\306\211\211f\337=\203`\340\341!{\262m\204\306u\210`d{\262F\fB\266\202X ]\212\313 \210)\306\211\211f\337=\2037`\340\341!{\262m\2047\306u\210`d{\262F\fB\342\343%\266\202X\333\334\335 \"\210\210
\236\205m
\236A\"\210\344
\"\211\262\262\207" [imap-continuation imap-capability imap-id imap-reached-tag imap-failed-tags imap-callbacks nil read #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (+ 13 * 28)) t #s(hash-table size 12 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (OK 47 NO 52 BAD 57 BYE 62 FLAGS 67 LIST 75 LSUB 81 SEARCH 87 STATUS 101 CAPABILITY 106 ID 120 ACL 130)) imap-parse-resp-text imap-mailbox-put flags imap-parse-flag-list imap-parse-data-list list lsub search "(" ")" imap-parse-status imap-parse-acl #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (EXISTS 151 RECENT 158 EXPUNGE 165 FETCH 169)) exists recent imap-parse-fetch message "Garbage: %s" buffer-string #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (OK 219 NO 229 BAD 279)) 91 search-forward "]" error "Internal error, tag %s status %s code %s text %s" imap-remassoc] 12 (#$ . 69237)])
(defalias 'imap-parse-resp-text #[0 "\300 \207" [imap-parse-resp-text-code] 1])
(defalias 'imap-parse-resp-text-code #[0 "\302\303!\203
m\204
\304u\210\304f\305=\205\206m\204 \304u\210\306\307\304\310#\203) \311\312\313 \"\207\306\314\304\310#\2038 \311\315\316\317!\"\207\306\320\304\310#\203G \311\321\322p!\"\207\302\323!\203T \311\324\316\317!\"\207\306\325\304\310#\203a \311\326\310\"\207\306\327\304\310#\203@\304\211\211f\330=\203\244 \317u\210`\331\332\304w\210`{\262\304f\333=\203\234 `T\262\334u\210\332\304w\210\211`{P\262\202\200 \317u\210\262\202\315 \304f\335=\205\315 \302\336!\205\315 \337\225\340\316\317!!d\\W?\205\313 \\b\210\211\\{\266\202\262m\204\326 \304u\210\304f\330=\203\317u\210`\331\332\304w\210`{\262\304f\333=\203`T\262\334u\210\332\304w\210\211`{P\262\202\353 \317u\210\262\2028\304f\335=\2058\302\336!\2058\337\225\340\316\317!!d\\W?\2056\\b\210\211\\{\266\202\262\311\341#\207\306\342\304\310#\203N\311\343\310#\207\302\344!\203b\311\345\316\317!\340\316\334!!D#\207\302\346!\203w\311\347\316\317!\316\334!\316\350!E#\207\306\351\304\310#\205\206\352\353 `d{#\207" [imap-current-target-mailbox imap-server 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 newname "TRYCREATE" trycreate "APPENDUID \\([0-9]+\\) \\([0-9]+\\)" appenduid "COPYUID \\([0-9]+\\) \\([0-9,:]+\\) \\([0-9,:]+\\)" copyuid 3 "ALERT] " message "Imap server %s information: %s"] 7])
#@13
(fn TYPE)
(defalias 'imap-parse-data-list #[257 "\300\211\211\301 \262\302\303!\205\266 \304\305!\262\306\225Tb\210\300f\307=\203P \305u\210`\310\311\300w\210`{\262\300f\312=\203H `T\262\313u\210\311\300w\210\211`{P\262\202, \305u\210\262\202y \300f\314=\203| \302\315!\203| \306\225\316\304\305!!d\\W?\205w \\b\210\211\\{\266\202\206\221 `\317\320\300\321#\203\214 \306\225Sb\202\220 \300\210`{\211\226\322\230\203\234 \322\202\235 \211\262\211\262\205\266 \323\321#\210\323\324#\210\323\325#\207" [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 delimiter] 9 (#$ . 72884)])
(defalias 'imap-parse-header-list #[0 "\300f\301=\205\242 \300\300f\302=\204\227 m\204 \300u\210\300f\303=\203O \304u\210`\305\306\300w\210`{\262\300f\307=\203G `T\262\310u\210\306\300w\210\211`{P\262\202+ \304u\210\262\202x \300f\311=\203{ \312\313!\203{ \314\225\315\316\304!!d\\W?\205v \\b\210\211\\{\266\202\206\220 `\317\320\300\321#\203\213 \314\225Sb\202\217 \300\210`{B\262\202 m\204\236 \300u\210\211\237\262\207" [nil 40 41 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string re-search-forward "[(){
\n%*\"\\]" t] 6])
(put 'imap-parse-header-list 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-fetch-body-section #[0 "`\300\301\302\303#S{`Sf\304=\203\301 \305\306\302f\307=\205\265 \302\302f\310=\204\252 m\204) \302u\210\302f\311=\203b \312u\210`\313\314\302w\210`{\262\302f\315=\203Z `T\262\316u\210\314\302w\210\211`{P\262\202> \312u\210\262\202\213 \302f\317=\203\216 \320\321!\203\216 \322\225\323\324\312!!d\\W?\205\211 \\b\210\211\\{\266\202\206\243 `\300\325\302\303#\203\236 \322\225Sb\202\242 \302\210`{B\262\202 m\204\261 \302u\210\211\237\262B\326#\327\330\302\303#\210\202\302 \211\207" [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 "]"] 10])
(put 'imap-parse-fetch-body-section 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-fetch #[0 "\301f\302=\2054\301\211\211\211\211\211\211\211\211\211\211\211\303\301w\301f\304=?\305U\204$ \306u\210\262\203\240m\2040 \301u\210\307p!m\204: \301u\210\211\310\267\202\234\3111K \307p!0\202M \210\301\262
\202\234\312 \262\f \204\234\313\262\202\234\314 \262 \202\234\301f\315=\203\241 \316u\210`\317\320\301w\210`{\262\301f\321=\203\231 `T\262\322u\210\320\301w\210\211`{P\262\202} \316u\210\262\202\312 \301f\323=\205\312 \324\325!\205\312 \305\225\326\327\316!!d\\W?\205\310 \\b\210\211\\{\266\202\262\n\202\234\301f\315=\203\316u\210`\317\320\301w\210`{\262\301f\321=\203 `T\262\322u\210\320\301w\210\211`{P\262\202\344 \316u\210\262\2021\301f\323=\2034\324\325!\2034\305\225\326\327\316!!d\\W?\205/\\b\210\211\\{\266\202\206?\324\330!\203>\305\225b\210\301\262 \202\234\301f\315=\203}\316u\210`\317\320\301w\210`{\262\301f\321=\203u`T\262\322u\210\320\301w\210\211`{P\262\202Y\316u\210\262\202\246\301f\323=\203\251\324\325!\203\251\305\225\326\327\316!!d\\W?\205\244\\b\210\211\\{\266\202\206\264\324\330!\203\263\305\225b\210\301\262\202\234\301f\315=\203\362\316u\210`\317\320\301w\210`{\262\301f\321=\203\352`T\262\322u\210\320\301w\210\211`{P\262\202\316\316u\210\262\202\301f\323=\203 \324\325!\203 \305\225\326\327\316!!d\\W?\205\\b\210\211\\{\266\202\206)\324\330!\203(\305\225b\210\301\262\202\234\307p!\262\202\234`Sf\331=\203\221`\332\333\301\313#S{`Sf\334=\203\377\335\336\301f\302=\205\363\301\301f\304=\204\350m\204g\301u\210\301f\315=\203\240\316u\210`\317\320\301w\210`{\262\301f\321=\203\230`T\262\322u\210\320\301w\210\211`{P\262\202|\316u\210\262\202\311\301f\323=\203\314\324\325!\203\314\305\225\326\327\316!!d\\W?\205\307\\b\210\211\\{\266\202\206\341`\332\337\301\313#\203\334\305\225Sb\202\340\301\210`{B\262\202Ym\204\357\301u\210\211\237\262B\340#\341\342\301\313#\210\202 \211\262\226\301f\343=\205`T\341\344\301\313#{m\204\301u\210\301f\315=\203R\316u\210`\317\320\301w\210`{\262\301f\321=\203J`T\262\322u\210\320\301w\210\211`{P\262\202.\316u\210\262\202{\301f\323=\203~\324\325!\203~\305\225\326\327\316!!d\\W?\205y\\b\210\211\\{\266\202\206\211\324\330!\203\210\305\225b\210\301EB\262\202\234\345 \262\202\234\345 \262\210\202 \2052 \346\f\347#\210\n\204\271\211\203\301\346\f\350
#\210 \203\316\346\f\351\f#\210\203\333\346\f\352 #\210\203\350\346\f\353\n#\210\203\365\346\f\354 #\210\203\346\f\355#\210\203
\346\f\356#\210\203\346\f\357#\210\203$\346\f\360#\210\203/\346\f\361#\210\362\363!\266\214\207" [imap-current-message nil 40 " " 41 0 -1 read #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (UID 64 FLAGS 82 ENVELOPE 97 INTERNALDATE 104 RFC822 207 RFC822\.HEADER 324 RFC822\.TEXT 441 RFC822\.SIZE 558 BODY 566 BODYSTRUCTURE 920)) (error) imap-parse-flag-list t imap-parse-envelope 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" string-to-number match-string "NIL" 91 re-search-forward "[] ]" 32 mapconcat identity "[(){
\n%*\"\\]" " " search-forward "]" 60 ">" imap-parse-body imap-message-put UID FLAGS ENVELOPE INTERNALDATE RFC822 RFC822\.HEADER RFC822\.TEXT RFC822\.SIZE BODY BODYDETAIL BODYSTRUCTURE run-hooks imap-fetch-data-hook] 23])
(defalias 'imap-parse-status #[0 "\300f\301=\2039 \302u\210`\303\304\300w\210`{\262\300f\305=\2031 `T\262\306u\210\304\300w\210\211`{P\262\202 \302u\210\262\202b \300f\307=\203e \310\311!\203e \312\225\313\314\302!!d\\W?\205` \\b\210\211\\{\266\202\206z `\315\316\300\317#\203u \312\225Sb\202y \300\210`{\211\226\320\230\203\205 \320\202\206 \211\262\300f\321=\203\222 \300u\210\211\2051\300f\322=\2051\300f\323=?\2051\300u\210\310\324!\2051\314\302!\226\312\225b\210\211\325\230\203\307 \326\327\330p!#\210\202-\211\331\230\203\330 \326\332\330p!#\210\202-\211\333\230\203\365 \310\334!\203-\326\335\314\312!#\203-\312\225b\210\202-\211\336\230\203\310\334!\203-\326\337\314\312!#\203-\312\225b\210\202-\211\340\230\203#\326\341\330p!#\210\202-\342\343#\210\330p!\210\210\202\235 \207" [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"] 6])
(defalias 'imap-parse-acl #[0 "\300f\301=\2039 \302u\210`\303\304\300w\210`{\262\300f\305=\2031 `T\262\306u\210\304\300w\210\211`{P\262\202 \302u\210\262\202b \300f\307=\203e \310\311!\203e \312\225\313\314\302!!d\\W?\205` \\b\210\211\\{\266\202\206z `\315\316\300\317#\203u \312\225Sb\202y \300\210`{\211\226\320\230\203\205 \320\202\206 \211\262\300\211\211\300f\321=\203\244m\204\231 \300u\210\300f\301=\203\322 \302u\210`\303\304\300w\210`{\262\300f\305=\203\312 `T\262\306u\210\304\300w\210\211`{P\262\202\256 \302u\210\262\202\373 \300f\307=\203\376 \310\311!\203\376 \312\225\313\314\302!!d\\W?\205\371 \\b\210\211\\{\266\202\206`\315\316\300\317#\203\312\225Sb\202\300\210`{\262m\204 \300u\210\300f\301=\203U\302u\210`\303\304\300w\210`{\262\300f\305=\203M`T\262\306u\210\304\300w\210\211`{P\262\2021\302u\210\262\202~\300f\307=\203\201\310\311!\203\201\312\225\313\314\302!!d\\W?\205|\\b\210\211\\{\266\202\206\226`\315\316\300\317#\203\221\312\225Sb\202\225\300\210`{\262\322BC\"\262\202\213 \323\324#\207" [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 acl] 9])
(defalias 'imap-parse-flag-list #[0 "\300\211\211f\301=\204 \302\303\304\300\211$\210\300f\305=\204< m\204 \300u\210\306\300w\210`\211\262\203< \307\310 w\311V\203< \211`{B\262\202 \300f\305=\204J \302\312\313\300\211$\210m\204Q \300u\210\237\207" [nil 40 cl--assertion-failed (eq (char-after) 40) "In imap-parse-flag-list 1" 41 " " "^ )" point-at-eol 0 (eq (char-after) 41) "In imap-parse-flag-list 2"] 7])
(defalias 'imap-parse-envelope #[0 "\300f\301=\205\323m\204 \300u\210\302\300f\303=\203H \304u\210`\305\306\300w\210`{\262\300f\307=\203@ `T\262\310u\210\306\300w\210\211`{P\262\202$ \304u\210\262\202q \300f\311=\203t \312\313!\203t \314\225\315\316\304!!d\\W?\205o \\b\210\211\\{\266\202\206 \312\317!\203~ \314\225b\210\300m\204\206 \300u\210\300f\303=\203\277 \304u\210`\305\306\300w\210`{\262\300f\307=\203\267 `T\262\310u\210\306\300w\210\211`{P\262\202\233 \304u\210\262\202\350 \300f\311=\203\353 \312\313!\203\353 \314\225\315\316\304!!d\\W?\205\346 \\b\210\211\\{\266\202\206\366 \312\317!\203\365 \314\225b\210\300m\204\375 \300u\210\300f\301=\203>\300\211m\204
\300u\210\300f\320=\204)\300f\321=\203\"m\204\"\300u\210\300\211f\301=\205m\2041\300u\210\302\300f\303=\203k\304u\210`\305\306\300w\210`{\262\300f\307=\203c`T\262\310u\210\306\300w\210\211`{P\262\202G\304u\210\262\202\224\300f\311=\203\227\312\313!\203\227\314\225\315\316\304!!d\\W?\205\222\\b\210\211\\{\266\202\206\242\312\317!\203\241\314\225b\210\300m\204\251\300u\210\300f\303=\203\342\304u\210`\305\306\300w\210`{\262\300f\307=\203\332`T\262\310u\210\306\300w\210\211`{P\262\202\276\304u\210\262\202 \300f\311=\203\312\313!\203\314\225\315\316\304!!d\\W?\205 \\b\210\211\\{\266\202\206\312\317!\203\314\225b\210\300m\204 \300u\210\300f\303=\203Y\304u\210`\305\306\300w\210`{\262\300f\307=\203Q`T\262\310u\210\306\300w\210\211`{P\262\2025\304u\210\262\202\202\300f\311=\203\205\312\313!\203\205\314\225\315\316\304!!d\\W?\205\200\\b\210\211\\{\266\202\206\220\312\317!\203\217\314\225b\210\300m\204\227\300u\210\300f\303=\203\320\304u\210`\305\306\300w\210`{\262\300f\307=\203\310`T\262\310u\210\306\300w\210\211`{P\262\202\254\304u\210\262\202\371\300f\311=\203\374\312\313!\203\374\314\225\315\316\304!!d\\W?\205\367\\b\210\211\\{\266\202\206\312\317!\203\314\225b\210\300$\262\300f\320=\205m\204\300u\210\211\262\211\262\203)B\262\202
\300f\320=\2059m\2047\300u\210\211\237\266\202\202G\312\317!\205G\314\225bm\204N\300u\210\300f\301=\203\217\300\211m\204^\300u\210\300f\320=\204z\300f\321=\203sm\204s\300u\210\300\211f\301=\205jm\204\202\300u\210\302\300f\303=\203\274\304u\210`\305\306\300w\210`{\262\300f\307=\203\264`T\262\310u\210\306\300w\210\211`{P\262\202\230\304u\210\262\202\345\300f\311=\203\350\312\313!\203\350\314\225\315\316\304!!d\\W?\205\343\\b\210\211\\{\266\202\206\363\312\317!\203\362\314\225b\210\300m\204\372\300u\210\300f\303=\2033\304u\210`\305\306\300w\210`{\262\300f\307=\203+`T\262\310u\210\306\300w\210\211`{P\262\202\304u\210\262\202\\\300f\311=\203_\312\313!\203_\314\225\315\316\304!!d\\W?\205Z\\b\210\211\\{\266\202\206j\312\317!\203i\314\225b\210\300m\204q\300u\210\300f\303=\203\252\304u\210`\305\306\300w\210`{\262\300f\307=\203\242`T\262\310u\210\306\300w\210\211`{P\262\202\206\304u\210\262\202\323\300f\311=\203\326\312\313!\203\326\314\225\315\316\304!!d\\W?\205\321\\b\210\211\\{\266\202\206\341\312\317!\203\340\314\225b\210\300m\204\350\300u\210\300f\303=\203!\304u\210`\305\306\300w\210`{\262\300f\307=\203`T\262\310u\210\306\300w\210\211`{P\262\202\375\304u\210\262\202J\300f\311=\203M\312\313!\203M\314\225\315\316\304!!d\\W?\205H\\b\210\211\\{\266\202\206X\312\317!\203W\314\225b\210\300$\262\300f\320=\205jm\204i\300u\210\211\262\211\262\203zB\262\202^\300f\320=\205\212m\204\210\300u\210\211\237\266\202\202\230\312\317!\205\230\314\225bm\204\237\300u\210\300f\301=\203\340\300\211m\204\257\300u\210\300f\320=\204\313\300f\321=\203\304m\204\304\300u\210\300\211f\301=\205\273m\204\323\300u\210\302\300f\303=\203
\304u\210`\305\306\300w\210`{\262\300f\307=\203`T\262\310u\210\306\300w\210\211`{P\262\202\351\304u\210\262\2026\300f\311=\2039\312\313!\2039\314\225\315\316\304!!d\\W?\2054\\b\210\211\\{\266\202\206D\312\317!\203C\314\225b\210\300m\204K\300u\210\300f\303=\203\204\304u\210`\305\306\300w\210`{\262\300f\307=\203|`T\262\310u\210\306\300w\210\211`{P\262\202`\304u\210\262\202\255\300f\311=\203\260\312\313!\203\260\314\225\315\316\304!!d\\W?\205\253\\b\210\211\\{\266\202\206\273\312\317!\203\272\314\225b\210\300m\204\302\300u\210\300f\303=\203\373\304u\210`\305\306\300w\210`{\262\300f\307=\203\363`T\262\310u\210\306\300w\210\211`{P\262\202\327\304u\210\262\202$\300f\311=\203'\312\313!\203'\314\225\315\316\304!!d\\W?\205\"\\b\210\211\\{\266\202\2062\312\317!\2031\314\225b\210\300m\2049\300u\210\300f\303=\203r\304u\210`\305\306\300w\210`{\262\300f\307=\203j`T\262\310u\210\306\300w\210\211`{P\262\202N\304u\210\262\202\233\300f\311=\203\236\312\313!\203\236\314\225\315\316\304!!d\\W?\205\231\\b\210\211\\{\266\202\206\251\312\317!\203\250\314\225b\210\300$\262\300f\320=\205\273m\204\272\300u\210\211\262\211\262\203\313B\262\202\257\300f\320=\205\333m\204\331\300u\210\211\237\266\202\202\351\312\317!\205\351\314\225bm\204\360\300u\210\300f\301=\2031\n\300\211m\204 \300u\210\300f\320=\204 \n\300f\321=\203m\204\300u\210\300\211f\301=\205\f\nm\204$\300u\210\302\300f\303=\203^\304u\210`\305\306\300w\210`{\262\300f\307=\203V`T\262\310u\210\306\300w\210\211`{P\262\202:\304u\210\262\202\207\300f\311=\203\212\312\313!\203\212\314\225\315\316\304!!d\\W?\205\205\\b\210\211\\{\266\202\206\225\312\317!\203\224\314\225b\210\300m\204\234\300u\210\300f\303=\203\325\304u\210`\305\306\300w\210`{\262\300f\307=\203\315`T\262\310u\210\306\300w\210\211`{P\262\202\261\304u\210\262\202\376\300f\311=\203 \312\313!\203 \314\225\315\316\304!!d\\W?\205\374\\b\210\211\\{\266\202\206\f \312\317!\203 \314\225b\210\300m\204 \300u\210\300f\303=\203L \304u\210`\305\306\300w\210`{\262\300f\307=\203D `T\262\310u\210\306\300w\210\211`{P\262\202( \304u\210\262\202u \300f\311=\203x \312\313!\203x \314\225\315\316\304!!d\\W?\205s \\b\210\211\\{\266\202\206\203 \312\317!\203\202 \314\225b\210\300m\204\212 \300u\210\300f\303=\203\303 \304u\210`\305\306\300w\210`{\262\300f\307=\203\273 `T\262\310u\210\306\300w\210\211`{P\262\202\237 \304u\210\262\202\354 \300f\311=\203\357 \312\313!\203\357 \314\225\315\316\304!!d\\W?\205\352 \\b\210\211\\{\266\202\206\372 \312\317!\203\371 \314\225b\210\300$\262\300f\320=\205\f\nm\204 \n\300u\210\211\262\211\262\203 \nB\262\202 \300f\320=\205,\nm\204*\n\300u\210\211\237\266\202\202:\n\312\317!\205:\n\314\225bm\204A\n\300u\210\300f\301=\203\202\f\300\211m\204Q\n\300u\210\300f\320=\204m\f\300f\321=\203f\nm\204f\n\300u\210\300\211f\301=\205]\fm\204u\n\300u\210\302\300f\303=\203\257\n\304u\210`\305\306\300w\210`{\262\300f\307=\203\247\n`T\262\310u\210\306\300w\210\211`{P\262\202\213\n\304u\210\262\202\330\n\300f\311=\203\333\n\312\313!\203\333\n\314\225\315\316\304!!d\\W?\205\326\n\\b\210\211\\{\266\202\206\346\n\312\317!\203\345\n\314\225b\210\300m\204\355\n\300u\210\300f\303=\203& \304u\210`\305\306\300w\210`{\262\300f\307=\203 `T\262\310u\210\306\300w\210\211`{P\262\202 \304u\210\262\202O \300f\311=\203R \312\313!\203R \314\225\315\316\304!!d\\W?\205M \\b\210\211\\{\266\202\206] \312\317!\203\\ \314\225b\210\300m\204d \300u\210\300f\303=\203\235 \304u\210`\305\306\300w\210`{\262\300f\307=\203\225 `T\262\310u\210\306\300w\210\211`{P\262\202y \304u\210\262\202\306 \300f\311=\203\311 \312\313!\203\311 \314\225\315\316\304!!d\\W?\205\304 \\b\210\211\\{\266\202\206\324 \312\317!\203\323 \314\225b\210\300m\204\333 \300u\210\300f\303=\203\f\304u\210`\305\306\300w\210`{\262\300f\307=\203\f\f`T\262\310u\210\306\300w\210\211`{P\262\202\360 \304u\210\262\202=\f\300f\311=\203@\f\312\313!\203@\f\314\225\315\316\304!!d\\W?\205;\f\\b\210\211\\{\266\202\206K\f\312\317!\203J\f\314\225b\210\300$\262\300f\320=\205]\fm\204\\\f\300u\210\211\262\211\262\203m\fB\262\202Q\n\300f\320=\205}\fm\204{\f\300u\210\211\237\266\202\202\213\f\312\317!\205\213\f\314\225bm\204\222\f\300u\210\300f\301=\203\323\300\211m\204\242\f\300u\210\300f\320=\204\276\300f\321=\203\267\fm\204\267\f\300u\210\300\211f\301=\205\256m\204\306\f\300u\210\302\300f\303=\203
\304u\210`\305\306\300w\210`{\262\300f\307=\203\370\f`T\262\310u\210\306\300w\210\211`{P\262\202\334\f\304u\210\262\202)
\300f\311=\203,
\312\313!\203,
\314\225\315\316\304!!d\\W?\205'
\\b\210\211\\{\266\202\2067
\312\317!\2036
\314\225b\210\300m\204>
\300u\210\300f\303=\203w
\304u\210`\305\306\300w\210`{\262\300f\307=\203o
`T\262\310u\210\306\300w\210\211`{P\262\202S
\304u\210\262\202\240
\300f\311=\203\243
\312\313!\203\243
\314\225\315\316\304!!d\\W?\205\236
\\b\210\211\\{\266\202\206\256
\312\317!\203\255
\314\225b\210\300m\204\265
\300u\210\300f\303=\203\356
\304u\210`\305\306\300w\210`{\262\300f\307=\203\346
`T\262\310u\210\306\300w\210\211`{P\262\202\312
\304u\210\262\202\300f\311=\203\312\313!\203\314\225\315\316\304!!d\\W?\205\\b\210\211\\{\266\202\206%\312\317!\203$\314\225b\210\300m\204,\300u\210\300f\303=\203e\304u\210`\305\306\300w\210`{\262\300f\307=\203]`T\262\310u\210\306\300w\210\211`{P\262\202A\304u\210\262\202\216\300f\311=\203\221\312\313!\203\221\314\225\315\316\304!!d\\W?\205\214\\b\210\211\\{\266\202\206\234\312\317!\203\233\314\225b\210\300$\262\300f\320=\205\256m\204\255\300u\210\211\262\211\262\203\276B\262\202\242\f\300f\320=\205\316m\204\314\300u\210\211\237\266\202\202\334\312\317!\205\334\314\225bm\204\343\300u\210\300f\303=\203 \304u\210`\305\306\300w\210`{\262\300f\307=\203`T\262\310u\210\306\300w\210\211`{P\262\202\370\304u\210\262\202E\300f\311=\203H\312\313!\203H\314\225\315\316\304!!d\\W?\205C\\b\210\211\\{\266\202\206S\312\317!\203R\314\225b\210\300m\204Z\300u\210\300f\303=\203\223\304u\210`\305\306\300w\210`{\262\300f\307=\203\213`T\262\310u\210\306\300w\210\211`{P\262\202o\304u\210\262\202\274\300f\311=\203\277\312\313!\203\277\314\225\315\316\304!!d\\W?\205\272\\b\210\211\\{\266\202\206\312\312\317!\203\311\314\225b\210\300m\204\321\300u\210&\n\207" [nil 40 vector 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL" 41 32] 20])
(defalias 'imap-parse-string-list #[0 "\300f\301=\203\221 \300\211m\204 \300u\210\300f\302=\203I \303u\210`\304\305\300w\210`{\262\300f\306=\203A `T\262\307u\210\305\300w\210\211`{P\262\202% \303u\210\262\202r \300f\310=\205r \311\312!\205r \313\225\314\315\303!!d\\W?\205p \\b\210\211\\{\266\202\211\262\203\216 \211B\262\300f\302=\204 m\204 \300u\210\202 \237\207\311\316!\205\236 \313\225b\205\236 \300\207" [nil 40 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL"] 7])
(put 'imap-parse-string-list 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-body-extension #[0 "\300f\301=\203D \300m\204 \300u\210\302 B\262\300f\303=\203, m\204# \300u\210\302 B\262\202 \300f\304=\204: \305\306\307\300\211$\210m\204A \300u\210\211\237\207\310\311!\203V \312\313\314!!\314\225b\210\206\306 \300f\315=\203\217 \316u\210`\317\320\300w\210`{\262\300f\321=\203\207 `T\262\322u\210\320\300w\210\211`{P\262\202k \316u\210\262\202\270 \300f\323=\203\273 \310\324!\203\273 \314\225\312\313\316!!d\\W?\205\266 \\b\210\211\\{\266\202\206\306 \310\325!\203\305 \314\225b\210\300\207" [nil 40 imap-parse-body-extension 32 41 cl--assertion-failed (eq (char-after) 41) "In imap-parse-body-extension" looking-at "[0-9]+" string-to-number match-string 0 34 1 "" "^\"\\\\" 92 2 123 "{\\([0-9]+\\)}
\n" "NIL"] 6])
(defalias 'imap-parse-body-ext #[0 "\300\211f\301=\203\225m\204 \300u\210\300\211f\302=\203;m\204 \300u\210\300f\303=\203W \304u\210`\305\306\300w\210`{\262\300f\307=\203O `T\262\310u\210\306\300w\210\211`{P\262\2023 \304u\210\262\202\200 \300f\311=\205\200 \312\313!\205\200 \314\225\315\316\304!!d\\W?\205~ \\b\210\211\\{\266\202B\262m\204\213 \300u\210\300f\302=\203 \300\211m\204\233 \300u\210\300f\303=\203\324 \304u\210`\305\306\300w\210`{\262\300f\307=\203\314 `T\262\310u\210\306\300w\210\211`{P\262\202\260 \304u\210\262\202\375 \300f\311=\205\375 \312\313!\205\375 \314\225\315\316\304!!d\\W?\205\373 \\b\210\211\\{\266\202\211\262\203\211B\262\300f\303=\204\233 m\204\233 \300u\210\202\233 \237\266\202\202-\312\317!\205-\314\225b\205-\300B\262m\204E\300u\210\202E\312\317!\203E\314\225b\210\211\237B\266\202\300f\301=\203\225m\204Y\300u\210\300f\302=\203 \300f\302=\203\365\300\211m\204p\300u\210\300f\303=\203\251\304u\210`\305\306\300w\210`{\262\300f\307=\203\241`T\262\310u\210\306\300w\210\211`{P\262\202\205\304u\210\262\202\322\300f\311=\205\322\312\313!\205\322\314\225\315\316\304!!d\\W?\205\320\\b\210\211\\{\266\202\211\262\203\356\211B\262\300f\303=\204pm\204p\300u\210\202p\237\266\202\202\312\317!\205\314\225b\205\300B\262\202}\300f\303=\203B\304u\210`\305\306\300w\210`{\262\300f\307=\203:`T\262\310u\210\306\300w\210\211`{P\262\202 \304u\210\262\202k\300f\311=\203n\312\313!\203n\314\225\315\316\304!!d\\W?\205i\\b\210\211\\{\266\202\206y\312\317!\203x\314\225b\210\300B\262\300f\301=\203\225m\204\213\300u\210\320\321 \"\262\202}\211\207" [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] 9])
(put 'imap-parse-body-ext 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'imap-parse-body #[0 "\300\211f\301=\205( m\204 \300u\210\300f\301=\2037\300\300f\301=\203D \302 \211\262\203D \300f\303=\203< `Tf\301=\203< m\204< \300u\210\211B\262\202 m\204K \300u\210\300f\304=\203\204 \305u\210`\306\307\300w\210`{\262\300f\310=\203| `T\262\311u\210\307\300w\210\211`{P\262\202` \305u\210\262\202\255 \300f\312=\205\255 \313\314!\205\255 \315\225\316\317\305!!d\\W?\205\253 \\b\210\211\\{\266\202B\262\300f\303=\203m\204\277 \300u\210\300f\301=\203o\300f\301=\203[\300\211m\204\326 \300u\210\300f\304=\203\305u\210`\306\307\300w\210`{\262\300f\310=\203`T\262\311u\210\307\300w\210\211`{P\262\202\353 \305u\210\262\2028\300f\312=\2058\313\314!\2058\315\225\316\317\305!!d\\W?\2056\\b\210\211\\{\266\202\211\262\203T\211B\262\300f\304=\204\326 m\204\326 \300u\210\202\326 \237\266\202\202h\313\320!\205h\315\225b\205h\300B\262\202~\313\320!\203y\315\225b\210\300B\262\321\300\211f\303=\203m\204\216\300u\210\300\211f\301=\203\272m\204\235\300u\210\300f\304=\203\326\305u\210`\306\307\300w\210`{\262\300f\310=\203\316`T\262\311u\210\307\300w\210\211`{P\262\202\262\305u\210\262\202\377\300f\312=\205\377\313\314!\205\377\315\225\316\317\305!!d\\W?\205\375\\b\210\211\\{\266\202B\262m\204\n\300u\210\300f\301=\203\237\300\211m\204\300u\210\300f\304=\203S\305u\210`\306\307\300w\210`{\262\300f\310=\203K`T\262\311u\210\307\300w\210\211`{P\262\202/\305u\210\262\202|\300f\312=\205|\313\314!\205|\315\225\316\317\305!!d\\W?\205z\\b\210\211\\{\266\202\211\262\203\230\211B\262\300f\304=\204m\204\300u\210\202\237\266\202\202\254\313\320!\205\254\315\225b\205\254\300B\262m\204\304\300u\210\202\304\313\320!\203\304\315\225b\210\211\237B\266\202\300f\303=\203m\204\330\300u\210\300f\301=\203\210\300f\301=\203t\300\211m\204\357\300u\210\300f\304=\203(\305u\210`\306\307\300w\210`{\262\300f\310=\203 `T\262\311u\210\307\300w\210\211`{P\262\202\305u\210\262\202Q\300f\312=\205Q\313\314!\205Q\315\225\316\317\305!!d\\W?\205O\\b\210\211\\{\266\202\211\262\203m\211B\262\300f\304=\204\357m\204\357\300u\210\202\357\237\266\202\202\201\313\320!\205\201\315\225b\205\201\300B\262\202\374\300f\304=\203\301\305u\210`\306\307\300w\210`{\262\300f\310=\203\271`T\262\311u\210\307\300w\210\211`{P\262\202\235\305u\210\262\202\352\300f\312=\203\355\313\314!\203\355\315\225\316\317\305!!d\\W?\205\350\\b\210\211\\{\266\202\206\370\313\320!\203\367\315\225b\210\300B\262\300f\303=\203m\204\n\300u\210\321\322 \"\262\202\374\211\262\"\262\300f\323=\204)\324\325\326\300\211$\210m\2040\300u\210\237\262\202( \300f\304=\203p\305u\210`\306\307\300w\210`{\262\300f\310=\203h`T\262\311u\210\307\300w\210\211`{P\262\202L\305u\210\262\202\231\300f\312=\205\231\313\314!\205\231\315\225\316\317\305!!d\\W?\205\227\\b\210\211\\{\266\202B\262m\204\244\300u\210\300f\304=\203\335\305u\210`\306\307\300w\210`{\262\300f\310=\203\325`T\262\311u\210\307\300w\210\211`{P\262\202\271\305u\210\262\202\300f\312=\205\313\314!\205\315\225\316\317\305!!d\\W?\205\\b\210\211\\{\266\202B\262m\204\300u\210\300f\303=\203 m\204 \300u\210\300f\301=\203\317\300f\301=\203\273\300\211m\2046\300u\210\300f\304=\203o\305u\210`\306\307\300w\210`{\262\300f\310=\203g`T\262\311u\210\307\300w\210\211`{P\262\202K\305u\210\262\202\230\300f\312=\205\230\313\314!\205\230\315\225\316\317\305!!d\\W?\205\226\\b\210\211\\{\266\202\211\262\203\264\211B\262\300f\304=\2046m\2046\300u\210\2026\237\266\202\202\310\313\320!\205\310\315\225b\205\310\300B\262\202\336\313\320!\203\331\315\225b\210\300B\262m\204\345\300u\210\300f\304=\203 \305u\210`\306\307\300w\210`{\262\300f\310=\203`T\262\311u\210\307\300w\210\211`{P\262\202\372\305u\210\262\202G\300f\312=\203J\313\314!\203J\315\225\316\317\305!!d\\W?\205E\\b\210\211\\{\266\202\206U\313\320!\203T\315\225b\210\300B\262m\204`\300u\210\300f\304=\203\231\305u\210`\306\307\300w\210`{\262\300f\310=\203\221`T\262\311u\210\307\300w\210\211`{P\262\202u\305u\210\262\202\302\300f\312=\203\305\313\314!\203\305\315\225\316\317\305!!d\\W?\205\300\\b\210\211\\{\266\202\206\320\313\320!\203\317\315\225b\210\300B\262m\204\333\300u\210\300f\304=\203\305u\210`\306\307\300w\210`{\262\300f\310=\203\f`T\262\311u\210\307\300w\210\211`{P\262\202\360\305u\210\262\202=\300f\312=\203@\313\314!\203@\315\225\316\317\305!!d\\W?\205;\\b\210\211\\{\266\202\206K\313\320!\203J\315\225b\210\327B\262m\204V\300u\210\300f\330=\203i\331\300w\210\300B\262\202|\313\332!\205x\316\317\315!!\315\225b\210B\262\300f\303=\203\362m\204\212\300u\210\300\211f\301=\203\321\333 B\262m\204\237\300u\210\302 B\262\300f\323=\203\264\315B\262\202\361m\204\273\300u\210\313\332!\205\312\316\317\315!!\315\225b\210B\262\202\361\313\332!\205\340\316\317\315!!\315\225b\210\211\262\203\356\211B\262\202\361\334u\210\210\300f\303=\203 m\204 \300u\210\300f\304=\2039\305u\210`\306\307\300w\210`{\262\300f\310=\2031`T\262\311u\210\307\300w\210\211`{P\262\202\305u\210\262\202b\300f\312=\203e\313\314!\203e\315\225\316\317\305!!d\\W?\205`\\b\210\211\\{\266\202\206p\313\320!\203o\315\225b\210\300B\262\321\300\211f\303=\203\n m\204\204\300u\210\300\211f\301=\203\260 m\204\223\300u\210\300f\304=\203\314\305u\210`\306\307\300w\210`{\262\300f\310=\203\304`T\262\311u\210\307\300w\210\211`{P\262\202\250\305u\210\262\202\365\300f\312=\205\365\313\314!\205\365\315\225\316\317\305!!d\\W?\205\363\\b\210\211\\{\266\202B\262m\204 \300u\210\300f\301=\203\225 \300\211m\204 \300u\210\300f\304=\203I \305u\210`\306\307\300w\210`{\262\300f\310=\203A `T\262\311u\210\307\300w\210\211`{P\262\202% \305u\210\262\202r \300f\312=\205r \313\314!\205r \315\225\316\317\305!!d\\W?\205p \\b\210\211\\{\266\202\211\262\203\216 \211B\262\300f\304=\204 m\204 \300u\210\202 \237\266\202\202\242 \313\320!\205\242 \315\225b\205\242 \300B\262m\204\272 \300u\210\202\272 \313\320!\203\272 \315\225b\210\211\237B\266\202\300f\303=\203\n m\204\316 \300u\210\300f\301=\203~\n\300f\301=\203j\n\300\211m\204\345 \300u\210\300f\304=\203 \n\305u\210`\306\307\300w\210`{\262\300f\310=\203\n`T\262\311u\210\307\300w\210\211`{P\262\202\372 \305u\210\262\202G\n\300f\312=\205G\n\313\314!\205G\n\315\225\316\317\305!!d\\W?\205E\n\\b\210\211\\{\266\202\211\262\203c\n\211B\262\300f\304=\204\345 m\204\345 \300u\210\202\345 \237\266\202\202w\n\313\320!\205w\n\315\225b\205w\n\300B\262\202\362\n\300f\304=\203\267\n\305u\210`\306\307\300w\210`{\262\300f\310=\203\257\n`T\262\311u\210\307\300w\210\211`{P\262\202\223\n\305u\210\262\202\340\n\300f\312=\203\343\n\313\314!\203\343\n\315\225\316\317\305!!d\\W?\205\336\n\\b\210\211\\{\266\202\206\356\n\313\320!\203\355\n\315\225b\210\300B\262\300f\303=\203\n m\204 \300u\210\321\322 \"\262\202\362\n\211\262\"\262\300f\323=\204 \324\335\336\300\211$\210m\204& \300u\210\211\237\207" [nil 40 imap-parse-body 32 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)}
\n" 0 string-to-number match-string "NIL" append imap-parse-body-extension 41 cl--assertion-failed (eq (char-after) 41) "In imap-parse-body" "7BIT" 45 "-0-9" "[0-9]+" imap-parse-envelope -1 (eq (char-after) 41) "In imap-parse-body 2"] 12])
(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 #[257 "\301\"\207" [imap-debug-buffer trace-function-background] 4 "\n\n(fn F)"] (imap-utf7-encode imap-utf7-decode imap-error-text imap-kerberos4s-p imap-kerberos4-open imap-network-p imap-network-open imap-interactive-login imap-kerberos4a-p imap-kerberos4-auth imap-cram-md5-p imap-cram-md5-auth imap-login-p imap-login-auth imap-anonymous-p imap-anonymous-auth imap-open-1 imap-open imap-opened imap-ping-server imap-authenticate imap-close imap-capability imap-namespace imap-send-command-wait imap-mailbox-put imap-mailbox-get imap-mailbox-map-1 imap-mailbox-map imap-current-mailbox imap-current-mailbox-p-1 imap-current-mailbox-p imap-mailbox-select-1 imap-mailbox-select imap-mailbox-examine-1 imap-mailbox-examine imap-mailbox-unselect imap-mailbox-expunge imap-mailbox-close imap-mailbox-create-1 imap-mailbox-create imap-mailbox-delete imap-mailbox-rename imap-mailbox-lsub imap-mailbox-list imap-mailbox-subscribe imap-mailbox-unsubscribe imap-mailbox-status imap-mailbox-acl-get imap-mailbox-acl-set imap-mailbox-acl-delete imap-current-message imap-list-to-message-set imap-fetch-asynch imap-fetch imap-fetch-safe imap-message-put imap-message-get imap-message-map imap-search imap-message-flag-permanent-p imap-message-flags-set imap-message-flags-del imap-message-flags-add imap-message-copyuid-1 imap-message-copyuid imap-message-copy imap-message-appenduid-1 imap-message-appenduid imap-message-append imap-body-lines imap-envelope-from imap-send-command-1 imap-send-command imap-wait-for-tag imap-sentinel imap-find-next-line imap-arrival-filter imap-parse-greeting imap-parse-response imap-parse-resp-text imap-parse-resp-text-code imap-parse-data-list imap-parse-fetch imap-parse-status imap-parse-acl imap-parse-flag-list imap-parse-envelope imap-parse-body-extension imap-parse-body) provide imap] 3)
Zerion Mini Shell 1.0