Current File : //usr/share/emacs/24.3/lisp/url/url-imap.elc

;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:21 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-imap.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\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 (#$ . 668))
(defalias 'url-imap-open-host #[(host port user pass) "\306\307!\203	\307 \210	\203\310\202\311\312
\313D\314\315\nDE\"+\207" [user pass authenticator imap-password imap-username host fboundp nnheader-init-server-buffer login anonymous nnimap-open-server nnimap-server-port (nnimap-stream 'network) nnimap-authenticator port] 6])
(defalias 'url-imap #[(url) "\306!\204
\307\310\311D\"\210r\312\313!q\210\314 \210\315H	>\204$\316\317\320\300#\210\321H\211\315H	>\2048\316\317\322\300#\210\323H\206f\315H	>\204L\316\317\324\300#\210\325H\205f\326\315H	>\204a\316\317\324\300#\210\325H\327\")\315H	>\204v\316\317\330\300#\210\331H\332*\333
!\334=\203\212
\325\335O\336\n\f\315H	>\204\233\316\317\337\300#\210\340H\315H	>\204\254\316\317\341\300#\210\342H$\210\343\344\315H	>\204\301\316\317\345\300#\210\346H\"\204\375\343\347\315H	>\204\330\316\317\345\300#\210\346H\"\203\375\350c\210\351\343\347\315H	>\204\363\316\317\345\300#\210\346H\"A
\np$\210,p)\207" [url cl-struct-url-tags host urlobj port mailbox vectorp signal wrong-type-error "Need a pre-parsed URL." generate-new-buffer " *url-imap*" mm-disable-multibyte 0 error "%s accessing a non-%s" url-host 4 url-portspec 5 url-type 1 url-scheme-get-property default-port url-filename 6 binary string-to-char 47 nil url-imap-open-host url-user 2 url-password 3 assoc "TYPE" url-attributes 8 "UID" "Content-type: message/rfc822\n\n" nnimap-request-article coding-system-for-read] 9])