;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require url-util url-parse nnimap mm-util] 2)
#@20 Default IMAP port.
(defconst url-imap-default-port 143 (#$ . 197))
#@28 

(fn HOST PORT USER PASS)
(defalias 'url-imap-open-host #[1028 "\302\303!\203	\303 \210

\203\304\202\305
\306\307D\310\311DE\"*\207" [imap-password imap-username fboundp nnheader-init-server-buffer login anonymous nnimap-open-server nnimap-server-port (nnimap-stream 'network) nnimap-authenticator] 13 (#$ . 270)])
#@12 

(fn URL)
(defalias 'url-imap #[257 "\302
!>\204\303\304\305D\"\210r\306\307!q\210\310 \210\302
!>\204'\303\311\312D\"\210\211\313H
\302
!>\204:\303\311\312D\"\210\211\314H\206j\302
!>\204O\303\311\312D\"\210\211\315H\205j\316\302!>\204e\303\311\312D\"\210
\315H\317\"\262
\302!>\204{\303\311\312D\"\210\320H\321\322
!\323=\203\216\211\315\324O\262
\325\302!>\204\242\303\311\312	D\"\210\326H\302!>\204\267\303\311\312\nD\"\210\327H$\210\330\331\302!>\204\320\303\311\312D\"\210\332H\"\204
\330\333\302!>\204\352\303\311\312D\"\210\332H\"\203
\334c\210\335\330\333\302!>\204
\303\311\312	D\"\210\332H\"Ap$\210)\266p)\207" [cl-struct-url-tags coding-system-for-read type-of signal wrong-type-error "Need a pre-parsed URL." generate-new-buffer " *url-imap*" mm-disable-multibyte wrong-type-argument url 4 5 1 url-scheme-get-property default-port 6 binary string-to-char 47 nil url-imap-open-host 2 3 assoc "TYPE" 8 "UID" "Content-type: message/rfc822\n\n" nnimap-request-article] 12 (#$ . 607)])