;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:03:37 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/imap.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`imap.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302\303\"\210\301\304\305\"\210\301\306\305\"\210\301\307\310\"\210\301\311\310\"\210\301\312\313\"\210\301\314\313\"\210\301\315\313\"\210\301\316\313\"\210\301\317\320\"\210\301\321\322\"\210\301\323\324\"\210\301\325\324\"\210\301\326\327\"\210\301\330\327\"\210\331\332!\203Y\333\334\332\"\210\202]\334\335M\210\336\337\340\341\342%\207" [:group autoload open-ssl-stream "ssl" base64-decode-string "base64" base64-encode-string starttls-open-stream "starttls" starttls-negotiate digest-md5-parse-digest-challenge "digest-md5" digest-md5-digest-response digest-md5-digest-uri digest-md5-challenge rfc2104-hash "rfc2104" md5 "md5" utf7-encode "utf7" utf7-decode format-spec "format-spec" format-spec-make fboundp point-at-eol defalias imap-point-at-eol #[nil "\212\300\210`)\207" [nil] 1] custom-declare-group imap nil "Low-level IMAP issues." mail] 6) #@333 List of strings containing commands for Kerberos 4 authentication. %s is replaced with server hostname, %p with port to connect to, and %l with the value of `imap-default-user'. The program should accept IMAP commands on stdin and return responses to stdout. Each entry in the list is tried until a successful connection is made. (custom-declare-variable 'imap-kerberos4-program ''("imtest -m kerberos_v4 -u %l -p %p %s" "imtest -kp %s %p") '(#$ . 1495) :group 'imap :type '(repeat string)) #@336 List of strings containing commands for GSSAPI (krb5) authentication. %s is replaced with server hostname, %p with port to connect to, and %l with the value of `imap-default-user'. The program should accept IMAP commands on stdin and return responses to stdout. Each entry in the list is tried until a successful connection is made. (custom-declare-variable 'imap-gssapi-program ''("imtest -m gssapi -u %l -p %p %s") '(#$ . 1995) :group 'imap :type '(repeat string)) #@317 A string, or list of strings, containing commands for SSL connections. Within a string, %s is replaced with the server address and %p with port number on server. The program should accept IMAP commands on stdin and return responses to stdout. Each entry in the list is tried until a successful connection is made. (custom-declare-variable 'imap-ssl-program ''("openssl s_client -ssl3 -connect %s:%p" "openssl s_client -ssl2 -connect %s:%p" "s_client -ssl3 -connect %s:%p" "s_client -ssl2 -connect %s:%p") '(#$ . 2471) :group 'imap :type '(choice string (repeat string))) #@365 A list of strings, containing commands for IMAP connection. Within a string, %s is replaced with the server address, %p with port number on server, %g with `imap-shell-host', and %l with `imap-default-user'. The program should read IMAP commands from stdin and write IMAP response to stdout. Each entry in the list is tried until a successful connection is made. (custom-declare-variable 'imap-shell-program ''("ssh %s imapd" "rsh %s imapd" "ssh %g ssh %s imapd" "rsh %g rsh %s imapd") '(#$ . 3051) :group 'imap :type '(repeat string)) #@27 Hostname of rlogin proxy. (defvar imap-shell-host "gateway" (#$ . 3594)) #@26 Default username to use. (defvar imap-default-user (user-login-name) (#$ . 3673)) #@36 Error codes from the last command. (defvar imap-error nil (#$ . 3761)) #@51 Hooks called after receiving each FETCH response. (defvar imap-fetch-data-hook nil (#$ . 3838)) #@68 Priority of streams to consider when opening connection to server. (defvar imap-streams '(gssapi kerberos4 starttls ssl network shell) (#$ . 3940)) #@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) (ssl imap-ssl-p imap-ssl-open) (network imap-network-p imap-network-open) (shell imap-shell-p imap-shell-open) (starttls imap-starttls-p imap-starttls-open)) (#$ . 4095)) #@71 Priority of authenticators to consider when authenticating to server. (defvar imap-authenticators '(gssapi kerberos4 digest-md5 cram-md5 login anonymous) (#$ . 4595)) #@239 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 actuall authentification. (defvar imap-authenticator-alist '((gssapi imap-gssapi-auth-p imap-gssapi-auth) (kerberos4 imap-kerberos4-auth-p imap-kerberos4-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)) (#$ . 4769)) #@248 If non-nil, do utf7 encoding/decoding of mailbox names. Since the UTF7 decoding currently only decodes into ISO-8859-1 characters, you may disable this decoding if you need to access UTF7 encoded mailboxes which doesn't translate into ISO-8859-1. (defvar imap-use-utf7 t (#$ . 5346)) (byte-code "\306\300 B\307\302 B\310\303 B\311\304 B\311\305 B\312 \313 B\314\315!\204.\316 \315 B\314\317!\204;\316\317 B\314\320!\204H\316\320 B\314\321!\204U\316\321 B\314\322!\204b\316\322 B\314\323!\204o\316\323 B\314\324!\204|\316\324 B\316\207" [imap-default-port current-load-list imap-default-ssl-port imap-default-stream imap-coding-system-for-read imap-coding-system-for-write 143 993 network binary (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-namespace imap-state imap-reached-tag imap-failed-tags imap-tag imap-process imap-calculate-literal-size-first imap-mailbox-data) imap-local-variables boundp imap-stream nil imap-auth imap-server imap-port imap-username imap-password imap-calculate-literal-size-first] 2) #@96 IMAP state. Valid states are `closed', `initial', `nonauth', `auth', `selected' and `examine'. (defvar imap-state 'closed (#$ . 6551)) #@38 The EOL string sent from the server. (defvar imap-server-eol " \n" (#$ . 6692)) #@39 The EOL string we send to the server. (defvar imap-client-eol " \n" (#$ . 6778)) #@23 Current mailbox name. (defvar imap-current-mailbox nil (#$ . 6865)) #@54 Current target mailbox for COPY and APPEND commands. (defvar imap-current-target-mailbox nil (#$ . 6939)) #@28 Obarray with mailbox data. (defvar imap-mailbox-data nil (#$ . 7051)) #@30 Length of imap-mailbox-data. (defvar imap-mailbox-prime 997 (#$ . 7127)) #@25 Current message number. (defvar imap-current-message nil (#$ . 7206)) #@28 Obarray with message data. (defvar imap-message-data nil (#$ . 7282)) #@30 Length of imap-message-data. (defvar imap-message-prime 997 (#$ . 7358)) #@24 Capability for server. (defvar imap-capability nil (#$ . 7437)) #@31 Namespace for current server. (defvar imap-namespace nil (#$ . 7507)) #@52 Lower limit on command tags that have been parsed. (defvar imap-reached-tag 0 (#$ . 7583)) #@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 (#$ . 7681)) #@21 Command tag number. (defvar imap-tag 0 (#$ . 7935)) #@10 Process. (defvar imap-process nil (#$ . 7993)) #@131 Non-nil indicates that the server emitted a continuation request. The actually value is really the text on the continuation line. (defvar imap-continuation nil (#$ . 8047)) #@82 Name of buffer for imap session trace. For example: (setq imap-log "*imap-log*") (defvar imap-log nil (#$ . 8226)) #@85 Name of buffer for random debug spew. For example: (setq imap-debug "*imap-debug*") (defvar imap-debug nil (#$ . 8347)) #@41 Enable multibyte in the current buffer. (defalias 'imap-disable-multibyte #[nil "\300\301!\205 \301\302!\207" [fboundp set-buffer-multibyte nil] 2 (#$ . 8473)]) (put 'imap-disable-multibyte 'byte-optimizer 'byte-compile-inline-expand) #@83 Read a password using PROMPT. If ARGS, PROMPT is used as an argument to `format'. (defalias 'imap-read-passwd #[(prompt &rest args) "\203\f\302\303 #\202 \304\305!\204.\306\307\310\"\203!\304\305!\204.\306\311\310\"\2032\304\305!\2032\305\2028\312\313\314\"\210\313 !)\207" [args prompt apply format fboundp read-passwd load "subr" t "passwd" autoload ange-ftp-read-passwd "ange-ftp"] 4 (#$ . 8715)]) (defalias 'imap-utf7-encode #[(string) "\203 \205\302\303\304\217\207 \207" [imap-use-utf7 string nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string))] 3]) (put 'imap-utf7-encode 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-utf7-decode #[(string) "\203 \205\302\303\304\217\207 \207" [imap-use-utf7 string nil (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string))] 3]) (put 'imap-utf7-decode 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-ok-p #[(status) "\302=\203\303\207\304\207" [status imap-error OK t nil] 2]) (put 'imap-ok-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-error-text #[(&optional buffer) "r\206pq\210\302 @8)\207" [buffer imap-failed-tags 3] 2]) (defalias 'imap-kerberos4-stream-p #[(buffer) "\301\302\"\207" [buffer imap-capability AUTH=KERBEROS_V4] 3]) (defalias 'imap-kerberos4-open #[(name buffer server port) "\306\211 \204\f \211A@\211\203\f\307\310\n\"\210\311 \210\f\206! ./01\3122345\313\n\314\3156\316\317\f!\3207&\"%8\30698\203r3q\210\321:\322;\3238!\324>\203\247eb\203\247\325\326!\203s\306y\210\202g\325\327!\203|\330u\210\331 \203\232\332\333\306\322#\204\221\332\334\306\322#\203\232\335\336!\2119\204\247\3378\336\"\210\340\336!\210\202Y<\203\311r\341\203\353\354!\210\3558!\210)-\202 +\207" [imap-kerberos4-program done cmd cmds port imap-default-port nil message "Opening Kerberos 4 IMAP connection with `%s'..." erase-buffer start-process format-spec format-spec-make 115 112 number-to-string 108 "\n" t process-status (open run) looking-at "^C:" "S: " 3 imap-parse-greeting re-search-forward "^__\\(.*\\)__\n" "^\\(Authenticat.*\\)" match-string 1 accept-process-output sit-for get-buffer-create fboundp set-buffer-multibyte buffer-disable-undo insert-buffer-substring "Opening Kerberos 4 IMAP connection with `%s'...%s" "done, " "failed" string-match (open run) imap-send-command-wait "LOGOUT" delete-process imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write name buffer shell-file-name shell-command-switch server imap-default-user process response imap-client-eol imap-calculate-literal-size-first imap-log case-fold-search] 14]) (defalias 'imap-gssapi-stream-p #[(buffer) "\301\302\"\207" [buffer imap-capability AUTH=GSSAPI] 3]) (defalias 'imap-gssapi-open #[(name buffer server port) "\306\211 \204\366 \211A@\211\203\366\307\310\n\"\210\f\206 ,-./\3110123\312\n\313\3144\315\316\f!\3175&\"%6\30676\203\362r1q\210\3208\3216!\322>\203\231eb\203\231\323\324!\203m\306y\210\202a\323\325!\203v\326u\210\327 \203\214\330\331\306\332#\203\214\333\334!\2117\204\231\3356\334\"\210\336\334!\210\202S9\203\273r\3379!q\210\340\341!\203\257\341\306!\210\342 \210db\210\3431!\210)\344 \210\307\3457\206\306\346\"\2107\203\337\306:\347\3467\")\204\3376\202\361\3216!\350>\203\354\351\352!\210\3536!\210)-\202 +\207" [imap-gssapi-program done cmd cmds port imap-default-port nil message "Opening GSSAPI IMAP connection with `%s'..." start-process format-spec format-spec-make 115 112 number-to-string 108 "\n" process-status (open run) looking-at "^C:" "S: " 3 imap-parse-greeting re-search-forward "^\\(Authenticat.*\\)" t match-string 1 accept-process-output sit-for get-buffer-create fboundp set-buffer-multibyte buffer-disable-undo insert-buffer-substring erase-buffer "GSSAPI IMAP connection: %s" "failed" string-match (open run) imap-send-command-wait "LOGOUT" delete-process imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write name buffer shell-file-name shell-command-switch server imap-default-user process response imap-client-eol imap-log case-fold-search] 14]) (defalias 'imap-ssl-p #[(buffer) "\300\207" [nil] 1]) #@34 Open a SSL connection to server. (defalias 'imap-ssl-open #[(name buffer server port) "<\203 \202 C\306\211 \204\267 \211A@\211\203\267\307\310\n\"\210\f\206( !\"#$%&'\311\n\312\313(\314\315\f!$\"D)\306*\316\317\320\217\211*\203\262r+q\210eb\210\321*!\322>\203\200db\203\200\323y\203\200\324 \204\200\325*\326\"\210\327\326!\210\202[,\203\242r\330,!q\210\331\332!\203\226\332\306!\210\333 \210db\210\334+!\210)\335 \210\321*!\336>\203\261*).\202 \203\304\307\337\n\"\210 \202\312\307\340\n\"\210\306+\207" [imap-ssl-program done cmd cmds port imap-default-ssl-port nil message "imap: Opening SSL connection with `%s'..." format-spec format-spec-make 115 112 number-to-string #1=#:G88878 (open-ssl-stream name buffer server port) ((error)) process-status (open run) -1 imap-parse-greeting accept-process-output 1 sit-for get-buffer-create fboundp set-buffer-multibyte buffer-disable-undo insert-buffer-substring erase-buffer (open run) "imap: Opening SSL connection with `%s'...done" "imap: Opening SSL connection with `%s'...failed" imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write shell-file-name ssl-program-name shell-command-switch server ssl-program-arguments process buffer imap-log] 9 (#$ . 13283)]) (defalias 'imap-network-p #[(buffer) "\300\207" [t] 1]) (defalias 'imap-network-open #[(name buffer server port) "\206 \n\f\306$\211\205f\307!\310>\2039eb\2039\311 \2049\312\313\"\210\314\313!\210\202\203[r\315!q\210\316\317!\203O\317\320!\210\321 \210db\210\322!\210)\307!\323>\205f,\207" [port imap-default-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write open-network-stream process-status (open run) imap-parse-greeting accept-process-output 1 sit-for get-buffer-create fboundp set-buffer-multibyte nil buffer-disable-undo insert-buffer-substring (open run) name buffer server process imap-log] 6]) (defalias 'imap-shell-p #[(buffer) "\300\207" [nil] 1]) (defalias 'imap-shell-open #[(name buffer server port) "\306\211 \204\242 \211A@\211\203\242\307\310\n\"\210\311 \206!!\"#$%\312&'()\313\n\314\315*\316+\317\320 !\321,&\"%\211-\203\236\322-!\323>\203meb\203m\324 \204m\325-\326\"\210\327\326!\210\202M\330 \210.\203\222r\331.!q\210\332\333!\203\206\333\306!\210\334 \210db\210\335'!\210)\322-!\336>\203\236-,\202 \203\257\307\337\n\"\210 \202\265\307\340\n\"\210\306+\207" [imap-shell-program done cmd cmds imap-client-eol port nil message "imap: Opening IMAP connection with `%s'..." "\n" start-process format-spec format-spec-make 115 103 112 number-to-string 108 process-status (open run) imap-parse-greeting accept-process-output 1 sit-for erase-buffer get-buffer-create fboundp set-buffer-multibyte buffer-disable-undo insert-buffer-substring (open run) "imap: Opening IMAP connection with `%s'...done" "imap: Opening IMAP connection with `%s'...failed" imap-default-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write name buffer shell-file-name shell-command-switch server imap-shell-host imap-default-user process imap-log] 17]) (defalias 'imap-starttls-p #[(buffer) "\301\302\"\205 \303\304\305\217\207" [buffer imap-capability STARTTLS nil (byte-code "\300\301!\210\302\303!\207" [require starttls call-process "starttls"] 2) ((error))] 3]) (defalias 'imap-starttls-open #[(name buffer server port) "\206 \n\f\306 !$\"\307#\310\311!\210\"\203\227\312\"!\313>\203Aeb\203A\314 \204A\315\"\316\"\210\317\316!\210\202!$\203Yr\320$!q\210\321 \210db\210\322 !\210)\"%\323\216\324%\325\"\210&\326=\203\211\327\330!\211'\331=\203{\332\202\200'(\307)\203\211\333%!\210*\312\"!\334>\203\227\"##\203\245\310\335!\210#\202\252\310\336!\210\307-\207" [port imap-default-port imap-coding-system-for-read coding-system-for-read imap-coding-system-for-write coding-system-for-write starttls-open-stream nil message "imap: Connecting with STARTTLS..." process-status (open run) imap-parse-greeting accept-process-output 1 sit-for get-buffer-create buffer-disable-undo insert-buffer-substring ((set-process-filter imap-process nil)) set-process-filter imap-arrival-filter starttls imap-send-command-wait "STARTTLS" OK t starttls-negotiate (open run) "imap: Connecting with STARTTLS...done" "imap: Connecting with STARTTLS...failed" name buffer server process done imap-log imap-process imap-stream status imap-error] 6]) #@218 Login to server in BUFFER. LOGINFUNC is passed a username and a password, it should return t if it where sucessful authenticating itself to the server, nil otherwise. Returns t if login was successful, nil otherwise. (defalias 'imap-interactive-login #[(buffer loginfunc) "rq\210\306\304!\210\306\307!\210\310\211\211 \203\n\204l\f\206*\311\312 \313Q \206)\"\2069\314\315 \316 \313\260! \203\n\203 \n\"\203_\317 \204\320\321!\203\n\202\322\323!\210\310\324\325!\210\202 ,\207" [buffer ret passwd user imap-username imap-server make-variable-buffer-local imap-password nil read-from-minibuffer "IMAP username for " ": " imap-read-passwd "IMAP password for " "@" t y-or-n-p "Store password for this session? " message "Login failed..." sit-for 1 imap-default-user loginfunc] 6 (#$ . 17868)]) (defalias 'imap-gssapi-auth-p #[(buffer) "\301\302\"\207" [buffer imap-capability AUTH=GSSAPI] 3]) (defalias 'imap-gssapi-auth #[(buffer) "\301\302\303=\203\f\304\202 \305\"\210\303=\207" [imap-stream message "imap: Authenticating using GSSAPI...%s" gssapi "done" "failed"] 4]) (defalias 'imap-kerberos4-auth-p #[(buffer) "\301\302\"\207" [buffer imap-capability AUTH=KERBEROS_V4] 3]) (defalias 'imap-kerberos4-auth #[(buffer) "\301\302\303=\203\f\304\202 \305\"\210\303=\207" [imap-stream message "imap: Authenticating using Kerberos 4...%s" kerberos4 "done" "failed"] 4]) (defalias 'imap-cram-md5-p #[(buffer) "\301\302\"\207" [buffer imap-capability AUTH=CRAM-MD5] 3]) #@49 Login to server using the AUTH CRAM-MD5 method. (defalias 'imap-cram-md5-auth #[(buffer) "\302\303!\210\304\305\"\211\203\302\306!\202\302\307!)\207" [buffer done message "imap: Authenticating using CRAM-MD5..." imap-interactive-login #[(user passwd) "\302\303\304D!\211\305=\203\306\202\307)\207" [status imap-error imap-send-command-wait "AUTHENTICATE CRAM-MD5" #[(challenge) "\306!\307\310\311\312\n %\f\313 Q\314 !+\207" [challenge decoded passwd hash user response base64-decode-string rfc2104-hash md5 64 16 " " base64-encode-string] 7] OK t nil] 4] "imap: Authenticating using CRAM-MD5...done" "imap: Authenticating using CRAM-MD5...failed"] 4 (#$ . 19386)]) (defalias 'imap-login-p #[(buffer) "\301\302\"?\205 \301\303\"?\207" [buffer imap-capability LOGINDISABLED X-LOGIN-CMD-DISABLED] 3]) #@42 Login to server using the LOGIN command. (defalias 'imap-login-auth #[(buffer) "\301\302!\210\303\304\"\207" [buffer message "imap: Plaintext authentication..." imap-interactive-login #[(user passwd) "\304\305\306 \307\260!\211\310=\203\311\202\n\312)\207" [user passwd status imap-error imap-send-command-wait "LOGIN \"" "\" \"" "\"" OK t nil] 7]] 3 (#$ . 20211)]) (defalias 'imap-anonymous-p #[(buffer) "\300\207" [t] 1]) (defalias 'imap-anonymous-auth #[(buffer) "\303\304!\210rq\210\305\306\307 \310\311 Q\312Q!\211\313=\203\314\202! \315*\207" [buffer status imap-error message "imap: Loging in anonymously..." imap-send-command-wait "LOGIN anonymous \"" user-login-name "@" system-name "\"" OK t nil] 6]) (defalias 'imap-digest-md5-p #[(buffer) "\301\302\"\205 \303\304\305\217\207" [buffer imap-capability AUTH=DIGEST-MD5 nil (byte-code "\300\301!\207" [require digest-md5] 2) ((error))] 3]) #@51 Login to server using the AUTH DIGEST-MD5 method. (defalias 'imap-digest-md5-auth #[(buffer) "\301\302!\210\303\304\"\207" [buffer message "imap: Authenticating using DIGEST-MD5..." imap-interactive-login #[(user passwd) "\304\305\306D!\307!\310=\205&\311\312\313!\210\307!\211\314=\203\"\315\202%\n\311))\207" [tag imap-continuation status imap-error imap-send-command "AUTHENTICATE DIGEST-MD5" #[(challenge) "\305\306!!\210\307\310\311\312!\"\313\n #\314\f\315\"*\207" [challenge digest-uri user passwd response digest-md5-parse-digest-challenge base64-decode-string digest-md5-digest-uri "imap" digest-md5-challenge realm digest-md5-digest-response base64-encode-string no-line-break] 4] imap-wait-for-tag INCOMPLETE nil imap-send-command-1 "" OK t] 4]] 3 (#$ . 21133)]) (defalias 'imap-open-1 #[(buffer) "rq\210\306 \210\307\307\310\307\311\312\217\211\205I\313\f\314\"\210\315\f\316\"\210 \310=\203;\317\f!\320>\203;\321\322 \"\210\323\f\324\"\210\202 \321\325 \"\210\317\f!\326>\205I\f)\207" [buffer imap-current-mailbox imap-current-message imap-state imap-process imap-server erase-buffer nil initial (byte-code "\305 \2368\306\n \f$\207" [imap-stream imap-stream-alist buffer imap-server imap-port 2 "imap"] 5) (((error quit))) set-process-filter imap-arrival-filter set-process-sentinel imap-sentinel process-status (open run) message "Waiting for response from %s..." accept-process-output 1 "Waiting for response from %s...done" (open run)] 4]) #@562 Open a 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 necessery. If nil, the buffer name is generated. (defalias 'imap-open #[(server &optional port stream auth buffer) "\206 \306\307 \n\206\f\310#r\311!q\210\312!\203\313!\210\314\315 \"\210\316\317!\203-\317\320!\210\321 \210 \2065\f\n\206; \206C \206L!!\322\323\f\"\210!\206Z\"!\324!)\203\320#\322\325\f\"\210!\204\257$%%\211A%@\211 \203\245 &\236A@!\203t!\206\224\" =?# !\320\211%\202v!\204\256\326\327!\210)#\203\326\322\330!\"\210\313!\210\324!\203\315\322\331!\"\210\202\323\322\332!\"\210\320'\312!\203\204(\333=\204)**\211A*@\211\203+\236A@!\203\354\320\211*\202\356\204\326\334!\210))\202#\322\335\f\"\210\312!\2051\336,\310\"-)\207" [buffer server port imap-local-variables imap-server imap-port format " *imap* %s:%d" 0 get-buffer-create imap-opened imap-close mapcar make-variable-buffer-local fboundp set-buffer-multibyte nil buffer-disable-undo message "imap: Connecting to %s..." imap-open-1 "imap: Connecting to %s...done" error "Couldn't figure out a stream for server" "imap: Reconnecting with stream `%s'..." "imap: Reconnecting with stream `%s'...done" "imap: Reconnecting with stream `%s'...failed" auth "Couldn't figure out authenticator for server" "imap: Connecting to %s...failed" make-vector imap-auth stream imap-stream imap-default-stream stream-changed imap-streams streams imap-stream-alist imap-capability imap-state imap-authenticators auths imap-authenticator-alist imap-mailbox-prime imap-mailbox-data] 5 (#$ . 22622)]) #@114 Return non-nil if connection to imap server in BUFFER is open. If BUFFER is nil then the current buffer is used. (defalias 'imap-opened #[(&optional buffer) "\302\206p!\211\205 \303!\205 rq\210 \205\304 !\305>)\207" [buffer imap-process get-buffer buffer-live-p process-status (open run)] 2 (#$ . 24697)]) #@375 Authenticate to server in BUFFER, using current buffer if nil. It uses the authenticator specified when opening the server. If the authenticator requires username/passwords, they are queried from the user and optionally stored in the buffer. If USER and/or PASSWD is specified, the user will not be questioned and the username and/or password is remembered in the buffer. (defalias 'imap-authenticate #[(&optional user passwd buffer) "r\206pq\210 \306=\204 \307=\206C \310=\206C \311=\202C\312\303!\210\312\305!\210\n\203.\n\f\2034\f\313\f \2368!\205C\307\211)\207" [buffer imap-state user imap-username passwd imap-password nonauth auth select examine make-variable-buffer-local 2 imap-auth imap-authenticator-alist] 3 (#$ . 25020)]) #@85 Close connection to server in BUFFER. If BUFFER is nil, the current buffer is used. (defalias 'imap-close #[(&optional buffer) "r\206pq\210\305 \203\306\307\310!!\204\311\312 \"\210\n\203*\313\n!\314>\203*\315\n!\210\316\316\316\317 \210)\320\207" [buffer imap-server imap-process imap-current-mailbox imap-current-message imap-opened imap-ok-p imap-send-command-wait "LOGOUT" message "Server %s didn't let me log out" process-status (open run) delete-process nil erase-buffer t] 3 (#$ . 25780)]) #@181 Return a list of identifiers which server in BUFFER support. If IDENTIFIER, return non-nil if it's among the servers capabilities. If BUFFER is nil, the current buffer is assumed. (defalias 'imap-capability #[(&optional identifier buffer) "r\206pq\210 \204#\305\306!\211\307=\203\310\202\n\311)\204#\312\f\2032\313\314\f!\226! >\2023 )\207" [buffer imap-capability status imap-error identifier imap-send-command-wait "CAPABILITY" OK t nil (IMAP2) intern symbol-name] 4 (#$ . 26296)]) #@100 Return a namespace hierarchy at server in BUFFER. If BUFFER is nil, the current buffer is assumed. (defalias 'imap-namespace #[(&optional buffer) "r\206pq\210 \204\302\303!\203\304\305!\210 )\207" [buffer imap-namespace imap-capability NAMESPACE imap-send-command-wait "NAMESPACE"] 2 (#$ . 26801)]) (defalias 'imap-send-command-wait #[(command &optional buffer) "\302\303 \" \"\207" [command buffer imap-wait-for-tag imap-send-command] 4]) (defalias 'imap-mailbox-put #[(propname value &optional mailbox buffer) "r\206pq\210 \203\306\307\n\206 \"\f #\210\202$\310\311\f \np%\210)\312\207" [buffer imap-mailbox-data mailbox imap-current-mailbox propname value put intern error "Imap-mailbox-data is nil, prop %s value %s mailbox %s buffer %s" t] 6]) (defalias 'imap-mailbox-get-1 #[(propname &optional mailbox) "\304\206 \n\" N\207" [mailbox imap-current-mailbox imap-mailbox-data propname intern-soft] 3]) (put 'imap-mailbox-get-1 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-mailbox-get #[(propname &optional mailbox buffer) "\n\203 \205\306\307\310\217\202 )r \206pq\210\f\206\" \311\206* \n\"\fN,\207" [mailbox string imap-use-utf7 buffer propname imap-current-mailbox nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) intern-soft imap-mailbox-data] 3]) (defalias 'imap-mailbox-map-1 #[(func &optional mailbox-decoder buffer) "r\206pq\210\303\304\305\n\"\210 *\207" [buffer result imap-mailbox-data nil mapatoms #[(s) " \203 \304\n!!\202\304\n!! B\211\207" [func mailbox-decoder s result symbol-name] 4]] 3]) #@147 Map a function across each mailbox in `imap-mailbox-data', returning a list. Function should take a mailbox name (a string) as the only argument. (defalias 'imap-mailbox-map #[(func &optional buffer) "\302\303 #\207" [func buffer imap-mailbox-map-1 imap-utf7-decode] 4 (#$ . 28453)]) (defalias 'imap-current-mailbox #[(&optional buffer) "r\206pq\210  \203\n\205\304\305\306\217\202\n*\207" [buffer imap-current-mailbox string imap-use-utf7 nil (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string))] 3]) (defalias 'imap-current-mailbox-p-1 #[(mailbox &optional examine) " \230\205\n\203 \302=\206\n?\205 \304=\207" [mailbox imap-current-mailbox examine imap-state selected] 2]) (defalias 'imap-current-mailbox-p #[(mailbox &optional examine buffer) "r\206pq\210\305  \203\n\205\306\307\310\217\202\n)\f\")\207" [buffer mailbox string imap-use-utf7 examine imap-current-mailbox-p-1 nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string))] 4]) #@83 Select MAILBOX on server in BUFFER. If EXAMINE is non-nil, do a read-only select. (defalias 'imap-mailbox-select-1 #[(mailbox &optional examine) "\306 \"\203 \n\207\307 \203\310\202\311\312\313R!\211\314=\203%\315\202( \316)\203?\317 \320\" \203:\301\202;\321\n\207\316\211\207" [mailbox examine imap-current-mailbox status imap-error imap-message-prime imap-current-mailbox-p-1 imap-send-command-wait "EXAMINE" "SELECT" " \"" "\"" OK t nil make-vector 0 selected imap-message-data imap-state] 6 (#$ . 29554)]) (defalias 'imap-mailbox-select #[(mailbox &optional examine buffer) "r\206pq\210\305  \203\n\205\306\307\310\217\202\n)\f\" \203.\n\205/\306\311\312\217\202/\n*\207" [buffer mailbox string imap-use-utf7 examine imap-mailbox-select-1 nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string))] 4]) (defalias 'imap-mailbox-examine-1 #[(mailbox &optional buffer) "r\206pq\210\302 \303\")\207" [buffer mailbox imap-mailbox-select-1 exmine] 3]) #@38 Examine MAILBOX on server in BUFFER. (defalias 'imap-mailbox-examine #[(mailbox &optional buffer) "\302\303 #\207" [mailbox buffer imap-mailbox-select exmine] 4 (#$ . 30724)]) #@61 Close current folder in BUFFER, without expunging articles. (defalias 'imap-mailbox-unselect #[(&optional buffer) "r\206pq\210 \306=\204V\307\310!\203)\311\312!\211\313=\203\"\314\202%\n\315)\204V\311\316\f\317Q!\211\313=\203:\314\202=\n\315)\205]\311\320!\211\313=\203O\314\202R\n\315)\205]\315\315\306\314)\207" [buffer imap-state status imap-error imap-current-mailbox imap-message-data auth imap-capability UNSELECT imap-send-command-wait "UNSELECT" OK t nil "EXAMINE \"" "\"" "CLOSE"] 5 (#$ . 30907)]) #@95 Expunge articles in current folder in BUFFER. If BUFFER is nil the current buffer is assumed. (defalias 'imap-mailbox-expunge #[(&optional buffer) "r\206pq\210 \205%\n\305=?\205%\306\307!\211\310=\203!\311\202$ \312))\207" [buffer imap-current-mailbox imap-state status imap-error examine imap-send-command-wait "EXPUNGE" OK t nil] 3 (#$ . 31443)]) #@102 Expunge articles and close current folder in BUFFER. If BUFFER is nil the current buffer is assumed. (defalias 'imap-mailbox-close #[(&optional buffer) "r\206pq\210 \205(\306\307!\211\310=\203\311\202\n\312)\205(\312\312\313\311)\207" [buffer imap-current-mailbox status imap-error imap-message-data imap-state imap-send-command-wait "CLOSE" OK t nil auth] 3 (#$ . 31808)]) (defalias 'imap-mailbox-create-1 #[(mailbox) "\303\304\305E!\211\306=\203\307\202 \310)\207" [mailbox status imap-error imap-send-command-wait "CREATE \"" "\"" OK t nil] 5]) #@85 Create MAILBOX on server in BUFFER. If BUFFER is nil the current buffer is assumed. (defalias 'imap-mailbox-create #[(mailbox &optional buffer) "r\206pq\210\304  \203\n\205\305\306\307\217\202\n)!)\207" [buffer mailbox string imap-use-utf7 imap-mailbox-create-1 nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string))] 4 (#$ . 32383)]) #@85 Delete MAILBOX on server in BUFFER. If BUFFER is nil the current buffer is assumed. (defalias 'imap-mailbox-delete #[(mailbox &optional buffer) "\n\203 \205\306\307\310\217\202 )r \206pq\210\311\312\313E!\211\314=\203-\315\2020\f\306+\207" [mailbox string imap-use-utf7 buffer status imap-error nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "DELETE \"" "\"" OK t] 5 (#$ . 32798)]) #@104 Rename mailbox OLDNAME to NEWNAME on server in BUFFER. If BUFFER is nil the current buffer is assumed. (defalias 'imap-mailbox-rename #[(oldname newname &optional buffer) "\n\203 \205\306\307\310\217\202 ) \n\203$ \205%\306\307\310\217\202% )r\f\206.pq\210\311\312\313\314 \314\257!\211\315=\203E\316\202I \306,\207" [oldname string imap-use-utf7 newname buffer status nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "RENAME \"" "\" " "\"" OK t imap-error] 8 (#$ . 33298)]) #@266 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 a implementation-specific string that has to be passed to lsub command. (defalias 'imap-mailbox-lsub #[(&optional root reference add-delimiter buffer) "r\206pq\210 \203@\306\n\307 \206 \"\fN*\204@\310\311\312\n\2038\205:\313\314\315\217\202:)\316\260!\210\317\320!\210\310\321\312\n\203]\205_\313\314\315\217\202_) \205t\306\n\307 \206n \"\fN*\322\260!\211\323=\203\204\324\202\211\313)\205\230\313\317\325!\210\237))\207" [buffer add-delimiter root mailbox propname imap-current-mailbox delimiter intern-soft imap-send-command-wait "LIST \"" "\" \"" nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "\"" imap-mailbox-map-1 #[(mailbox) "\301\302\303#\207" [mailbox imap-mailbox-put lsub nil] 4] "LSUB \"" "%\"" OK t #[(mailbox) "\306\307\206\n\n \" N*\205+ \203#\f\205$\310\311\312\217\202$\f) B\211 \207" [mailbox propname imap-current-mailbox imap-mailbox-data string imap-use-utf7 lsub intern-soft nil (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string)) out] 3] imap-mailbox-data reference string imap-use-utf7 status imap-error out] 9 (#$ . 33895)]) #@218 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 a implementation-specific string that has to be passed to list command. (defalias 'imap-mailbox-list #[(root &optional reference add-delimiter buffer) "r\206pq\210 \203@\306\n\307 \206 \"\fN*\204@\310\311\312\n\2038\205:\313\314\315\217\202:)\316\260!\210\317\320!\210\310\311\312\n\203]\205_\313\314\315\217\202_) \205t\306\n\307 \206n \"\fN*\321\260!\211\322=\203\204\323\202\211\313)\205\230\313\317\324!\210\237))\207" [buffer add-delimiter root mailbox propname imap-current-mailbox delimiter intern-soft imap-send-command-wait "LIST \"" "\" \"" nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "\"" imap-mailbox-map-1 #[(mailbox) "\301\302\303#\207" [mailbox imap-mailbox-put list nil] 4] "%\"" OK t #[(mailbox) "\306\307\206\n\n \" N*\205+ \203#\f\205$\310\311\312\217\202$\f) B\211 \207" [mailbox propname imap-current-mailbox imap-mailbox-data string imap-use-utf7 list intern-soft nil (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string)) out] 3] imap-mailbox-data reference string imap-use-utf7 status imap-error out] 9 (#$ . 35354)]) #@95 Send the SUBSCRIBE command on the mailbox to server in BUFFER. Returns non-nil if successful. (defalias 'imap-mailbox-subscribe #[(mailbox &optional buffer) "r\206pq\210\306\307  \203\n\205\310\311\312\217\202\n)\313Q!\211\314=\203+\315\202.\f\310*\207" [buffer mailbox string imap-use-utf7 status imap-error imap-send-command-wait "SUBSCRIBE \"" nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "\"" OK t] 6 (#$ . 36754)]) #@95 Send the SUBSCRIBE command on the mailbox to server in BUFFER. Returns non-nil if successful. (defalias 'imap-mailbox-unsubscribe #[(mailbox &optional buffer) "r\206pq\210\306\307  \203\n\205\310\311\312\217\202\n)\313Q!\211\314=\203+\315\202.\f\310*\207" [buffer mailbox string imap-use-utf7 status imap-error imap-send-command-wait "UNSUBSCRIBE " nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "\"" OK t] 6 (#$ . 37268)]) #@321 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 -- ie '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 it's value is returned. (defalias 'imap-mailbox-status #[(mailbox items &optional buffer) "r\206pq\210\306\307  \203\n\205\310\311\312\217\202\n)\313\314\315\f<\203)\f\202+\fC\"F!\211\316=\2039\317\202= \310)\205Q\f<\203M\320\321\f\"\202Q\322\f \")\207" [buffer mailbox string imap-use-utf7 items status imap-send-command-wait "STATUS \"" nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "\" " format "%s" OK t mapcar #[(item) "\302 \"\207" [item mailbox imap-mailbox-get] 3] imap-mailbox-get imap-error] 8 (#$ . 37785)]) #@43 Get ACL on mailbox from server in BUFFER. (defalias 'imap-mailbox-acl-get #[(&optional mailbox buffer) "\n\203 \205\306\307\310\217\202 )r \206pq\210\311\312\206#\f\313E!\211\314=\2031\315\2025 \306)\205O\316\206?\f\317\206H\f\"N**\207" [mailbox string imap-use-utf7 buffer imap-current-mailbox status nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "GETACL \"" "\"" OK t acl intern-soft imap-error propname imap-mailbox-data] 5 (#$ . 38700)]) #@75 Change/set ACL for IDENTIFIER to RIGHTS in MAILBOX from server in BUFFER. (defalias 'imap-mailbox-acl-set #[(identifier rights &optional mailbox buffer) "\n\203 \205\306\307\310\217\202 )r \206pq\210\311\312\206#\f\313 \314\257!\211\315=\2037\316\202<\306+\207" [mailbox string imap-use-utf7 buffer imap-current-mailbox identifier nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "SETACL \"" "\" " " " OK t rights status imap-error] 8 (#$ . 39274)]) #@87 Removes any pair for IDENTIFIER in MAILBOX from server in BUFFER. (defalias 'imap-mailbox-acl-delete #[(identifier &optional mailbox buffer) "\n\203 \205\306\307\310\217\202 )r \206pq\210\311\312\206#\f\313 F!\211\314=\2033\315\2028\306+\207" [mailbox string imap-use-utf7 buffer imap-current-mailbox identifier nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "DELETEACL \"" "\" " OK t status imap-error] 6 (#$ . 39847)]) (defalias 'imap-current-message #[(&optional buffer) "r\206pq\210 )\207" [buffer imap-current-message] 1]) (defalias 'imap-list-to-message-set #[(list) "\301\302<\203 \202 C\303#\207" [list mapconcat #[(item) "\301!\207" [item number-to-string] 2] ","] 4]) (defalias 'imap-range-to-message-set #[(range) "\301\302<\203A<\204C\202\303#\207" [range mapconcat #[(item) ":\203 \301\302@A#\207\301\303\"\207" [item format "%d:%d" "%d"] 4] ","] 4]) (defalias 'imap-fetch-asynch #[(uids props &optional nouidfetch buffer) "r\206pq\210\304\305\306 \203\307\202\310\n<\203\311\n!\202 \n $!)\207" [buffer nouidfetch uids props imap-send-command format "%sFETCH %s %s" "" "UID " imap-list-to-message-set] 6]) #@169 Fetch properties PROPS from message set UIDS from server in BUFFER. UIDS can be a string, number or a list of numbers. If RECEIVE is non-nil return theese properties. (defalias 'imap-fetch #[(uids props &optional receive nouidfetch buffer) "r\206pq\210\306\307\310 \203\311\202\312\n<\203\313\n!\202 \n $!\211\314=\203.\315\2021\f\316)\205T\203?\n;\203C\315\202T\n<\203O\317\320\n\"\202T\321\n\")\207" [buffer nouidfetch uids props status imap-error imap-send-command-wait format "%sFETCH %s %s" "" "UID " imap-list-to-message-set OK t nil mapcar #[(uid) "<\203\n\302\303\"\207\304 \"\207" [receive uid mapcar #[(prop) "\302 \"\207" [uid prop imap-message-get] 3] imap-message-get] 3] imap-message-get receive] 7 (#$ . 41143)]) (defalias 'imap-message-put #[(uid propname value &optional buffer) "r\206pq\210 \203\305\306\307\n! \" \f#\210\202\"\310\311\n \fp%\210)\312\207" [buffer imap-message-data uid propname value put intern number-to-string error "Imap-message-data is nil, uid %s prop %s value %s buffer %s" t] 6]) (defalias 'imap-message-get #[(uid propname &optional buffer) "r\206pq\210\304\305 !\n\" N)\207" [buffer uid imap-message-data propname intern-soft number-to-string] 3]) #@78 Map a function across each mailbox in `imap-message-data', returning a list. (defalias 'imap-message-map #[(func propname &optional buffer) "r\206pq\210\303\304\305\n\"\210 *\207" [buffer result imap-message-data nil mapatoms #[(s) " \304N \nN\" B\211\207" [func s propname result UID] 4]] 3 (#$ . 42381)]) (defalias 'imap-message-envelope-date '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (0)] 6])) (defalias 'imap-message-envelope-subject '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (1)] 6])) (defalias 'imap-message-envelope-from '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (2)] 6])) (defalias 'imap-message-envelope-sender '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (3)] 6])) (defalias 'imap-message-envelope-reply-to '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (4)] 6])) (defalias 'imap-message-envelope-to '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (5)] 6])) (defalias 'imap-message-envelope-cc '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (6)] 6])) (defalias 'imap-message-envelope-bcc '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (7)] 6])) (defalias 'imap-message-envelope-in-reply-to '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (8)] 6])) (defalias 'imap-message-envelope-message-id '(macro . #[(uid &optional buffer) "\302\303\304BB\305\306 \307BB\310BBE\207" [buffer uid with-current-buffer or ((current-buffer)) elt imap-message-get ('ENVELOPE) (9)] 6])) (defalias 'imap-message-body '(macro . #[(uid &optional buffer) "\302\303\304BB\305 \306BBE\207" [buffer uid with-current-buffer or ((current-buffer)) imap-message-get ('BODY)] 5])) (defalias 'imap-search #[(predicate &optional buffer) "r\206pq\210\306\307\310\"\210\311\312 P!\211\313=\203\314\202 \n\315)\205S\307\f\316 \206/\f\"N*\310=\203A\317\320!\202S\307\f\316 \206L\f\"N*)\207" [buffer predicate status imap-error imap-current-mailbox mailbox imap-mailbox-put search dummy imap-send-command-wait "UID SEARCH " OK t nil intern-soft error "Missing SEARCH response to a SEARCH command" propname imap-mailbox-data] 4]) #@113 Return t iff FLAG can be permanently (between IMAP sessions) saved on articles, in MAILBOX on server in BUFFER. (defalias 'imap-message-flag-permanent-p #[(flag &optional mailbox buffer) "r\206pq\210\303\304\305 \"\235\206\n\304\305 \"\235)\207" [buffer mailbox flag "\\*" imap-mailbox-get permanentflags] 4 (#$ . 45509)]) (defalias 'imap-message-flags-set #[(articles flags &optional silent buffer) "\205. \205.r\n\206pq\210\306\307\310 \205\311\312 \313\260!\211\314=\203*\315\202-\f\316*\207" [articles flags buffer silent status imap-error imap-send-command-wait "UID STORE " " FLAGS" ".SILENT" " (" ")" OK t nil] 9]) (defalias 'imap-message-flags-del #[(articles flags &optional silent buffer) "\205. \205.r\n\206pq\210\306\307\310 \205\311\312 \313\260!\211\314=\203*\315\202-\f\316*\207" [articles flags buffer silent status imap-error imap-send-command-wait "UID STORE " " -FLAGS" ".SILENT" " (" ")" OK t nil] 9]) (defalias 'imap-message-flags-add #[(articles flags &optional silent buffer) "\205. \205.r\n\206pq\210\306\307\310 \205\311\312 \313\260!\211\314=\203*\315\202-\f\316*\207" [articles flags buffer silent status imap-error imap-send-command-wait "UID STORE " " +FLAGS" ".SILENT" " (" ")" OK t nil] 9]) (defalias 'imap-message-copyuid-1 #[(mailbox) "\306\307!\203+\310\311\206\n \" N*@\312\313\310\311\206\"\n \" N*8!D\207\n\f\314\313\315\"\316!\205n\317\320\321\"\205Z\322\311\206M\n \" N*\323\324\325\326\327\"\"D\203k\330\331=\"\210\202n\332 \210+\207" [mailbox propname imap-current-mailbox imap-mailbox-data imap-state imap-message-data imap-capability UIDPLUS copyuid intern-soft string-to-number 2 make-vector 0 imap-mailbox-examine-1 imap-fetch "*" "UID" uidvalidity apply max imap-message-map #[(uid prop) "\207" [uid] 1] UID imap-mailbox-select examine imap-mailbox-unselect state old-mailbox] 6]) (defalias 'imap-message-copyuid #[(mailbox &optional buffer) "r\206pq\210\304  \203\n\205\305\306\307\217\202\n)!)\207" [buffer mailbox string imap-use-utf7 imap-message-copyuid-1 nil (utf7-decode string t) ((error (message "imap: Could not UTF7 decode `%s', using it undecoded..." string) string))] 4]) #@327 Copy ARTICLES (a string message set) to MAILBOX on server in BUFFER, creating mailbox if it doesn't exist. If dont-create is non-nil, it will not create a mailbox. On success, return a list with the UIDVALIDITY of the mailbox the article(s) was copied to as the first element, rest of list contain the saved articles' UIDs. (defalias 'imap-message-copy #[(articles mailbox &optional dont-create no-copyuid buffer) "\205\213r \206\npq\210\n\f\203 \205\306\307\310\217\202 )\311\312\n\313\260\n\314!\211\315=\203;\316\202@\306)\203H\316\202~?\205~\317\n\320\n\206Z\"N*\205~\321\n!\210\314!\211\315=\203x\316\202}\306)*\205\212\206\212\322\n!*\207" [articles buffer mailbox string imap-use-utf7 imap-current-target-mailbox nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) "UID COPY " " \"" "\"" imap-send-command-wait OK t trycreate intern-soft imap-mailbox-create-1 imap-message-copyuid-1 cmd status imap-error dont-create propname imap-current-mailbox imap-mailbox-data no-copyuid] 6 (#$ . 47735)]) (defalias 'imap-message-appenduid-1 #[(mailbox) "\306\307!\203\310\311\206\n \" N*\207\n\f\312\313\314\"\315!\205Y\316\317\320\"\205E\321\311\2068\n \" N*\322\323\324\325\326\"\"D\203V\327\330=\"\210\202Y\331 \210+\207" [mailbox propname imap-current-mailbox imap-mailbox-data imap-state imap-message-data imap-capability UIDPLUS appenduid intern-soft make-vector 2 0 imap-mailbox-examine-1 imap-fetch "*" "UID" uidvalidity apply max imap-message-map #[(uid prop) "\207" [uid] 1] UID imap-mailbox-select examine imap-mailbox-unselect state old-mailbox] 6]) (defalias 'imap-message-appenduid #[(mailbox &optional buffer) "r\206pq\210\304  \203\n\205\305\306\307\217\202\n)!)\207" [buffer mailbox string imap-use-utf7 imap-message-appenduid-1 nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string))] 4]) #@206 Append ARTICLE (a buffer) to MAILBOX on server in BUFFER. FLAGS and DATE-TIME is currently not used. Return a cons holding uidvalidity of MAILBOX and UID the newly created article got, or nil on failure. (defalias 'imap-message-append #[(mailbox article &optional flags date-time buffer) "\n\203 \205\306\307\310\217\202 )r \206pq\210\311\312\313 F!\211\314=\2031\315\2026\306*\205=\316!*\207" [mailbox string imap-use-utf7 buffer imap-current-target-mailbox article nil (utf7-encode string t) ((error (message "imap: Could not UTF7 encode `%s', using it unencoded..." string) string)) imap-send-command-wait "APPEND \"" "\" " OK t imap-message-appenduid-1 status imap-error] 6 (#$ . 49773)]) #@78 Return number of lines in article by looking at the mime bodystructure BODY. (defalias 'imap-body-lines #[(body) "<\203;@;\2033@\226\301\230\203\3028\247\203\3028\207@\226\303\230\2031\3048\247\2031\3048\207\305\207\306\307\310\311\"\"\207\305\207" [body "TEXT" 7 "MESSAGE" 9 0 apply + mapcar imap-body-lines] 5 (#$ . 50497)]) #@28 Return a from string line. (defalias 'imap-envelope-from #[(from) "\205\301H\301H\205\302\303H\304\305H\301H\205\306\260\207" [from 0 " <" 2 "@" 3 ">"] 7 (#$ . 50847)]) (defalias 'imap-send-command-1 #[(cmdstr) " P\n\203\"r\304\n!q\210\305\306!\203\306\307!\210\310 \210db\210c\210)\311 \"\207" [cmdstr imap-client-eol imap-log imap-process get-buffer-create fboundp set-buffer-multibyte nil buffer-disable-undo process-send-string] 3]) (defalias 'imap-send-command #[(command &optional buffer) "r\206pq\210 <\204 C\nT\211\306\211\307\n!\310P \211A@\211\203\f;\2035 \fP\202\311\f!\203\332 !\306\"#$r\fq\210#\203S\312 \"$\313\232\204meb\210\314\313\306\315#\203m\316$!\210\202]#\204v\312 \") \317\320\"\"P+\321\216\322 !\210\306\323 !\324=\204\225\306\202\326%& $'(r\fq\210)\203\306r\325)!q\210\326\327!\203\273\327\306!\210\330 \210db\210\331\f!\210)\332(ed#\210)\333( \"\210+)\202\334\f!\203\322 !\210\306\335\216\323 !\324=\204\365\306\202\374\f*! B)\202\336\337!\210\202 \203\322 !\210 ,\207" [buffer command imap-tag cmdstr cmd tag nil number-to-string " " bufferp buffer-size " \n" search-forward t replace-match format "{%d}" ((byte-code "\301\301\207" [imap-continuation nil] 1)) imap-send-command-1 imap-wait-for-tag INCOMPLETE get-buffer-create fboundp set-buffer-multibyte buffer-disable-undo insert-buffer-substring process-send-region process-send-string functionp ((byte-code "\301\301\207" [imap-continuation nil] 1)) error "Unknown command type" imap-client-eol imap-calculate-literal-size-first size calcfirst eol imap-process imap-stream stream process imap-log imap-continuation] 4]) (defalias 'imap-wait-for-tag #[(tag &optional buffer) "r\206pq\210 \204<\n W\203<\306\f!\307>\204 \310\311!\204d\312\245\313\211\314W\2043\315\316\"\210\317\f\311\"\210*\202\315\320!\210 \236\206P \203O\321\202P\322)\207" [buffer imap-continuation imap-reached-tag tag imap-process message-log-max process-status (open run) sit-for 1 1024 nil 10 message "imap read: %dk" accept-process-output "" INCOMPLETE OK len imap-failed-tags] 4]) (defalias 'imap-sentinel #[(process string) "\301!\207" [process delete-process] 2]) #@112 Return point at end of current line, taking into account literals. Return nil if no complete line has arrived. (defalias 'imap-find-next-line #[nil "\301\302Q\303\304#\205+\305\306!\203*d`\307\305\306!!\\W?\205+`\307\305\306!!\\b\210\310 \207`\207" [imap-server-eol re-search-forward "\\|{\\([0-9]+\\)}" nil t match-string 1 string-to-number imap-find-next-line] 5 (#$ . 53092)]) #@22 IMAP process filter. (defalias 'imap-arrival-filter #[(proc string) "r\306!q\210db\210 c\210\n\203*r\307\n!q\210\310\311!\203 \311\312!\210\313 \210db\210 c\210)\312eb\210\314 \211\205x\214e }\210\315\fG!\210eb\210\316\216 \317=\203Q\320 \210\202t \321=\204i \322=\204i \323=\204i \324=\203o\325 \210\202t\326\327 \"\210*\202/*\207" [proc string imap-log end imap-server-eol imap-state process-buffer get-buffer-create fboundp set-buffer-multibyte nil buffer-disable-undo imap-find-next-line delete-backward-char ((byte-code "ed|\207" [] 2)) initial imap-parse-greeting auth nonauth selected examine imap-parse-response message "Unknown state %s in arrival filter"] 3 (#$ . 53483)]) (defalias 'imap-forward #[nil "m\206\300u\207" [nil] 1]) (put 'imap-forward 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-number #[nil "\300\301!\205\302\303\304!!\304\225b\210\207" [looking-at "[0-9]+" string-to-number match-string 0] 3]) (put 'imap-parse-number 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-literal #[nil "\302\303!\205#\304\225\305\306\307!!d \\W?\205\" \\b\210 \211\\{*\207" [len pos looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string 1] 4]) (put 'imap-parse-literal 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-string #[nil "\304f\305=\2036\306u\210`\307\310\304w\210 `{\304f\311=\2030`T\312u\210\310\304w\210 `{P\202\306u\210*\207\304f\313=\205`\314\315!\205`\316\225\317\320\306!!d \n\\W?\205_ \n\\b\210 \211\n\\{*\207" [name p len pos nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string] 4]) (put 'imap-parse-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-nil #[nil "\300\301!\205 \302\225b\207" [looking-at "NIL" 0] 2]) (put 'imap-parse-nil 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-nstring #[nil "\304f\305=\2038\306u\210`\307\310\304w\210 `{\304f\311=\2030`T\312u\210\310\304w\210 `{P\202\306u\210*\202b\304f\313=\203e\314\315!\203e\316\225\317\320\306!!d \n\\W?\205a \n\\b\210 \211\n\\{*\206p\314\321!\203o\316\225b\210\304\207" [name p len pos nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string "NIL"] 4]) (put 'imap-parse-nstring 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-astring #[nil "\304f\305=\2038\306u\210`\307\310\304w\210 `{\304f\311=\2030`T\312u\210\310\304w\210 `{P\202\306u\210*\202b\304f\313=\203e\314\315!\203e\316\225\317\320\306!!d \n\\W?\205a \n\\b\210 \211\n\\{*\206z`\321\322\304\323#\203u\316\225Sb\202y\304\210`{\207" [name p len pos nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string re-search-forward "[(){ \n%*\"\\]" t] 5]) (put 'imap-parse-astring 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-address #[nil "\305\305f\306=\205\367m\204\305u\210\307\305f\310=\203I\311u\210`\312\313\305w\210\n`{\305f\314=\203A`T\315u\210\313\305w\210 \n`{P\202'\311u\210 *\202s\305f\316=\203v\317\320!\203v\321\225\322\323\311!!d\f \\W?\205r\f \\b\210\f\211 \\{*\206\201\317\324!\203\200\321\225b\210\305m\204\210\305u\210\305f\310=\203\300\311u\210`\312\313\305w\210\n`{\305f\314=\203\270`T\315u\210\313\305w\210 \n`{P\202\236\311u\210 *\202\352\305f\316=\203\355\317\320!\203\355\321\225\322\323\311!!d\f \\W?\205\351\f \\b\210\f\211 \\{*\206\370\317\324!\203\367\321\225b\210\305m\204\377\305u\210\305f\310=\2037\311u\210`\312\313\305w\210\n`{\305f\314=\203/`T\315u\210\313\305w\210 \n`{P\202\311u\210 *\202a\305f\316=\203d\317\320!\203d\321\225\322\323\311!!d\f \\W?\205`\f \\b\210\f\211 \\{*\206o\317\324!\203n\321\225b\210\305m\204v\305u\210\305f\310=\203\256\311u\210`\312\313\305w\210\n`{\305f\314=\203\246`T\315u\210\313\305w\210 \n`{P\202\214\311u\210 *\202\330\305f\316=\203\333\317\320!\203\333\321\225\322\323\311!!d\f \\W?\205\327\f \\b\210\f\211 \\{*\206\346\317\324!\203\345\321\225b\210\305$\305f\325=\205\367m\204\366\305u\210)\207" [address name p len pos nil 40 vector 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string "NIL" 41] 8]) (put 'imap-parse-address 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-address-list #[nil "\306f\307=\203=\306\211m\204\306u\210\306f\310=\204+\306f\311=\203'm\204'\306u\210\306\306f\307=\205m\2047\306u\210\312\306f\313=\203p\314u\210`\315\316\306w\210 `{\306f\317=\203h`T\320u\210\316\306w\210\n `{P\202N\314u\210\n*\202\232\306f\321=\203\235\322\323!\203\235\324\225\325\326\314!!d \f\\W?\205\231 \f\\b\210 \211\f\\{*\206\250\322\327!\203\247\324\225b\210\306m\204\257\306u\210\306f\313=\203\347\314u\210`\315\316\306w\210 `{\306f\317=\203\337`T\320u\210\316\306w\210\n `{P\202\305\314u\210\n*\202\306f\321=\203\322\323!\203\324\225\325\326\314!!d \f\\W?\205 \f\\b\210 \211\f\\{*\206\322\327!\203\324\225b\210\306m\204&\306u\210\306f\313=\203^\314u\210`\315\316\306w\210 `{\306f\317=\203V`T\320u\210\316\306w\210\n `{P\202<\314u\210\n*\202\210\306f\321=\203\213\322\323!\203\213\324\225\325\326\314!!d \f\\W?\205\207 \f\\b\210 \211\f\\{*\206\226\322\327!\203\225\324\225b\210\306m\204\235\306u\210\306f\313=\203\325\314u\210`\315\316\306w\210 `{\306f\317=\203\315`T\320u\210\316\306w\210\n `{P\202\263\314u\210\n*\202\377\306f\321=\203\322\323!\203\324\225\325\326\314!!d \f\\W?\205\376 \f\\b\210 \211\f\\{*\206 \322\327!\203\f\324\225b\210\306$\306f\310=\205m\204\306u\210 )\211\203+ B\202\306f\310=\205;m\2049\306u\210\237*\207\330 \204H\331\332\333C\"\210\306\207" [addresses address name p len pos nil 40 41 32 vector 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string "NIL" imap-parse-nil signal cl-assertion-failed (imap-parse-nil)] 8]) (put 'imap-parse-address-list 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-mailbox #[nil "\305f\306=\2038\307u\210`\310\311\305w\210 `{\305f\312=\2030`T\313u\210\311\305w\210 `{P\202\307u\210*\202b\305f\314=\203e\315\316!\203e\317\225\320\321\307!!d \n\\W?\205a \n\\b\210 \211\n\\{*\206z`\322\323\305\324#\203u\317\225Sb\202y\305\210`{\211\226\325\230\203\206\325\202\207\f)\207" [name p len pos mailbox nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string re-search-forward "[(){ \n%*\"\\]" t "INBOX"] 6]) (put 'imap-parse-mailbox 'byte-optimizer 'byte-compile-inline-expand) #@24 Parse a IMAP greeting. (defalias 'imap-parse-greeting #[nil "\301\302!\203\n\303\211\207\301\304!\203\305\211\207\301\306!\205\307\211\207" [imap-state looking-at "\\* OK " nonauth "\\* PREAUTH " auth "\\* BYE " closed] 2 (#$ . 60137)]) #@32 Parse a IMAP command response. (defalias 'imap-parse-response #[nil "\306\307p!\211\211\310=\203d`T^d{\206\311\211\202\315 \312=\203\307p!\211m\204/\306u\210\211\313=\203;\314 \202 \315=\203F\314 \202 \316=\203Q\314 \202 \317=\203\\\314 \202 \320=\203j\321\322\323 \"\202 \324=\203v\325\326!\202 \327=\203\202\325\330!\202 \331=\203\226\321\332\307\333`d{\334Q!\"\202 \335=\203\241\336 \202 \337=\203\265\307\333`d{\226\334Q!\211\202 \340=\203\300\341 \202\307p!m\204\312\306u\210\211\342=\203\330\321\343\"\202 \344=\203\345\321\345\"\202 \346=\203\357\311\202 \347=\203\373\350!\202\351\352\353 \"))\202\315\3061\250\204\351\352\353 \"\202\314\307p!\2111m\204\"\306u\210\2112\313=\20353]3\314 \202\3132\315=\203y3]3\212\314 \210)\306\21145\306f\354=\203b`\355\356!{5m\204b\306u\210`d{4154F6B\2116*\202\3132\316=\203\3063]3\212\314 \210)\306\21145\306f\354=\203\246`\355\356!{5m\204\246\306u\210`d{4154F6B6\357\360154%*\202\313\351\352\353 \"))*\207" [token #1=#:G88879 imap-continuation #2=#:G88880 imap-capability #3=#:G88881 nil read + t * OK imap-parse-resp-text NO BAD BYE FLAGS imap-mailbox-put flags imap-parse-flag-list LIST imap-parse-data-list list LSUB lsub SEARCH search "(" ")" STATUS imap-parse-status CAPABILITY ACL imap-parse-acl EXISTS exists RECENT recent EXPUNGE FETCH imap-parse-fetch message "Garbage: %s" buffer-string 91 search-forward "]" error "Internal error, tag %s status %s code %s text %s" status #4=#:G88882 imap-reached-tag text code imap-failed-tags] 7 (#$ . 60388)]) (defalias 'imap-parse-resp-text #[nil "\300 \207" [imap-parse-resp-text-code] 1]) (defalias 'imap-parse-resp-text-code #[nil "\306\307!\203 m\204 \310u\210\310f\311=\205\213m\204\310u\210\312\313\310\314#\203)\315\316\317 \"\207\312\320\310\314#\2038\315\321\322p!\"\207\312\323\310\314#\203G\315\324\322p!\"\207\306\325!\203T\315\326\327\330!\"\207\312\331\310\314#\203a\315\332\314\"\207\312\333\310\314#\203A\310\211\310f\334=\203\245\330u\210`\335\336\310w\210 `{\310f\337=\203\235`T\340u\210\336\310w\210\n `{P\202\203\330u\210\n*\202\317\310f\341=\205\317\306\342!\205\317\343\225\344\327\330!!d \f\\W?\205\316 \f\\b\210 \211\f\\{*m\204\327\310u\210\310f\334=\203\330u\210`\335\336\310w\210 `{\310f\337=\203`T\340u\210\336\310w\210\n `{P\202\355\330u\210\n*\2029\310f\341=\2059\306\342!\2059\343\225\344\327\330!!d \f\\W?\2058 \f\\b\210 \211\f\\{*\315\300 #*\207\312\345\310\314#\203P\315\346\314/#\207\306\347!\203e\315\350\327\330!\344\327\340!!D/#\207\306\351!\203{\315\352\327\330!\327\340!\327\353!E/#\207\312\354\310\314#\205\213\355\3560`d{#\207" [newname oldname name p len pos looking-at " \\[" nil 91 search-forward "PERMANENTFLAGS " t imap-mailbox-put permanentflags imap-parse-flag-list "UIDNEXT " uidnext read "UNSEEN " unseen "UIDVALIDITY \\([0-9]+\\)" uidvalidity match-string 1 "READ-ONLY" read-only "NEWNAME " 34 "" "^\"\\\\" 92 2 123 "{\\([0-9]+\\)} \n" 0 string-to-number "TRYCREATE" trycreate "APPENDUID \\([0-9]+\\) \\([0-9]+\\)" appenduid "COPYUID \\([0-9]+\\) \\([0-9,:]+\\) \\([0-9,:]+\\)" copyuid 3 "ALERT] " message "Imap server %s information: %s" imap-current-target-mailbox imap-server] 6]) (defalias 'imap-parse-data-list #[(type) "\306\211\211\307 \310\311!\205\273\312\313!\314\225Tb\210\306f\315=\203P\313u\210`\316\317\306w\210\f`{\306f\320=\203H`T\321u\210\317\306w\210 \f`{P\202.\313u\210 *\202~\306f\322=\203\201\310\323!\203\201\314\225\324\312\313!!d \\W?\205} \\b\210\211 \\{*\206\226`\325\326\306\327#\203\221\314\225Sb\202\225\306\210`{\211\226\330\230\203\242\330\202\243)\211\205\273\331\327#\210\331\332\n#\210\331\301 #+\207" [mailbox delimiter flags name p len nil imap-parse-flag-list looking-at " NIL\\| \"\\\\?\\(.\\)\"" match-string 1 0 34 "" "^\"\\\\" 92 2 123 "{\\([0-9]+\\)} \n" string-to-number re-search-forward "[(){ \n%*\"\\]" t "INBOX" imap-mailbox-put list-flags pos type] 6]) (defalias 'imap-parse-header-list #[nil "\305f\306=\205\241\305\305f\307=\204\227m\204\305u\210\305f\310=\203O\311u\210`\312\313\305w\210\n`{\305f\314=\203G`T\315u\210\313\305w\210 \n`{P\202-\311u\210 *\202y\305f\316=\203|\317\320!\203|\321\225\322\323\311!!d\f \\W?\205x\f \\b\210\f\211 \\{*\206\221`\324\325\305\326#\203\214\321\225Sb\202\220\305\210`{B\202 m\204\236\305u\210\237)\207" [strlist name p len pos nil 40 41 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string re-search-forward "[(){ \n%*\"\\]" t] 5]) (put 'imap-parse-header-list 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-fetch-body-section #[nil "`\306\307\310\311#S{\312 \313=\203\300\314\315\310f\316=\205\264\310\310f\317=\204\252m\204*\310u\210\310f\320=\203b\321u\210`\322\323\310w\210 `{\310f\324=\203Z`T\325u\210\323\310w\210\n `{P\202@\321u\210\n*\202\214\310f\326=\203\217\327\330!\203\217\331\225\332\333\321!!d \f\\W?\205\213 \f\\b\210 \211\f\\{*\206\244`\306\334\310\311#\203\237\331\225Sb\202\243\310\210`{ B\202m\204\261\310u\210 \237)B\335#\336\337\310\311#\210\202\301)\207" [section strlist name p len pos re-search-forward "[] ]" nil t char-before 32 mapconcat identity 40 41 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string "[(){ \n%*\"\\]" " " search-forward "]"] 8]) (put 'imap-parse-fetch-body-section 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-fetch #[(response) "\306f\307=\205\301\306\211\211\211\211\211\211\211\211\211\2119:;<=\306f\310=\2045m\2040\306u\210\311p!>m\204<\306u\210>\312=\203L\313\314\315\217=\2021>\316=\203Z\317 <\2021>\320=\203h\321 ;\2021>\322=\203\347\306f\323=\203\260\324u\210`\325?@\326\306w\210@`{?\306f\327=\203\247`T@\330u\210\326\306w\210?@`{P?\202\211\324u\210?*\202\342\306f\331=\205\342\332\333!\205\342\334\225\335\336\324!!ABdBA\\W?\205\341BA\\b\210B\211A\\{*:\2021>\337=\203t\306f\323=\203/\324u\210`\325?@\326\306w\210@`{?\306f\327=\203&`T@\330u\210\326\306w\210?@`{P?\202\324u\210?*\202a\306f\331=\203d\332\333!\203d\334\225\335\336\324!!ABdBA\\W?\205`BA\\b\210B\211A\\{*\206o\332\340!\203n\334\225b\210\3069\2021>\341=\203\306f\323=\203\274\324u\210`\325?@\326\306w\210@`{?\306f\327=\203\263`T@\330u\210\326\306w\210?@`{P?\202\225\324u\210?*\202\356\306f\331=\203\361\332\333!\203\361\334\225\335\336\324!!ABdBA\\W?\205\355BA\\b\210B\211A\\{*\206\374\332\340!\203\373\334\225b\210\306\2021>\342=\203\214\306f\323=\203H\324u\210`\325?@\326\306w\210@`{?\306f\327=\203?`T@\330u\210\326\306w\210?@`{P?\202!\324u\210?*\202z\306f\331=\203}\332\333!\203}\334\225\335\336\324!!ABdBA\\W?\205yBA\\b\210B\211A\\{*\206\210\332\340!\203\207\334\225b\210\306\2021>\343=\203\232\311p!\2021>\344=\203'\345 \346=\203!`\347\350\306\351#S{C\345 \352=\203\353\354C\306f\307=\205s\306D\306f\310=\204hm\204\325\306u\210\306f\323=\203\324u\210`\325?@\326\306w\210@`{?\306f\327=\203 `T@\330u\210\326\306w\210?@`{P?\202\357\324u\210?*\202H\306f\331=\203K\332\333!\203K\334\225\335\336\324!!ABdBA\\W?\205GBA\\b\210B\211A\\{*\206``\347\355\306\351#\203[\334\225Sb\202_\306\210`{DBD\202\307m\204o\306u\210D\237)B\356#\357\360\306\351#\210\202\201C)\226\306f\361=\205\222`T\357\362\306\351#{m\204\231\306u\210\306f\323=\203\332\324u\210`\325?@\326\306w\210@`{?\306f\327=\203\321`T@\330u\210\326\306w\210?@`{P?\202\263\324u\210?*\202\f\306f\331=\203\332\333!\203\334\225\335\336\324!!ABdBA\\W?\205 BA\\b\210B\211A\\{*\206\332\340!\203\334\225b\210\306E B\2021\363 \2021>\364=\2031\363 )\202\"=\205\277=E\365=\312=#\210<\203S\365=\316<#\210;\203`\365=\320;#\210:\203m\365=\322:#\2109\203z\365=\3379#\210 \203\205\365=\341 #\210\f\203\220\365=\342\f#\210 \203\233\365=\343 #\210\n\203\246\365=\344\n#\210 \203\261\365=\366 #\210\203\274\365=\364#\210\367\370!. \207" [bodystructure bodydetail body rfc822size rfc822text rfc822header nil 40 41 read UID #1=#:G88883 (byte-code "\300p!\207" [read] 2) ((error)) FLAGS imap-parse-flag-list ENVELOPE imap-parse-envelope INTERNALDATE 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string RFC822 "NIL" RFC822\.HEADER RFC822\.TEXT RFC822\.SIZE BODY char-before 91 re-search-forward "[] ]" t 32 mapconcat identity "[(){ \n%*\"\\]" " " search-forward "]" 60 ">" imap-parse-body BODYSTRUCTURE imap-message-put BODYDETAIL run-hooks imap-fetch-data-hook rfc822 internaldate envelope flags uid token name p len pos section strlist imap-current-message] 11]) (defalias 'imap-parse-status #[nil "\306f\307=\2038\310u\210`\311\312\306w\210 `{\306f\313=\2030`T\314u\210\312\306w\210 `{P\202\310u\210*\202b\306f\315=\203e\316\317!\203e\320\225\321\322\310!!d \n\\W?\205a \n\\b\210 \211\n\\{*\206z`\323\324\306\325#\203u\320\225Sb\202y\306\210`{\211\226\326\230\203\206\326\202\207\f)\211\205\f\327\330\306\325#\205\f\306f\331=?\205\f\332p!\211\333=\203\262\334\335\332p!\f#\210\202 \336=\203\303\334\337\332p!\f#\210\202 \340=\203\324\334\341\332p!\f#\210\202 \342=\203\361\316\343!\203\334\344\322\310!\f#\203\310\225b\210\202 \345=\203\334\346\332p!\f#\210\202\347\350 \f#\210)\202\225)\207" [name p len pos mailbox token nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string re-search-forward "[(){ \n%*\"\\]" t "INBOX" search-forward "(" 41 read MESSAGES imap-mailbox-put messages RECENT recent UIDNEXT uidnext UIDVALIDITY " \\([0-9]+\\)" uidvalidity UNSEEN unseen message "Unknown status data %s in mailbox %s ignored"] 7]) (defalias 'imap-parse-acl #[nil "\306f\307=\2038\310u\210`\311\312\306w\210 `{\306f\313=\2030`T\314u\210\312\306w\210 `{P\202\310u\210*\202b\306f\315=\203e\316\317!\203e\320\225\321\322\310!!d \n\\W?\205a \n\\b\210 \211\n\\{*\206z`\323\324\306\325#\203u\320\225Sb\202y\306\210`{\211\226\326\230\203\206\326\202\207\f)\306\211\211\306f\327=\203\253m\204\237\306u\210\306f\307=\203\327\310u\210`\311\312\306w\210 `{\306f\313=\203\317`T\314u\210\312\306w\210 `{P\202\265\310u\210*\202\306f\315=\203\316\317!\203\320\225\321\322\310!!d \n\\W?\205 \n\\b\210 \211\n\\{*\206`\323\324\306\325#\203\320\225Sb\202\306\210`{m\204\"\306u\210\306f\307=\203Z\310u\210`\311\312\306w\210 `{\306f\313=\203R`T\314u\210\312\306w\210 `{P\2028\310u\210*\202\204\306f\315=\203\207\316\317!\203\207\320\225\321\322\310!!d \n\\W?\205\203 \n\\b\210 \211\n\\{*\206\234`\323\324\306\325#\203\227\320\225Sb\202\233\306\210`{\330 BC\"\202\221\331\305 \f#,\207" [name p len pos mailbox acl nil 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string re-search-forward "[(){ \n%*\"\\]" t "INBOX" 32 append imap-mailbox-put rights identifier] 6]) (defalias 'imap-parse-flag-list #[nil "\302\211\302f\303=\204\304\305\306C\"\210\302f\307=\2047m\204\302u\210`\211\2037\310\311 w\312V\2037`{ B\202\302f\307=\204D\304\305\313C\"\210m\204K\302u\210 \237*\207" [start flag-list nil 40 signal cl-assertion-failed (eq (char-after) 40) 41 "^ )" imap-point-at-eol 0 (eq (char-after) 41)] 3]) (defalias 'imap-parse-envelope #[nil "\306f\307=\205\331m\204\306u\210\310\306f\311=\203G\312u\210`\313\314\306w\210 `{\306f\315=\203?`T\316u\210\314\306w\210 `{P\202%\312u\210*\202q\306f\317=\203t\320\321!\203t\322\225\323\324\312!!d \n\\W?\205p \n\\b\210 \211\n\\{*\206\320\325!\203~\322\225b\210\306m\204\206\306u\210\306f\311=\203\276\312u\210`\313\314\306w\210 `{\306f\315=\203\266`T\316u\210\314\306w\210 `{P\202\234\312u\210*\202\350\306f\317=\203\353\320\321!\203\353\322\225\323\324\312!!d \n\\W?\205\347 \n\\b\210 \211\n\\{*\206\366\320\325!\203\365\322\225b\210\306m\204\375\306u\210\306f\307=\203<\306\211m\204\306u\210\306f\326=\204(\306f\327=\203$m\204$\306u\210\306\306f\307=\205m\2044\306u\210\310\306f\311=\203m\312u\210`\313\314\306w\210 `{\306f\315=\203e`T\316u\210\314\306w\210 `{P\202K\312u\210*\202\227\306f\317=\203\232\320\321!\203\232\322\225\323\324\312!!d \n\\W?\205\226 \n\\b\210 \211\n\\{*\206\245\320\325!\203\244\322\225b\210\306m\204\254\306u\210\306f\311=\203\344\312u\210`\313\314\306w\210 `{\306f\315=\203\334`T\316u\210\314\306w\210 `{P\202\302\312u\210*\202\306f\317=\203\320\321!\203\322\225\323\324\312!!d \n\\W?\205  \n\\b\210 \211\n\\{*\206\320\325!\203\322\225b\210\306m\204#\306u\210\306f\311=\203[\312u\210`\313\314\306w\210 `{\306f\315=\203S`T\316u\210\314\306w\210 `{P\2029\312u\210*\202\205\306f\317=\203\210\320\321!\203\210\322\225\323\324\312!!d \n\\W?\205\204 \n\\b\210 \211\n\\{*\206\223\320\325!\203\222\322\225b\210\306m\204\232\306u\210\306f\311=\203\322\312u\210`\313\314\306w\210 `{\306f\315=\203\312`T\316u\210\314\306w\210 `{P\202\260\312u\210*\202\374\306f\317=\203\377\320\321!\203\377\322\225\323\324\312!!d \n\\W?\205\373 \n\\b\210 \211\n\\{*\206\n\320\325!\203 \322\225b\210\306$\306f\326=\205m\204\306u\210 )\211\203( \fB\202\306f\326=\2058m\2046\306u\210\f\237*\202H\330 \204G\331\332\333C\"\210\306m\204O\306u\210\306f\307=\203\216\306\211m\204a\306u\210\306f\326=\204z\306f\327=\203vm\204v\306u\210\306\306f\307=\205mm\204\206\306u\210\310\306f\311=\203\277\312u\210`\313\314\306w\210 `{\306f\315=\203\267`T\316u\210\314\306w\210 `{P\202\235\312u\210*\202\351\306f\317=\203\354\320\321!\203\354\322\225\323\324\312!!d \n\\W?\205\350 \n\\b\210 \211\n\\{*\206\367\320\325!\203\366\322\225b\210\306m\204\376\306u\210\306f\311=\2036\312u\210`\313\314\306w\210 `{\306f\315=\203.`T\316u\210\314\306w\210 `{P\202\312u\210*\202`\306f\317=\203c\320\321!\203c\322\225\323\324\312!!d \n\\W?\205_ \n\\b\210 \211\n\\{*\206n\320\325!\203m\322\225b\210\306m\204u\306u\210\306f\311=\203\255\312u\210`\313\314\306w\210 `{\306f\315=\203\245`T\316u\210\314\306w\210 `{P\202\213\312u\210*\202\327\306f\317=\203\332\320\321!\203\332\322\225\323\324\312!!d \n\\W?\205\326 \n\\b\210 \211\n\\{*\206\345\320\325!\203\344\322\225b\210\306m\204\354\306u\210\306f\311=\203$\312u\210`\313\314\306w\210 `{\306f\315=\203`T\316u\210\314\306w\210 `{P\202\312u\210*\202N\306f\317=\203Q\320\321!\203Q\322\225\323\324\312!!d \n\\W?\205M \n\\b\210 \211\n\\{*\206\\\320\325!\203[\322\225b\210\306$\306f\326=\205mm\204l\306u\210 )\211\203z \fB\202a\306f\326=\205\212m\204\210\306u\210\f\237*\202\232\330 \204\231\331\332\333C\"\210\306m\204\241\306u\210\306f\307=\203\340\306\211m\204\263\306u\210\306f\326=\204\314\306f\327=\203\310m\204\310\306u\210\306\306f\307=\205\277m\204\330\306u\210\310\306f\311=\203\312u\210`\313\314\306w\210 `{\306f\315=\203 `T\316u\210\314\306w\210 `{P\202\357\312u\210*\202;\306f\317=\203>\320\321!\203>\322\225\323\324\312!!d \n\\W?\205: \n\\b\210 \211\n\\{*\206I\320\325!\203H\322\225b\210\306m\204P\306u\210\306f\311=\203\210\312u\210`\313\314\306w\210 `{\306f\315=\203\200`T\316u\210\314\306w\210 `{P\202f\312u\210*\202\262\306f\317=\203\265\320\321!\203\265\322\225\323\324\312!!d \n\\W?\205\261 \n\\b\210 \211\n\\{*\206\300\320\325!\203\277\322\225b\210\306m\204\307\306u\210\306f\311=\203\377\312u\210`\313\314\306w\210 `{\306f\315=\203\367`T\316u\210\314\306w\210 `{P\202\335\312u\210*\202)\306f\317=\203,\320\321!\203,\322\225\323\324\312!!d \n\\W?\205( \n\\b\210 \211\n\\{*\2067\320\325!\2036\322\225b\210\306m\204>\306u\210\306f\311=\203v\312u\210`\313\314\306w\210 `{\306f\315=\203n`T\316u\210\314\306w\210 `{P\202T\312u\210*\202\240\306f\317=\203\243\320\321!\203\243\322\225\323\324\312!!d \n\\W?\205\237 \n\\b\210 \211\n\\{*\206\256\320\325!\203\255\322\225b\210\306$\306f\326=\205\277m\204\276\306u\210 )\211\203\314 \fB\202\263\306f\326=\205\334m\204\332\306u\210\f\237*\202\354\330 \204\353\331\332\333C\"\210\306m\204\363\306u\210\306f\307=\2032\n\306\211m\204\306u\210\306f\326=\204\n\306f\327=\203m\204\306u\210\306\306f\307=\205\nm\204*\306u\210\310\306f\311=\203c\312u\210`\313\314\306w\210 `{\306f\315=\203[`T\316u\210\314\306w\210 `{P\202A\312u\210*\202\215\306f\317=\203\220\320\321!\203\220\322\225\323\324\312!!d \n\\W?\205\214 \n\\b\210 \211\n\\{*\206\233\320\325!\203\232\322\225b\210\306m\204\242\306u\210\306f\311=\203\332\312u\210`\313\314\306w\210 `{\306f\315=\203\322`T\316u\210\314\306w\210 `{P\202\270\312u\210*\202 \306f\317=\203 \320\321!\203 \322\225\323\324\312!!d \n\\W?\205 \n\\b\210 \211\n\\{*\206 \320\325!\203 \322\225b\210\306m\204 \306u\210\306f\311=\203Q \312u\210`\313\314\306w\210 `{\306f\315=\203I `T\316u\210\314\306w\210 `{P\202/ \312u\210*\202{ \306f\317=\203~ \320\321!\203~ \322\225\323\324\312!!d \n\\W?\205z \n\\b\210 \211\n\\{*\206\211 \320\325!\203\210 \322\225b\210\306m\204\220 \306u\210\306f\311=\203\310 \312u\210`\313\314\306w\210 `{\306f\315=\203\300 `T\316u\210\314\306w\210 `{P\202\246 \312u\210*\202\362 \306f\317=\203\365 \320\321!\203\365 \322\225\323\324\312!!d \n\\W?\205\361 \n\\b\210 \211\n\\{*\206\n\320\325!\203\377 \322\225b\210\306$\306f\326=\205\nm\204\n\306u\210 )\211\203\n \fB\202\306f\326=\205.\nm\204,\n\306u\210\f\237*\202>\n\330 \204=\n\331\332\333C\"\210\306m\204E\n\306u\210\306f\307=\203\204\f\306\211m\204W\n\306u\210\306f\326=\204p\f\306f\327=\203l\nm\204l\n\306u\210\306\306f\307=\205c\fm\204|\n\306u\210\310\306f\311=\203\265\n\312u\210`\313\314\306w\210 `{\306f\315=\203\255\n`T\316u\210\314\306w\210 `{P\202\223\n\312u\210*\202\337\n\306f\317=\203\342\n\320\321!\203\342\n\322\225\323\324\312!!d \n\\W?\205\336\n \n\\b\210 \211\n\\{*\206\355\n\320\325!\203\354\n\322\225b\210\306m\204\364\n\306u\210\306f\311=\203, \312u\210`\313\314\306w\210 `{\306f\315=\203$ `T\316u\210\314\306w\210 `{P\202\n \312u\210*\202V \306f\317=\203Y \320\321!\203Y \322\225\323\324\312!!d \n\\W?\205U \n\\b\210 \211\n\\{*\206d \320\325!\203c \322\225b\210\306m\204k \306u\210\306f\311=\203\243 \312u\210`\313\314\306w\210 `{\306f\315=\203\233 `T\316u\210\314\306w\210 `{P\202\201 \312u\210*\202\315 \306f\317=\203\320 \320\321!\203\320 \322\225\323\324\312!!d \n\\W?\205\314 \n\\b\210 \211\n\\{*\206\333 \320\325!\203\332 \322\225b\210\306m\204\342 \306u\210\306f\311=\203\f\312u\210`\313\314\306w\210 `{\306f\315=\203\f`T\316u\210\314\306w\210 `{P\202\370 \312u\210*\202D\f\306f\317=\203G\f\320\321!\203G\f\322\225\323\324\312!!d \n\\W?\205C\f \n\\b\210 \211\n\\{*\206R\f\320\325!\203Q\f\322\225b\210\306$\306f\326=\205c\fm\204b\f\306u\210 )\211\203p\f \fB\202W\n\306f\326=\205\200\fm\204~\f\306u\210\f\237*\202\220\f\330 \204\217\f\331\332\333C\"\210\306m\204\227\f\306u\210\306f\307=\203\326\306\211m\204\251\f\306u\210\306f\326=\204\302\306f\327=\203\276\fm\204\276\f\306u\210\306\306f\307=\205\265m\204\316\f\306u\210\310\306f\311=\203 \312u\210`\313\314\306w\210 `{\306f\315=\203\377\f`T\316u\210\314\306w\210 `{P\202\345\f\312u\210*\2021 \306f\317=\2034 \320\321!\2034 \322\225\323\324\312!!d \n\\W?\2050 \n\\b\210 \211\n\\{*\206? \320\325!\203> \322\225b\210\306m\204F \306u\210\306f\311=\203~ \312u\210`\313\314\306w\210 `{\306f\315=\203v `T\316u\210\314\306w\210 `{P\202\\ \312u\210*\202\250 \306f\317=\203\253 \320\321!\203\253 \322\225\323\324\312!!d \n\\W?\205\247 \n\\b\210 \211\n\\{*\206\266 \320\325!\203\265 \322\225b\210\306m\204\275 \306u\210\306f\311=\203\365 \312u\210`\313\314\306w\210 `{\306f\315=\203\355 `T\316u\210\314\306w\210 `{P\202\323 \312u\210*\202\306f\317=\203\"\320\321!\203\"\322\225\323\324\312!!d \n\\W?\205 \n\\b\210 \211\n\\{*\206-\320\325!\203,\322\225b\210\306m\2044\306u\210\306f\311=\203l\312u\210`\313\314\306w\210 `{\306f\315=\203d`T\316u\210\314\306w\210 `{P\202J\312u\210*\202\226\306f\317=\203\231\320\321!\203\231\322\225\323\324\312!!d \n\\W?\205\225 \n\\b\210 \211\n\\{*\206\244\320\325!\203\243\322\225b\210\306$\306f\326=\205\265m\204\264\306u\210 )\211\203\302 \fB\202\251\f\306f\326=\205\322m\204\320\306u\210\f\237*\202\342\330 \204\341\331\332\333C\"\210\306m\204\351\306u\210\306f\311=\203!\312u\210`\313\314\306w\210 `{\306f\315=\203`T\316u\210\314\306w\210 `{P\202\377\312u\210*\202K\306f\317=\203N\320\321!\203N\322\225\323\324\312!!d \n\\W?\205J \n\\b\210 \211\n\\{*\206Y\320\325!\203X\322\225b\210\306m\204`\306u\210\306f\311=\203\230\312u\210`\313\314\306w\210 `{\306f\315=\203\220`T\316u\210\314\306w\210 `{P\202v\312u\210*\202\302\306f\317=\203\305\320\321!\203\305\322\225\323\324\312!!d \n\\W?\205\301 \n\\b\210 \211\n\\{*\206\320\320\325!\203\317\322\225b\210\306m\204\327\306u\210&\n\207" [name p len pos addresses address nil 40 vector 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string "NIL" 41 32 imap-parse-nil signal cl-assertion-failed (imap-parse-nil)] 16]) (defalias 'imap-parse-string-list #[nil "\306f\307=\203\222\306\211m\204\306u\210\306f\310=\203J\311u\210`\312\313\306w\210 `{\306f\314=\203B`T\315u\210\313\306w\210\n `{P\202(\311u\210\n*\202t\306f\316=\205t\317\320!\205t\321\225\322\323\311!!d \f\\W?\205s \f\\b\210 \211\f\\{*\211\203\216 B\306f\310=\204m\204\306u\210\202 \237*\207\317\324!\205\237\321\225b\205\237\306\207" [str strlist name p len pos nil 40 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string "NIL"] 4]) (put 'imap-parse-string-list 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-body-extension #[nil "\305f\306=\203C\305m\204\305u\210\307 B\305f\310=\203+m\204#\305u\210\307 B\202\305f\311=\2048\312\313\314C\"\210m\204?\305u\210\237)\207\315\316!\203U\317\320\321!!\321\225b\210\206\305\305f\322=\203\215\323u\210`\324\325\305w\210\n`{\305f\326=\203\205`T\327u\210\325\305w\210 \n`{P\202k\323u\210 *\202\267\305f\330=\203\272\315\331!\203\272\321\225\317\320\323!!d\f \\W?\205\266\f \\b\210\f\211 \\{*\206\305\315\332!\203\304\321\225b\210\305\207" [b-e name p len pos nil 40 imap-parse-body-extension 32 41 signal cl-assertion-failed (eq (char-after) 41) looking-at "[0-9]+" string-to-number match-string 0 34 1 "" "^\"\\\\" 92 2 123 "{\\([0-9]+\\)} \n" "NIL"] 4]) (defalias 'imap-parse-body-ext #[nil "\306\306f\307=\203\237m\204\306u\210\306\306f\310=\203Am\204 \306u\210\306f\311=\203X\312u\210`\313\314\306w\210 `{\306f\315=\203P`T\316u\210\314\306w\210\n `{P\2026\312u\210\n*\202\202\306f\317=\205\202\320\321!\205\202\322\225\323\324\312!!d \f\\W?\205\201 \f\\b\210 \211\f\\{* Bm\204\214\306u\210\306f\310=\203'\306\211m\204\240\306u\210\306f\311=\203\330\312u\210`\313\314\306w\210 `{\306f\315=\203\320`T\316u\210\314\306w\210\n `{P\202\266\312u\210\n*\202\306f\317=\205\320\321!\205\322\225\323\324\312!!d \f\\W?\205 \f\\b\210 \211\f\\{*\211\203 B\306f\311=\204\240m\204\240\306u\210\202\240\237*\2024\320\325!\2054\322\225b\2054\306 Bm\204L\306u\210\202L\326 \204L\327\330\331C\"\210 \237B)\306f\307=\203\237m\204`\306u\210\306f\310=\203\306f\310=\203\306\211m\204{\306u\210\306f\311=\203\263\312u\210`\313\314\306w\210 `{\306f\315=\203\253`T\316u\210\314\306w\210\n `{P\202\221\312u\210\n*\202\335\306f\317=\205\335\320\321!\205\335\322\225\323\324\312!!d \f\\W?\205\334 \f\\b\210 \211\f\\{*\211\203\373B\306f\311=\204{m\204{\306u\210\202{\237*\202\320\325!\205\322\225b\205\306B\202\210\306f\311=\203M\312u\210`\313\314\306w\210 `{\306f\315=\203E`T\316u\210\314\306w\210\n `{P\202+\312u\210\n*\202w\306f\317=\203z\320\321!\203z\322\225\323\324\312!!d \f\\W?\205v \f\\b\210 \211\f\\{*\206\205\320\325!\203\204\322\225b\210\306B\306f\307=\203\237m\204\226\306u\210\332\333 \"\202\210)\207" [ext dsp name p len pos nil 32 40 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string "NIL" imap-parse-nil signal cl-assertion-failed (imap-parse-nil) append imap-parse-body-extension str strlist] 4]) (put 'imap-parse-body-ext 'byte-optimizer 'byte-compile-inline-expand) (defalias 'imap-parse-body #[nil "\306\306f\307=\205@ m\204\306u\210\306f\307=\203P\306\306f\307=\203D\310 \211\203D\306f\311=\203=`Tf\307=\203=m\204=\306u\210 B\202m\204K\306u\210\306f\312=\203\203\313u\210`\314\315\306w\210 `{\306f\316=\203{`T\317u\210\315\306w\210\n `{P\202a\313u\210\n*\202\255\306f\320=\205\255\321\322!\205\255\323\225\324\325\313!!d \f\\W?\205\254 \f\\b\210 \211\f\\{*B\306f\311=\2036m\204\276\306u\210\306f\307=\203s\306f\307=\203`\306\211$%m\204\331\306u\210\306f\312=\203\313u\210`\314\315\306w\210 `{\306f\316=\203 `T\317u\210\315\306w\210\n `{P\202\357\313u\210\n*\202;\306f\320=\205;\321\322!\205;\323\225\324\325\313!!d \f\\W?\205: \f\\b\210 \211\f\\{*\211$\203Y$%B%\306f\312=\204\331m\204\331\306u\210\202\331%\237*\202m\321\326!\205m\323\225b\205m\306B\202\201\321\326!\203}\323\225b\210\306B\327\306&\306f\311=\2030m\204\223\306u\210\306'\306f\307=\203\311m\204\244\306u\210\306f\312=\203\334\313u\210`\314\315\306w\210 `{\306f\316=\203\324`T\317u\210\315\306w\210\n `{P\202\272\313u\210\n*\202\306f\320=\205\321\322!\205\323\225\324\325\313!!d \f\\W?\205 \f\\b\210 \211\f\\{*'B'm\204\306u\210\306f\307=\203\255\306\211$%m\204&\306u\210\306f\312=\203^\313u\210`\314\315\306w\210 `{\306f\316=\203V`T\317u\210\315\306w\210\n `{P\202<\313u\210\n*\202\210\306f\320=\205\210\321\322!\205\210\323\225\324\325\313!!d \f\\W?\205\207 \f\\b\210 \211\f\\{*\211$\203\246$%B%\306f\312=\204&m\204&\306u\210\202&%\237*\202\272\321\326!\205\272\323\225b\205\272\306'B'm\204\324\306u\210\202\324\330 \204\324\331\332\333C\"\210'\237&B&)\306f\311=\2030m\204\353\306u\210\306f\307=\203\242\306f\307=\203\215\306\211$%m\204\306u\210\306f\312=\203>\313u\210`\314\315\306w\210 `{\306f\316=\2036`T\317u\210\315\306w\210\n `{P\202\313u\210\n*\202h\306f\320=\205h\321\322!\205h\323\225\324\325\313!!d \f\\W?\205g \f\\b\210 \211\f\\{*\211$\203\206$%B%\306f\312=\204m\204\306u\210\202%\237*\202\232\321\326!\205\232\323\225b\205\232\306&B&\202\306f\312=\203\332\313u\210`\314\315\306w\210 `{\306f\316=\203\322`T\317u\210\315\306w\210\n `{P\202\270\313u\210\n*\202\306f\320=\203\321\322!\203\323\225\324\325\313!!d \f\\W?\205 \f\\b\210 \211\f\\{*\206\321\326!\203\323\225b\210\306&B&\306f\311=\2030m\204%\306u\210\327\334 &\"&\202&)\"\306f\335=\204C\331\332\336C\"\210m\204J\306u\210\237)\202@ \306f\312=\203\210\313u\210`\314\315\306w\210 `{\306f\316=\203\200`T\317u\210\315\306w\210\n `{P\202f\313u\210\n*\202\262\306f\320=\205\262\321\322!\205\262\323\225\324\325\313!!d \f\\W?\205\261 \f\\b\210 \211\f\\{*Bm\204\274\306u\210\306f\312=\203\364\313u\210`\314\315\306w\210 `{\306f\316=\203\354`T\317u\210\315\306w\210\n `{P\202\322\313u\210\n*\202\306f\320=\205\321\322!\205\323\225\324\325\313!!d \f\\W?\205 \f\\b\210 \211\f\\{*Bm\204(\306u\210\306f\311=\2036m\2046\306u\210\306f\307=\203\353\306f\307=\203\330\306\211$%m\204Q\306u\210\306f\312=\203\211\313u\210`\314\315\306w\210 `{\306f\316=\203\201`T\317u\210\315\306w\210\n `{P\202g\313u\210\n*\202\263\306f\320=\205\263\321\322!\205\263\323\225\324\325\313!!d \f\\W?\205\262 \f\\b\210 \211\f\\{*\211$\203\321$%B%\306f\312=\204Qm\204Q\306u\210\202Q%\237*\202\345\321\326!\205\345\323\225b\205\345\306B\202\371\321\326!\203\365\323\225b\210\306Bm\204\306u\210\306f\312=\2038\313u\210`\314\315\306w\210 `{\306f\316=\2030`T\317u\210\315\306w\210\n `{P\202\313u\210\n*\202b\306f\320=\203e\321\322!\203e\323\225\324\325\313!!d \f\\W?\205a \f\\b\210 \211\f\\{*\206p\321\326!\203o\323\225b\210\306Bm\204z\306u\210\306f\312=\203\262\313u\210`\314\315\306w\210 `{\306f\316=\203\252`T\317u\210\315\306w\210\n `{P\202\220\313u\210\n*\202\334\306f\320=\203\337\321\322!\203\337\323\225\324\325\313!!d \f\\W?\205\333 \f\\b\210 \211\f\\{*\206\352\321\326!\203\351\323\225b\210\306Bm\204\364\306u\210\306f\312=\203,\313u\210`\314\315\306w\210 `{\306f\316=\203$`T\317u\210\315\306w\210\n `{P\202\n\313u\210\n*\202V\306f\320=\203Y\321\322!\203Y\323\225\324\325\313!!d \f\\W?\205U \f\\b\210 \211\f\\{*\206d\321\326!\203c\323\225b\210\337Bm\204n\306u\210\321\340!\205}\324\325\323!!\323\225b\210B\306f\311=\203\364m\204\216\306u\210\306(\306f\307=\203\323\341 Bm\204\244\306u\210\310 B\306f\335=\203\267\323B\202\363m\204\276\306u\210\321\340!\205\315\324\325\323!!\323\225b\210B\202\363\321\340!\205\342\324\325\323!!\323\225b\210\211(\203\360(B\202\363\342 \210)\306f\311=\203* m\204\306u\210\306f\312=\203:\313u\210`\314\315\306w\210 `{\306f\316=\2032`T\317u\210\315\306w\210\n `{P\202\313u\210\n*\202d\306f\320=\203g\321\322!\203g\323\225\324\325\313!!d \f\\W?\205c \f\\b\210 \211\f\\{*\206r\321\326!\203q\323\225b\210\306B\327\306&\306f\311=\203$ m\204\207\306u\210\306'\306f\307=\203\275 m\204\230\306u\210\306f\312=\203\320\313u\210`\314\315\306w\210 `{\306f\316=\203\310`T\317u\210\315\306w\210\n `{P\202\256\313u\210\n*\202\372\306f\320=\205\372\321\322!\205\372\323\225\324\325\313!!d \f\\W?\205\371 \f\\b\210 \211\f\\{*'B'm\204 \306u\210\306f\307=\203\241 \306\211$%m\204 \306u\210\306f\312=\203R \313u\210`\314\315\306w\210 `{\306f\316=\203J `T\317u\210\315\306w\210\n `{P\2020 \313u\210\n*\202| \306f\320=\205| \321\322!\205| \323\225\324\325\313!!d \f\\W?\205{ \f\\b\210 \211\f\\{*\211$\203\232 $%B%\306f\312=\204 m\204 \306u\210\202 %\237*\202\256 \321\326!\205\256 \323\225b\205\256 \306'B'm\204\310 \306u\210\202\310 \330 \204\310 \331\332\333C\"\210'\237&B&)\306f\311=\203$ m\204\337 \306u\210\306f\307=\203\226\n\306f\307=\203\201\n\306\211$%m\204\372 \306u\210\306f\312=\2032\n\313u\210`\314\315\306w\210 `{\306f\316=\203*\n`T\317u\210\315\306w\210\n `{P\202\n\313u\210\n*\202\\\n\306f\320=\205\\\n\321\322!\205\\\n\323\225\324\325\313!!d \f\\W?\205[\n \f\\b\210 \211\f\\{*\211$\203z\n$%B%\306f\312=\204\372 m\204\372 \306u\210\202\372 %\237*\202\216\n\321\326!\205\216\n\323\225b\205\216\n\306&B&\202 \306f\312=\203\316\n\313u\210`\314\315\306w\210 `{\306f\316=\203\306\n`T\317u\210\315\306w\210\n `{P\202\254\n\313u\210\n*\202\370\n\306f\320=\203\373\n\321\322!\203\373\n\323\225\324\325\313!!d \f\\W?\205\367\n \f\\b\210 \211\f\\{*\206 \321\326!\203 \323\225b\210\306&B&\306f\311=\203$ m\204 \306u\210\327\334 &\"&\202 &)\"\306f\335=\2047 \331\332\343C\"\210m\204> \306u\210\237)\207" [body subbody name p len pos nil 40 imap-parse-body 32 34 1 "" "^\"\\\\" 92 2 123 looking-at "{\\([0-9]+\\)} \n" 0 string-to-number match-string "NIL" append imap-parse-nil signal cl-assertion-failed (imap-parse-nil) imap-parse-body-extension 41 (eq (char-after) 41) "7BIT" "[0-9]+" imap-parse-envelope backward-char (eq (char-after) 41) str strlist ext dsp lines] 5]) (byte-code "\203\301\302!\210\303\304!!\210\305\306\307\"\210\310\311!\207" [imap-debug require trace buffer-disable-undo get-buffer-create mapcar #[(f) "\302 \"\207" [f imap-debug trace-function-background] 3] (imap-read-passwd imap-utf7-encode imap-utf7-decode imap-error-text imap-kerberos4s-p imap-kerberos4-open imap-ssl-p imap-ssl-open imap-network-p imap-network-open imap-interactive-login imap-kerberos4a-p imap-kerberos4-auth imap-cram-md5-p imap-cram-md5-auth imap-login-p imap-login-auth imap-anonymous-p imap-anonymous-auth imap-open-1 imap-open imap-opened imap-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-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)