Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
.dir-locals.el	105 B	-rw-r--r--
canlock.elc	5.71 KB	-rw-r--r--
deuglify.elc	7.85 KB	-rw-r--r--
gmm-utils.elc	5.79 KB	-rw-r--r--
gnus-agent.elc	119.17 KB	-rw-r--r--
gnus-art.elc	262.11 KB	-rw-r--r--
gnus-async.elc	11.71 KB	-rw-r--r--
gnus-bcklg.elc	2.85 KB	-rw-r--r--
gnus-bookmark.elc	25.33 KB	-rw-r--r--
gnus-cache.elc	24.08 KB	-rw-r--r--
gnus-cite.elc	26.28 KB	-rw-r--r--
gnus-cloud.elc	18.45 KB	-rw-r--r--
gnus-cus.elc	39.5 KB	-rw-r--r--
gnus-delay.elc	4.61 KB	-rw-r--r--
gnus-demon.elc	7.52 KB	-rw-r--r--
gnus-diary.elc	8.41 KB	-rw-r--r--
gnus-dired.elc	8.03 KB	-rw-r--r--
gnus-draft.elc	12.03 KB	-rw-r--r--
gnus-dup.elc	4.59 KB	-rw-r--r--
gnus-eform.elc	4.76 KB	-rw-r--r--
gnus-fun.elc	9.93 KB	-rw-r--r--
gnus-gravatar.elc	4.15 KB	-rw-r--r--
gnus-group.elc	154.92 KB	-rw-r--r--
gnus-html.elc	13.41 KB	-rw-r--r--
gnus-icalendar.elc	40.93 KB	-rw-r--r--
gnus-int.elc	58.83 KB	-rw-r--r--
gnus-kill.elc	19.24 KB	-rw-r--r--
gnus-logic.elc	5.15 KB	-rw-r--r--
gnus-mh.elc	2.96 KB	-rw-r--r--
gnus-ml.elc	6.08 KB	-rw-r--r--
gnus-mlspl.elc	6.48 KB	-rw-r--r--
gnus-msg.elc	84.49 KB	-rw-r--r--
gnus-notifications.elc	5.38 KB	-rw-r--r--
gnus-picon.elc	8.06 KB	-rw-r--r--
gnus-range.elc	11.97 KB	-rw-r--r--
gnus-registry.elc	34.53 KB	-rw-r--r--
gnus-rfc1843.elc	1.59 KB	-rw-r--r--
gnus-salt.elc	27.54 KB	-rw-r--r--
gnus-score.elc	74.27 KB	-rw-r--r--
gnus-sieve.elc	8.14 KB	-rw-r--r--
gnus-spec.elc	12.88 KB	-rw-r--r--
gnus-srvr.elc	50.09 KB	-rw-r--r--
gnus-start.elc	138.21 KB	-rw-r--r--
gnus-sum.elc	431.26 KB	-rw-r--r--
gnus-topic.elc	46.53 KB	-rw-r--r--
gnus-undo.elc	4.69 KB	-rw-r--r--
gnus-util.elc	49.29 KB	-rw-r--r--
gnus-uu.elc	55.9 KB	-rw-r--r--
gnus-vm.elc	2.42 KB	-rw-r--r--
gnus-win.elc	10.95 KB	-rw-r--r--
gnus.elc	158.84 KB	-rw-r--r--
gssapi.elc	2.27 KB	-rw-r--r--
legacy-gnus-agent.elc	6.35 KB	-rw-r--r--
mail-source.elc	28.21 KB	-rw-r--r--
message.elc	237.92 KB	-rw-r--r--
mm-archive.elc	2.95 KB	-rw-r--r--
mm-bodies.elc	5.84 KB	-rw-r--r--
mm-decode.elc	55.66 KB	-rw-r--r--
mm-encode.elc	6.13 KB	-rw-r--r--
mm-extern.elc	4.25 KB	-rw-r--r--
mm-partial.elc	3.05 KB	-rw-r--r--
mm-url.elc	9.75 KB	-rw-r--r--
mm-util.elc	24.33 KB	-rw-r--r--
mm-uu.elc	21.99 KB	-rw-r--r--
mm-view.elc	16.82 KB	-rw-r--r--
mml-sec.elc	35.2 KB	-rw-r--r--
mml-smime.elc	10.44 KB	-rw-r--r--
mml.elc	44.72 KB	-rw-r--r--
mml1991.elc	7.59 KB	-rw-r--r--
mml2015.elc	25.61 KB	-rw-r--r--
nnagent.elc	10.44 KB	-rw-r--r--
nnbabyl.elc	16.84 KB	-rw-r--r--
nndiary.elc	38.56 KB	-rw-r--r--
nndir.elc	2.67 KB	-rw-r--r--
nndoc.elc	30.1 KB	-rw-r--r--
nndraft.elc	10.55 KB	-rw-r--r--
nneething.elc	11.45 KB	-rw-r--r--
nnfolder.elc	32.39 KB	-rw-r--r--
nngateway.elc	2.88 KB	-rw-r--r--
nnheader.elc	34.72 KB	-rw-r--r--
nnimap.elc	73.06 KB	-rw-r--r--
nnir.elc	62.86 KB	-rw-r--r--
nnmail.elc	52.09 KB	-rw-r--r--
nnmaildir.elc	90.83 KB	-rw-r--r--
nnmairix.elc	72.33 KB	-rw-r--r--
nnmbox.elc	18.57 KB	-rw-r--r--
nnmh.elc	15.14 KB	-rw-r--r--
nnml.elc	33.63 KB	-rw-r--r--
nnnil.elc	1.63 KB	-rw-r--r--
nnoo.elc	8.63 KB	-rw-r--r--
nnregistry.elc	1.72 KB	-rw-r--r--
nnrss.elc	29.02 KB	-rw-r--r--
nnspool.elc	15.72 KB	-rw-r--r--
nntp.elc	111.69 KB	-rw-r--r--
nnvirtual.elc	18.31 KB	-rw-r--r--
nnweb.elc	16.67 KB	-rw-r--r--
score-mode.elc	4.93 KB	-rw-r--r--
smiley.elc	5.31 KB	-rw-r--r--
smime.elc	18.76 KB	-rw-r--r--
spam-report.elc	11.41 KB	-rw-r--r--
spam-stat.elc	19.39 KB	-rw-r--r--
spam-wash.elc	1.23 KB	-rw-r--r--
spam.elc	80.84 KB	-rw-r--r--

Code Editor : nnimap.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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 "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310!\210\302\311!\210\312\313\314\"\210\312\315\314\"\210\316\236\2039�\316\236A\317\320\321\"\240\210\202D�\316\317\320\321\"\321\211FB\316	\236\204P�\316\322D	B\321\207" [nnoo-definition-alist nnoo-state-alist require nnheader gnus-util gnus nnoo netrc utf7 nnmail autoload auth-source-forget+ "auth-source" auth-source-search nnimap mapcar list nil "*internal-non-initialized-backend*"] 4)
#@105 The address of the IMAP server.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-address nil (#$ . 889))
(nnoo-define 'nnimap-address nil)
#@128 Username to use for authentication to the IMAP server.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-user nil (#$ . 1073))
(nnoo-define 'nnimap-user nil)
#@186 The IMAP port used.
If nnimap-stream is `ssl', this will default to `imaps'.  If not,
it will default to `imap'.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-server-port nil (#$ . 1275))
(nnoo-define 'nnimap-server-port nil)
#@319 Whether to use IMAP namespaces.
If in Gnus your folder names in all start with (e.g.) `INBOX',
you probably want to set this to t.  The effects of this are
purely cosmetic, but changing this variable will affect the
names of your nnimap groups.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-use-namespaces nil (#$ . 1549))
(nnoo-define 'nnimap-use-namespaces nil)
#@296 How nnimap talks to the IMAP server.
The value should be either `undecided', `ssl' or `tls',
`network', `starttls', `plain', or `shell'.

If the value is `undecided', nnimap tries `ssl' first, then falls
back on `network'.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-stream 'undecided (#$ . 1962))
(nnoo-define 'nnimap-stream nil)
#@264 What command to execute to connect to an IMAP server.
This will only be used if the connection type is `shell'.  See
the `open-network-stream' documentation for an explanation of
the format.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-shell-program (byte-code "\301\300!\203�<\203�@\207\207\302\207" [imap-shell-program boundp "ssh %s imapd"] 2) (#$ . 2343))
(nnoo-define 'nnimap-shell-program nil)
#@226 The mail box where incoming mail arrives and should be split out of.
This can be a string or a list of strings
For example, "INBOX" or ("INBOX" "SENT").

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-inbox nil (#$ . 2797))
(nnoo-define 'nnimap-inbox nil)
#@140 How mail is split.
Uses the same syntax as `nnmail-split-methods'.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-split-methods nil (#$ . 3099))
(nnoo-define 'nnimap-split-methods nil)
#@119 Uses the same syntax as `nnmail-split-fancy'.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-split-fancy nil (#$ . 3331))
(nnoo-define 'nnimap-split-fancy nil)
#@148 Articles with the flags in the list will not be considered when splitting.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-unsplittable-articles '(%Deleted %Seen) (#$ . 3538))
(byte-code "\300\301\302\"\210\303\304\305\306#\207" [nnoo-define nnimap-unsplittable-articles nil make-obsolete-variable nnimap-split-rule "see `nnimap-split-methods'." "Emacs 24.1"] 4)
#@213 How nnimap authenticate itself to the server.
Possible choices are nil (use default methods), `anonymous',
`login', `plain' and `cram-md5'.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-authenticator nil (#$ . 3947))
(nnoo-define 'nnimap-authenticator nil)
#@815 When to expunge deleted messages.
If `never', deleted articles are marked with the IMAP \Delete
flag but not automatically expunged. If `immediately', deleted
articles are immediately expunged (this requires the server to
support the UID EXPUNGE command). If `on-exit', deleted articles
are flagged, and all flagged articles are expunged when the group
is closed.

For backwards compatibility, this variable may also be set to t
or nil. If the server supports UID EXPUNGE, both t and nil are
equivalent to `immediately'. If the server does not support UID
EXPUNGE nil is equivalent to `never', while t will immediately
expunge ALL articles that are currently flagged as deleted
(i.e., potentially not only the article that was just deleted).

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-expunge 'on-exit (#$ . 4252))
(nnoo-define 'nnimap-expunge nil)
#@210 If non-nil, try to use streaming commands with IMAP servers.
Switching this off will make nnimap slower, but it helps with
some servers.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-streaming t (#$ . 5152))
(nnoo-define 'nnimap-streaming nil)
(defvar nnimap-connection-alist nil)
(nnoo-define 'nnimap-connection-alist nil)
(defvar nnimap-current-infos nil)
(nnoo-define 'nnimap-current-infos nil)
(defvar nnimap-namespace nil)
(nnoo-define 'nnimap-namespace nil)
#@315 If non-nil, Gnus will fetch partial articles.
If t, Gnus will fetch only the first part.  If a string, it
will fetch all parts that have types that match that string.  A
likely value would be "text/" to automatically fetch all
textual parts.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-fetch-partial-articles nil (#$ . 5664))
(byte-code "\300\301\302\"\210\303\304\302\305\306\307%\210\310\311\302\312\313\314\315\316\306\304&	\207" [nnoo-define nnimap-fetch-partial-articles nil custom-declare-group nnimap "IMAP for Gnus." :group gnus custom-declare-variable nnimap-request-articles-find-limit "Limit the number of articles to look for after moving an article." :type (choice (const nil) integer) :version "24.4"] 10)
(defvar nnimap-process nil)
(defvar nnimap-status-string "")
#@72 Internal variable with default value for `nnimap-split-download-body'.
(defvar nnimap-split-download-body-default nil (#$ . 6494))
(defvar nnimap-keepalive-timer nil)
(defvar nnimap-process-buffers nil)
#@41 compiler-macro for inlining `nnimap-p'.
(defalias 'nnimap-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-p (and (memq (type-of cl-x) cl-struct-nnimap-tags) t)) nil] 7 (#$ . 6703)])
(put 'nnimap-p 'compiler-macro 'nnimap-p--cmacro)
(defalias 'nnimap-p #[(cl-x) "\302!	>\205	�\303\207" [cl-x cl-struct-nnimap-tags type-of t] 2])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put nnimap-p side-effect-free error-free put nnimap cl-deftype-satisfies] 5)
#@45 compiler-macro for inlining `nnimap-group'.
(defalias 'nnimap-group--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-group (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 1))) nil] 7 (#$ . 7246)])
(put 'nnimap-group 'compiler-macro 'nnimap-group--cmacro)
#@46 Access slot "group" of `nnimap' struct CL-X.
(defalias 'nnimap-group #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 1] 4 (#$ . 7614)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-group side-effect-free t] 4)
#@47 compiler-macro for inlining `nnimap-process'.
(defalias 'nnimap-process--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-process (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 2))) nil] 7 (#$ . 7923)])
(put 'nnimap-process 'compiler-macro 'nnimap-process--cmacro)
#@48 Access slot "process" of `nnimap' struct CL-X.
(defalias 'nnimap-process #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 2] 4 (#$ . 8301)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-process side-effect-free t] 4)
#@48 compiler-macro for inlining `nnimap-commands'.
(defalias 'nnimap-commands--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-commands (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 3))) nil] 7 (#$ . 8616)])
(put 'nnimap-commands 'compiler-macro 'nnimap-commands--cmacro)
#@49 Access slot "commands" of `nnimap' struct CL-X.
(defalias 'nnimap-commands #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 3] 4 (#$ . 8999)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-commands side-effect-free t] 4)
#@52 compiler-macro for inlining `nnimap-capabilities'.
(defalias 'nnimap-capabilities--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-capabilities (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 4))) nil] 7 (#$ . 9317)])
(put 'nnimap-capabilities 'compiler-macro 'nnimap-capabilities--cmacro)
#@53 Access slot "capabilities" of `nnimap' struct CL-X.
(defalias 'nnimap-capabilities #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 4] 4 (#$ . 9720)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-capabilities side-effect-free t] 4)
#@53 compiler-macro for inlining `nnimap-select-result'.
(defalias 'nnimap-select-result--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-select-result (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 5))) nil] 7 (#$ . 10050)])
(put 'nnimap-select-result 'compiler-macro 'nnimap-select-result--cmacro)
#@54 Access slot "select-result" of `nnimap' struct CL-X.
(defalias 'nnimap-select-result #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 5] 4 (#$ . 10459)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-select-result side-effect-free t] 4)
#@48 compiler-macro for inlining `nnimap-newlinep'.
(defalias 'nnimap-newlinep--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-newlinep (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 6))) nil] 7 (#$ . 10793)])
(put 'nnimap-newlinep 'compiler-macro 'nnimap-newlinep--cmacro)
#@49 Access slot "newlinep" of `nnimap' struct CL-X.
(defalias 'nnimap-newlinep #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 6] 4 (#$ . 11177)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-newlinep side-effect-free t] 4)
#@46 compiler-macro for inlining `nnimap-server'.
(defalias 'nnimap-server--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-server (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 7))) nil] 7 (#$ . 11496)])
(put 'nnimap-server 'compiler-macro 'nnimap-server--cmacro)
#@47 Access slot "server" of `nnimap' struct CL-X.
(defalias 'nnimap-server #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 7] 4 (#$ . 11870)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-server side-effect-free t] 4)
#@57 compiler-macro for inlining `nnimap-last-command-time'.
(defalias 'nnimap-last-command-time--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-last-command-time (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 8))) nil] 7 (#$ . 12183)])
(put 'nnimap-last-command-time 'compiler-macro 'nnimap-last-command-time--cmacro)
#@58 Access slot "last-command-time" of `nnimap' struct CL-X.
(defalias 'nnimap-last-command-time #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 8] 4 (#$ . 12612)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-last-command-time side-effect-free t] 4)
#@48 compiler-macro for inlining `nnimap-greeting'.
(defalias 'nnimap-greeting--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-greeting (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 9))) nil] 7 (#$ . 12958)])
(put 'nnimap-greeting 'compiler-macro 'nnimap-greeting--cmacro)
#@49 Access slot "greeting" of `nnimap' struct CL-X.
(defalias 'nnimap-greeting #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 9] 4 (#$ . 13342)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-greeting side-effect-free t] 4)
#@48 compiler-macro for inlining `nnimap-examined'.
(defalias 'nnimap-examined--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-examined (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 10))) nil] 7 (#$ . 13661)])
(put 'nnimap-examined 'compiler-macro 'nnimap-examined--cmacro)
#@49 Access slot "examined" of `nnimap' struct CL-X.
(defalias 'nnimap-examined #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 10] 4 (#$ . 14046)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-examined side-effect-free t] 4)
#@51 compiler-macro for inlining `nnimap-stream-type'.
(defalias 'nnimap-stream-type--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-stream-type (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 11))) nil] 7 (#$ . 14366)])
(put 'nnimap-stream-type 'compiler-macro 'nnimap-stream-type--cmacro)
#@52 Access slot "stream-type" of `nnimap' struct CL-X.
(defalias 'nnimap-stream-type #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 11] 4 (#$ . 14766)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-stream-type side-effect-free t] 4)
#@54 compiler-macro for inlining `nnimap-initial-resync'.
(defalias 'nnimap-initial-resync--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-initial-resync (progn (or (nnimap-p cl-x) (signal 'wrong-type-argument (list 'nnimap cl-x))) (aref cl-x 12))) nil] 7 (#$ . 15095)])
(put 'nnimap-initial-resync 'compiler-macro 'nnimap-initial-resync--cmacro)
#@55 Access slot "initial-resync" of `nnimap' struct CL-X.
(defalias 'nnimap-initial-resync #[(cl-x) "\302!	>\204�\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 12] 4 (#$ . 15510)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put nnimap-initial-resync side-effect-free t defalias copy-nnimap copy-sequence] 4)
#@203 compiler-macro for inlining `make-nnimap'.

(fn CL-WHOLE &cl-quote &key GROUP PROCESS COMMANDS CAPABILITIES SELECT-RESULT NEWLINEP SERVER LAST-COMMAND-TIME GREETING EXAMINED STREAM-TYPE INITIAL-RESYNC)
(defalias 'make-nnimap--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\306\317\"A@\306\320\"A@\306\321\"A@ \306\322\"A@!\"\"\203\216�\"@\323>\203u�\"AA\211\"\202`�\324>A@\203\204�\325\211\"\202`�\326\327\"@\"\210\202^�)\330\331\332\325#\325	\n\f
 !&.\f\207" [#1# group process commands capabilities select-result plist-member :group :process :commands :capabilities :select-result :newlinep :server :last-command-time :greeting :examined :stream-type :initial-resync (:group :process :commands :capabilities :select-result :newlinep :server :last-command-time :greeting :examined :stream-type :initial-resync :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:group :process :commands :capabilities :select-result :newlinep :server :last-command-time :greeting :examined :stream-type :initial-resync)" cl--defsubst-expand (group process commands capabilities select-result newlinep server last-command-time greeting examined stream-type initial-resync) (cl-block make-nnimap (record 'nnimap group process commands capabilities select-result newlinep server last-command-time greeting examined stream-type initial-resync)) newlinep server last-command-time greeting examined stream-type initial-resync #2=#:--cl-keys-- cl-whole] 19 (#$ . 15894)])
(put 'make-nnimap 'compiler-macro 'make-nnimap--cmacro)
#@183 Constructor for objects of type `nnimap'.

(fn &key GROUP PROCESS COMMANDS CAPABILITIES SELECT-RESULT NEWLINEP SERVER LAST-COMMAND-TIME GREETING EXAMINED STREAM-TYPE INITIAL-RESYNC)
(defalias 'make-nnimap #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\306\317\"A@\306\320\"A@\306\321\"A@\306\322\"A@ !!\203\216�!@\323>\203u�!AA\211!\202`�\324>A@\203\204�\325\211!\202`�\326\327!@\"\210\202^�)\330\331	\n\f
 &
.\f\207" [#1# group process commands capabilities select-result plist-member :group :process :commands :capabilities :select-result :newlinep :server :last-command-time :greeting :examined :stream-type :initial-resync (:group :process :commands :capabilities :select-result :newlinep :server :last-command-time :greeting :examined :stream-type :initial-resync :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:group :process :commands :capabilities :select-result :newlinep :server :last-command-time :greeting :examined :stream-type :initial-resync)" record nnimap newlinep server last-command-time greeting examined stream-type initial-resync #2=#:--cl-keys--] 15 (#$ . 17582)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put make-nnimap side-effect-free t cl-struct-define nnimap nil cl-structure-object record ((cl-tag-slot) (group) (process) (commands) (capabilities) (select-result) (newlinep) (server) (last-command-time) (greeting) (examined) (stream-type) (initial-resync)) cl-struct-nnimap-tags] 11)
(defvar nnimap-object nil)
(defvar nnimap-mark-alist '((read "\\Seen" %Seen) (tick "\\Flagged" %Flagged) (reply "\\Answered" %Answered) (expire "gnus-expire") (dormant "gnus-dormant") (score "gnus-score") (save "gnus-save") (download "gnus-download") (forward "gnus-forward")))
(defvar nnimap-quirks '(("QRESYNC" "Zimbra" "QRESYNC ") ("MOVE" "Dovecot" nil)))
(defvar nnimap-inhibit-logging nil)
#@47 Convert Gnus group name to IMAP mailbox name.
(defalias 'nnimap-group-to-imap #[(group) "\205	�\303\304\305#\306	\203�\n	\230\203�\n\202*�\307\310\n\"\203'�\303\n\311\"\202*�\nP\312\")\207" [nnimap-namespace inbox group substring 0 -1 utf7-encode string-prefix-p "#" 1 t] 4 (#$ . 19608)])
(defalias 'nnimap-buffer #[nil "\301!\207" [nntp-server-buffer nnimap-find-process-buffer] 2])
(defalias 'nnimap-header-parameters #[nil "\302\303B\304B\305\306!\203�\307B\310B\311\312 \203\"�\313\202#�\314\315\316	\"\"B\311\317\237\")\207" [params nnmail-extra-headers nil "UID" "RFC822.SIZE" nnimap-capability "X-GM-EXT-1" "X-GM-LABELS" "BODYSTRUCTURE" format nnimap-ver4-p "BODY.PEEK[HEADER.FIELDS %s]" "RFC822.HEADER.LINES %s" append (Subject From Date Message-Id References In-Reply-To Xref) "%s"] 5])
(defalias 'nnimap-retrieve-headers #[(articles &optional group server _fetch-old) "rq\210\304 \210\305	\n\"\203L�r\306 q\210\304 \210\307\310\311\312\313!!\314 #\315\"\210\316\317p!!\2040�\320\321!\210\322 \210db\210\323\324\325\315#\203E�\326\327!\210\2026�)\330\331p!!\210)\332\207" [nntp-server-buffer group server articles erase-buffer nnimap-change-group nnimap-buffer nnimap-wait-for-response nnimap-send-command "UID FETCH %s %s" nnimap-article-ranges gnus-compress-sequence nnimap-header-parameters t process-live-p get-buffer-process error "Server closed connection" nnimap-transform-headers search-backward "
\n" nil delete-char 1 insert-buffer-substring nnimap-find-process-buffer headers] 6])
(nnoo-register-function 'nnimap-retrieve-headers)
#@58 Transform server's FETCH response into parsable headers.
(defalias 'nnimap-transform-headers #[nil "eb\210\306\211\211\211\211\211\3072|m?\205{\310\311!\2041�`\312y\210`|\210m\203�\313\307\306\"\210\202�\314\225b\210\310\315!\204U�\316\317\212\316\320\306\321#\206O�\316\311\306\321#\206O�d)\321#\203{�\322\323\312!!\314\224\324\\`|\210``\n\\{``\n\\|\210\325\326\327\330\331	#\"c\210\2025�\332 \210\316\333\334 \321#\205\212�\323\312!\211
\235\204\243�\212\306y\210\335\3210\310!)\262)\204\255�\336 \334 T|\210\202�\306\332 \210\316\337\334 \321#\205\276�\323\312!\332 \210\340\341\334 \321#\203\331�\3421\326�\343p!0\202\330�\210\306\332 \210\340\344\334 \321#\2030\3451\360�\343p!0\202\362�\210\306\2111:\203	1@:\203	1@\2111\202\365�1@;\203*1@\226\346\232\203*1A@\226\347\232\203*\35018\202.\35118)\336 \334 |\210\325\352\f\"c\210\312y\210\n\203I\325\353\n\"c\210\203S\325\354\"c\210\203]\325\355\"c\210\316\356\306\321#\204hdb\210\336 \334 |\210\357c\210\312y\210\f
B\202�0.\207" [labels string size lines article seen-articles nil --cl-block-nil-- looking-at "\\* [0-9]+ FETCH" 1 throw 0 "[ (]{\$[0-9]+\$}
?\n" re-search-forward "[^]][ (]{\$[0-9]+\$}
?\n" "] {[0-9]+}
?\n" t string-to-number match-string 2 format "%S" subst-char-in-string 10 32 beginning-of-line "UID \$[0-9]+\$" line-end-position "^[!-9;-~]+:[[:space:]]?" line-beginning-position "RFC822.SIZE \$[0-9]+\$" search-forward "X-GM-LABELS" (error) read "BODYSTRUCTURE" (error) "MESSAGE" "RFC822" 9 7 "211 %s Article retrieved." "Chars: %s\n" "Lines: %s\n" "X-GM-LABELS: %s\n" "^
$\\|^)
?$" "." inhibit-changing-match-data structure] 7 (#$ . 21187)])
(defalias 'nnimap-unfold-quoted-lines #[nil "\302\211\303\304\302\305#\205-�\306\307\310!!\311\224T`|\210``	\\{``	\\|\210\312\313\"c\210\202�*\207" [string size nil re-search-forward " {\$[0-9]+\$}
?\n" t string-to-number match-string 1 0 format "%S"] 4])
(defalias 'nnimap-get-length #[nil "\300\301\302 \303#\205�\304\305\306!!\207" [re-search-forward "{\$[0-9]+\$}" line-end-position t string-to-number match-string 1] 4])
(defalias 'nnimap-article-ranges #[(ranges) "\304	\247\203
�\305	!\202K�	A\247\203�\306\307	@	A#\202K�	\304\211\203D�@\211:\2037�\306\307\n@\nA#\202:�\305\n!BA\211\204%�*\310\311\237\312#)\207" [result ranges elem --dolist-tail-- nil number-to-string format "%d:%d" mapconcat identity ","] 5])
(defalias 'nnimap-open-server #[(server &optional defs no-reconnect) "\304!\203�\305\207\306	\236\204�\307	\306DC\"\310\311	#\210\n\203$�\312!\207\312!\206-�\313!\207" [server defs no-reconnect nntp-server-buffer nnimap-server-opened t nnimap-address append nnoo-change-server nnimap nnimap-find-connection nnimap-open-connection] 4])
(nnoo-register-function 'nnimap-open-server)
(defalias 'nnimap-make-process-buffer #[(buffer) "r\306\307\310	\n$!q\210\311 \210\312 \210\313 \210\314\303!\210\315\314\304!\210\316\317\320\321!\322\323$\npD
BpBp)\207" [nnimap-address nnimap-server-port buffer after-change-functions nnimap-object nnimap-connection-alist generate-new-buffer format " *nnimap %s %s %s*" mm-disable-multibyte buffer-disable-undo gnus-add-buffer make-local-variable nil make-nnimap :server nnoo-current-server nnimap :initial-resync 0 nnimap-process-buffers] 6])
(defalias 'nnimap-credentials #[(address ports user) "\306\307\310\311\312	\313\n\314\315\316\317\320&\f@\211\2052�\321\f\314\"\321\f\322\"\323
!\203+�
 \202,�
)\321\f\324\"E*\207" [auth-source-creation-prompts address ports user found secret ((user . "IMAP user at %h: ") (secret . "IMAP password for %u@%h: ")) auth-source-search :max 1 :host :port :user :require (:user :secret) :create t plist-get :secret functionp :save-function] 14])
(defalias 'nnimap-keepalive #[nil "\306 	\307\211\205e�@\310\n!\203]�r\nq\210\f\203\\�\311\f!
>\204+�\312\313\314\fD\"\210\f\315H\203\\�\316\317\320\311\f!
>\204D�\312\313\314\fD\"\210\f\315H\"\"\203\\�\3211W�\322\323!0\202[�\210\202\\�\210)A\211\204�\307+\207" [now nnimap-process-buffers buffer --dolist-tail-- nnimap-object cl-struct-nnimap-tags current-time nil buffer-live-p type-of signal wrong-type-argument nnimap 8 time-less-p 300 time-subtract (error) nnimap-send-command "NOOP"] 9])
(defalias 'nnimap-open-connection #[(buffer) "\203\f�	\306=\203\f�\307	\306=\2039�\310\311\211\n:\2034�\n@\211\312
!)\211\313=\2034�\nA\211\202�\f+\202<�\312
!\211\313=?\205E�\f)\207" [nnimap-server-port nnimap-stream #1=#:--cl-var-- type stream buffer undecided ssl (ssl network) nil nnimap-open-connection-1 no-connect] 3])
(defalias 'nnimap-map-port #[(port) "\302=\203�\303 @\304X\203�	\305\232\203�\306\207	\207" [system-type port windows-nt x-server-version 5 "imaps" "993"] 2])
(defalias 'nnimap-open-connection-1 #[(buffer) "\204\n�\306\307\211\310#r\311	!q\210\312\211\f\313\267\2028�\314\315\316
#\210\317\202<�\314\315\320
#\210\321\202<�\314\315\322
#\210\323\202<�\324\325\f\"@\326\211ABC\203P�C@B@\327\330p
\331@@!\332\f\333\334\335\334\336D\337\340\341\334\342\343\344\345\346\347&\211E@FEAG\350G\351\"H\350G\352\"I\350G\332\"J\353\354!KF\203\244�\355F!\356>\204\244�\326F\357F!\360=\203\264�\361F\362\334#\210\363L!M>\204\306�\364\365\354LD\"\210L\211N\366FI\210)\363L!M>\204\343�\364\365\354LD\"\210L\211O\367JI\210)F\204\370\354\371
@@\f%\210\372\202\377\373F\326\"\210\374H\326\334P\375#)\266\203\204\"\370\354\376H#\202\377\363L!M>\2044\364\365\354LD\"\210L\211Q\377HI\210)\363L!M>\204Q\364\365\354LD\"\210L\211R\201]�\201^�\201_�\201`�I!\"I\210)\201a�H\326\334P\375#)\266\203\204\312S\201b�=\203\221\201c�\201d� D\202\241\201e�\201f�K
D!@T#\211B\204\255\326L\202\312\334U\201g�B@BA@\"A)A@\203f\201h�\366B8!\203\325\366B8 \210\201i�\201j�!AA\326V\211W\203&W@\211V@\226\201j�\230\203\363L!M>\204\364\365\354LD\"\210L\211X\201]�\201^�\201_�VA\"I\210)WA\211W\204\347*Y\203\312\201k�\201l�!\203\312\201m� \210\201n�\201o�\201l�!!\210\201p� V\375\201q�V\"\203b\201r�\201s�V\"Z)\202\312\353\354!
D\326[\211W\203\253W@[@\326\\\211W\203\241W@\\\201t�\201u�[\201v�\\$\210WA\211W\204\204*WA\211W\204t*\201w�\363L!M>\204\301\364\365\354LD\"\210L\366H!\210\326LL\205\377\201k�\201x�!\203\341\201i�\201y�!\210\314\315\201z�
#\210\363L!M>\204\373\364\365\354LD\"\210L\366H.
\207" [nnimap-keepalive-timer buffer coding-system-for-read coding-system-for-write nnimap-stream nnimap-address run-at-time 900 nnimap-keepalive nnimap-make-process-buffer binary #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (network 26 plain 26 starttls 26 shell 36 ssl 46 tls 46)) nnheader-message 7 "Opening connection to %s..." ("imap" "143") "Opening connection to %s via shell..." ("imap") "Opening connection to %s via tls..." ("imaps" "imap" "993" "143") error "Unknown stream type: %s" nil open-network-stream "*nnimap*" nnimap-map-port :type :warn-unless-encrypted t :return-list :shell-command :capability-command "1 CAPABILITY
\n" :always-query-capabilities :end-of-command "
\n" :success " OK " :starttls-function #[(capabilities) "\302\303\304\305#)\266\203\205�\306\207" [capabilities inhibit-changing-match-data "STARTTLS" nil t string-match "1 STARTTLS
\n"] 7] plist-get :greeting :capabilities nnoo-current-server nnimap process-status (open run) process-type network set-network-process-option :keepalive type-of signal wrong-type-argument 2 11 nnheader-report "Unable to contact %s:%s via %s" no-connect set-process-query-on-exit-flag "[*.] \$OK\\|PREAUTH\$" string-match "%s" 9 ports login-result credentials nnimap-server-port nnimap-shell-program stream-list stream props greeting capabilities stream-type server nnimap-object cl-struct-nnimap-tags #1=#:v #2=#:v inhibit-changing-match-data #3=#:v #4=#:v nnimap-authenticator nnimap-user nnimap-inhibit-logging response --dolist-tail-- #5=#:v nnimap-use-namespaces nnimap-namespace host port 4 mapcar upcase split-string "[*.] PREAUTH" anonymous "anonymous" message-make-address nnimap-credentials gnus-delete-duplicates nnimap-login functionp nnimap-command "CAPABILITY" nnimap-capability "NAMESPACE" erase-buffer nnimap-wait-for-response nnimap-send-command nnimap-last-response-string "^\\*\\W+NAMESPACE\\W+((\"\$[^\"\n]+\$\"\\W+\"\$.\$\"))\\W+" match-string 1 auth-source-forget+ :host :port delete-process "QRESYNC" "ENABLE QRESYNC" "Opening connection to %s...done"] 24])
(autoload 'rfc2104-hash "rfc2104")
(defalias 'nnimap-login #[(user password) "\306\307!\2043�\310!	>\204�\311\312\313D\"\210\314H\315=\2033�\n\203-�\n\316=\204-�\n\317=\2033�\320\321\f#\207\306\322!\203l�\n\203C�\n\323=\203l�\324 \210\325\326!\327\330!+\331\332p!\333\334\335\336\337\340\f\341
!%Q\342\"\343P\"\210\344+!*\207\306\307!\204\210�\n\203\202�\n\316=\204\202�\n\317=\203\210�\320\321\f#\207\306\345!\205\247�\n\203\230�\n\346=\205\247�\320\347\333\350\351\352!\352\f!#\342\"\"\207" [nnimap-object cl-struct-nnimap-tags nnimap-authenticator user password challenge nnimap-capability "LOGINDISABLED" type-of signal wrong-type-argument nnimap 11 tls anonymous login nnimap-command "LOGIN %S %S" "AUTH=CRAM-MD5" cram-md5 erase-buffer nnimap-send-command "AUTHENTICATE CRAM-MD5" nnimap-wait-for-line "^\\+\$.*\$\n" process-send-string get-buffer-process base64-encode-string " " rfc2104-hash md5 64 16 base64-decode-string t "
\n" nnimap-wait-for-response "AUTH=PLAIN" plain "AUTHENTICATE PLAIN %s" format "�%s�%s" nnimap-quote-specials sequence] 12])
(defalias 'nnimap-quote-specials #[(string) "\302\303!rq\210\304\216	c\210eb\210\305\306\307\310#\203$�\311u\210\312c\210\313u\210\202�\314 +\207" [#1=#:temp-buffer string generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] re-search-forward "[\\\"]" nil t -1 "\\" 1 buffer-string] 4])
(defalias 'nnimap-find-parameter #[(parameter elems) "\305	\305\211\203=�@\211@\f\232\203�\nA\2026�\n@\306\232\2036�\nA@:\2036�\nA@@\f\232\2036�\nA@AA\211\204\n�*)\207" [result elems elem --dolist-tail-- parameter nil "OK"] 3])
(defalias 'nnimap-close-server #[(&optional server defs) "\302\303	#\205!�\3041�\305\306\307 !!0\202�\210\202�\210\310\303\"\210\311\207" [server defs nnoo-change-server nnimap (error) delete-process get-buffer-process nnimap-buffer nnoo-close-server t] 4])
(nnoo-register-function 'nnimap-close-server)
(defalias 'nnimap-request-close #[nil "\300\207" [t] 1])
(nnoo-register-function 'nnimap-request-close)
(defalias 'nnimap-server-opened #[(&optional server) "\305\306	!\n\203�\307\310\n#\202�\232*\2055�\2055�\211\205.�\311\312\f!\211!\205.�\f)\2055�\313!\207" [server backend nnoo-parent-backend nntp-server-buffer buffer nnimap nnoo-current-server format "%s+%s" buffer-live-p get-buffer nnimap-find-connection] 6])
(nnoo-register-function 'nnimap-server-opened)
(defalias 'nnimap-status-message #[(&optional _server) "\207" [nnimap-status-string] 1])
(nnoo-register-function 'nnimap-status-message)
(defalias 'nnimap-request-article #[(article &optional group server to-buffer) "rq\210\306	\n\"\307\211;\203�\310	\n#
\205\234�\205\234�\311 \210r\312 q\210\311 \210\203i�\313\314\"\210eb\210\315\316\307\317#\203i�\3201b�`\321\322!\210\323`\"\210b\210\324p!)0\202d�\210\307\325!\f\203v�\326\f#\202z�\327!\205\233�pr\206\207�q\210rq\210\330 )c\210\331 \210*	B),\207" [nntp-server-buffer group server structure parts result nnimap-change-group nil nnimap-find-article-by-message-id erase-buffer nnimap-buffer nnimap-command "UID FETCH %d (BODYSTRUCTURE)" re-search-forward "FETCH.*BODYSTRUCTURE" t (error) forward-sexp 1 downcase-region read nnimap-find-wanted-parts nnimap-get-partial-article nnimap-get-whole-article buffer-string nnheader-ms-strip-cr article nnimap-fetch-partial-articles start buffer to-buffer] 4])
(nnoo-register-function 'nnimap-request-article)
(defalias 'nnimap-request-head #[(article &optional group server to-buffer) "\306	\"\205=�r\307 q\210\n;\203�\310	\n#\n\205<�\311\n\312\313\314 \"\"\210pr\f\206,�
q\210\315 \210\316!\210\317 \210\n*B)\207" [group server article buffer to-buffer nntp-server-buffer nnimap-change-group nnimap-buffer nnimap-find-article-by-message-id nnimap-get-whole-article format "UID FETCH %%d %s" nnimap-header-parameters erase-buffer insert-buffer-substring nnheader-ms-strip-cr] 5])
(nnoo-register-function 'nnimap-request-head)
(defalias 'nnimap-request-articles #[(articles &optional group server) "rq\210\306	\n\"\211\205A�\307 \210r\310 q\210\307 \210\311\312 \203\"�\313\202#�\314\315\316\f!!\"\205@�prq\210r
q\210\317 )c\210\320 \210*\321)*\207" [nntp-server-buffer group server result articles buffer nnimap-change-group erase-buffer nnimap-buffer nnimap-command nnimap-ver4-p "UID FETCH %s BODY.PEEK[]" "UID FETCH %s RFC822.PEEK" nnimap-article-ranges gnus-compress-sequence buffer-string nnheader-ms-strip-cr t] 6])
(nnoo-register-function 'nnimap-request-articles)
(defalias 'nnimap-get-whole-article #[(article &optional command) "\304\206�\305 \203�\306\202�\307	\"eb\210\310\311\312\313#\204�\312\n\205D�\314 \210o\204.�e`|\210\315 \316 \317y\210`|\210`\\b\210`d|\210)\313)\207" [command article result bytes nnimap-command nnimap-ver4-p "UID FETCH %d BODY.PEEK[]" "UID FETCH %d RFC822.PEEK" re-search-forward "\\* [0-9]+ FETCH" nil t beginning-of-line nnimap-get-length line-beginning-position 1] 4])
(defalias 'nnimap-capability #[(capability) "\303	!\n>\204�\304\305\306	D\"\210	\307H\235\207" [capability nnimap-object cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 4] 5])
(defalias 'nnimap-ver4-p #[nil "\300\301!\207" [nnimap-capability "IMAP4REV1"] 2])
(defalias 'nnimap-get-partial-article #[(article parts structure) "\304\305\306 \203\f�\307\202
�\310\306 \203�\311\312	\313#\202�\311\314	\313#$\211\205(�\315!)\207" [article parts result structure nnimap-command "UID FETCH %d (%s %s)" nnimap-ver4-p "BODY.PEEK[HEADER]" "RFC822.HEADER" mapconcat #[(part) "\301\302\"\207" [part format "BODY.PEEK[%s]"] 3] " " #[(part) "\301\302\"\207" [part format "RFC822.PEEK[%s]"] 3] nnimap-convert-partial-article] 9])
(defalias 'nnimap-convert-partial-article #[(structure) "eb\210\304 \305\211\306 \307y\210`|\210`\n\\b\210\310\311!\203E�\312\307!\304 \206'�\313\314 \210`\307y\210`|\210	``\n\\{DB``\n\\|\210\202�`d|\210\315\"\210+\316\207" [parts id bytes structure nnimap-get-length nil line-beginning-position 1 looking-at ".*BODY\\[\$[.0-9]+\$\\]" match-string 0 beginning-of-line nnimap-insert-partial-structure t] 4])
(defalias 'nnimap-insert-partial-structure #[(structure parts &optional subp) "\306\211\n@:\203�\211A\210\202�@A@\307\235\211\203'�\fA@*
\2034�\310\311	\227#c\210\n@;\204\257�\312\313\261\210\n@@:\203U�\314\n\211A\242\315#\210\2024�\n\211A\242\310\316@\227A@\227#c\210\317\320\3218\"\203\205�\310\322\317\320\3218\"A@\"c\210\202\210�\313c\210\310\323\3248\"c\210\313c\210\325\3268\"\203\253�\325\3268\"A@c\210)\2024�\312\327\261*\207" [boundary type structure bstruc has-boundary subp nil "boundary" format "Content-type: multipart/%s; boundary=%S\n\n" "\n--" "\n" nnimap-insert-partial-structure t "Content-type: %s/%s" member-ignore-case "CHARSET" 2 "; charset=%S\n" "Content-transfer-encoding: %s\n" 5 assoc 9 "--\n" parts bit] 7])
(defalias 'nnimap-find-wanted-parts #[(structure) "\301\302\303\"!\207" [structure flatten-tree nnimap-find-wanted-parts-1 ""] 4])
(defalias 'nnimap-find-wanted-parts-1 #[(structure prefix) "\306\307\n@:\203t�\n\211A\242\211@:\2030�\310\f\311\230\203$�\312	!\202)�\313\314\f	#\"B\202m�\313\315@A@#\f\311\230\203D�\312	!\202I�\313\314\f	#\316\233
\240\210\317=\203_�
\320\232\202e�\321\"\203l�
B*	T)\202�\237*\207" [parts num structure sub prefix id 1 nil nnimap-find-wanted-parts-1 "" number-to-string format "%s.%s" "%s/%s" 9 t "1" string-match type nnimap-fetch-partial-articles] 7])
(defalias 'nnimap-request-group #[(group &optional server dont-check info) "\306?\205\n�\307	\n\"?\205�	\"\f\205�\fC\310rq\210\205d�\2035�\311\307	\n\"8\211\204K�\312\f\"\313\f\314$\210\311\307	\n\"8)
\206P�\315\316 \210\317\320
A
@Z
@
A	%c\210\314,\207" [dont-check group nnimap-current-infos server info active nnimap-change-group assoc nil 2 nnimap-retrieve-group-data-early nnimap-finish-retrieve-group-infos t (0 . 1) erase-buffer format "211 %d %d %d %S\n" result nntp-server-buffer sequences] 6])
(nnoo-register-function 'nnimap-request-group)
(defalias 'nnimap-request-group-scan #[(group &optional server info) "\306\307\"\205\254�\307\211\211r\310 q\210\311 \210\312\313\314\f!\"\312\315!!\316\"!#>\2043�\317\320\321\"D\"\210\"\211$\322\fI\210)\323
!\210\324\325!
\322\f\326\257C!!%\203k�\203k�\327%C\"\210\330%\331%@&\"\"\210db\210\332@8\211'\203~�'S\202\202�\333@8\206\206�\334\335@8\206\224�'\206\224�\322,r(q\210\311 \210\336\337\n	ZT	\n\f%c\210,\340\207" [server low high marks group flag-sequence nnimap-change-group nil nnimap-buffer erase-buffer nnimap-send-command "SELECT %S" nnimap-group-to-imap "UID FETCH 1:* FLAGS" type-of signal wrong-type-argument nnimap 1 nnimap-wait-for-response nnimap-flags-to-marks nnimap-parse-flags "SELECT" nnimap-update-infos nnimap-store-info gethash 5 3 0 4 format "211 %d %d %d %S\n" t group-sequence nnimap-object cl-struct-nnimap-tags #1=#:v info gnus-active-hashtb uidnext nntp-server-buffer] 8])
(nnoo-register-function 'nnimap-request-group-scan)
(defalias 'nnimap-request-create-group #[(group &optional server _args) "\302\303\"\205�r\304 q\210\305\306\307	!\"@)\207" [server group nnimap-change-group nil nnimap-buffer nnimap-command "CREATE %S" nnimap-group-to-imap] 4])
(nnoo-register-function 'nnimap-request-create-group)
(defalias 'nnimap-request-delete-group #[(group &optional _force server) "\302\303\"\205�r\304 q\210\305\306\307	!\"@)\207" [server group nnimap-change-group nil nnimap-buffer nnimap-command "DELETE %S" nnimap-group-to-imap] 4])
(nnoo-register-function 'nnimap-request-delete-group)
(defalias 'nnimap-request-rename-group #[(group new-name &optional server) "\303\304\"\205�r\305 q\210\306 \210\307\310\311	!\311\n!#@)\207" [server group new-name nnimap-change-group nil nnimap-buffer nnimap-unselect-group nnimap-command "RENAME %S %S" nnimap-group-to-imap] 5])
(nnoo-register-function 'nnimap-request-rename-group)
(defalias 'nnimap-unselect-group #[nil "\300\301!\207" [nnimap-command "EXAMINE DOES.NOT.EXIST"] 2])
(defalias 'nnimap-request-expunge-group #[(group &optional server) "\302	\"\205�r\303 q\210\304\305!@)\207" [group server nnimap-change-group nnimap-buffer nnimap-command "EXPUNGE"] 3])
(nnoo-register-function 'nnimap-request-expunge-group)
(defalias 'nnimap-get-flags #[(spec) "\304\211\211r\305 q\210\306 \210\307\310\311\"!\210`\312ed\313\314\315%\210eb\210\316\317\315#\203?�\320p!\321	>A@\322	>A@B\nB\202\"�)\n\237+\207" [end elems articles spec nil nnimap-buffer erase-buffer nnimap-wait-for-response nnimap-send-command "UID FETCH %s FLAGS" subst-char-in-region 92 37 t search-forward " FETCH " read UID FLAGS] 6])
(defalias 'nnimap-close-group #[(_group &optional server) "\302=\205�\303\304	\305#\210r\306 q\210\307\310!)\207" [nnimap-expunge server on-exit nnoo-change-server nnimap nil nnimap-buffer nnimap-command "EXPUNGE"] 4])
(nnoo-register-function 'nnimap-close-group)
(defalias 'nnimap-request-move-article #[(article group server accept-form &optional _last internal-move-group) "\306\307!rq\210\310\216\311 \210	\203�\312\202�\313\n\fp$\205\212�\314\315!	\203s�r\316 q\210\317\320!\2056�\321\320!\320\232\211\203@�\322\202A�\323\324\n\325	!#\211@\203[�\204[�\326\n!\210	\327\330AA@\"\206n�\331	\f
$,B\202\211�\332 !\211\205\210�\333\f\"\210\326\n!\210))+\207" [#1=#:temp-buffer internal-move-group article group server message-id generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte nnimap-request-head nnimap-request-article message-field-value "message-id" nnimap-buffer nnimap-capability "MOVE" nnimap-quirk "UID MOVE %d %S" "UID COPY %d %S" nnimap-command nnimap-group-to-imap nnimap-delete-article nnimap-find-uid-response "COPYUID" nnimap-find-article-by-message-id eval nnimap-change-group can-move command result nnimap-request-articles-find-limit accept-form] 7])
(nnoo-register-function 'nnimap-request-move-article)
(defalias 'nnimap-request-expire-articles #[(articles group &optional server force) "\204�\306\207\307	\n\"\204�\207\203!�\f\310=\203!�\311\312!!\210\306\207\204+�
\313=\203/�\2025�\314\315	!\"\211\204?�\202\\�\f\310=\203O�\311\312!!\210\202W�\316	\n#\317\")\207" [articles group server force nnmail-expiry-target nnmail-expiry-wait nil nnimap-change-group delete nnimap-delete-article gnus-compress-sequence immediate gnus-sorted-intersection nnimap-find-expired-articles nnimap-process-expiry-targets gnus-sorted-complement deletable-articles] 5])
(nnoo-register-function 'nnimap-request-expire-articles)
(defalias 'nnimap-process-expiry-targets #[(articles group server) "\306\211\n\307=\203�\202V\310\n!\204\305\311\312\n!\313\314\f\"\211\203*�\211<\203*�\211\206a\315
\"A\206a\211\316\232\203=�<\206M\315=\"A\206M\315>\"A\206M?\211\203n�\313\317@@@@@A@#\232\204n�\211A\266\202\202Q�\211@@\262\206M@\211\203\223�\313\317@@@A@#\232\204\223�\211A\266\202\202x�\211@\262\206MAA\306\211\203K\211A\262\242\3208\262\262;\204\237�\306\321C\3222<\211\242\206\307�<\240\210\204\336�\323\324\325\326\327\330!\331\"\320\332%
\"\210=>D\211\203\211@\323\324\325\333\327\330!\334\"\320\332%\"\210A\266\202\202\343�\210\211\242A@\335\235\203\313\336\242@\"\202\313\317\242@\242A@#\211\242B\211
\235\2048\2048\315@
\"\2048\211
B\266\2020\266\204\232\203\237�\262\306\262\202\237�\266\202\211\203^\315
\"\204^B
B\211\262\262\"\203\305\337B\f\"\203Vr\340 q\210\341\342\343B$\210\344\345!\205\207\346\345!\345\232C\347C\203\223\350\202\224\351\352\353!!\354\nD\355\356D\"\203\256\357D\360\225\"\202\260D)!#\210C\203\275\301\202\276\300L\210*\202V\306E\211F\203RF@E\nG\361\362!HrHq\210\363\216\364 \210\365EB\fp$\203H\310G!\203\377GB!GG\2035G\307=\2045\366G\321\"\204\367G!\203/\370GB\"\210\341\342\371BEG%\210\202>\306G\202>\341\342\372BE$\210G\203HEB,FA\211F\204\317*\237\337B\f\"\210\203h\373\353!!\210	*\207" [articles-to-delete deleted-articles nnmail-expiry-target articles server gnus-server-method-cache nil delete functionp gnus-server-equal gnus-group-method format "nnimap:%s" assoc "native" "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
�\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205�\211	\235\204�\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" nnimap-change-group nnimap-buffer nnheader-message 7 "Expiring articles from %s: %s" nnimap-capability "MOVE" nnimap-quirk nnimap-command "UID MOVE %s %S" "UID COPY %s %S" nnimap-article-ranges gnus-compress-sequence nnimap-group-to-imap string-match "^[^:]+:" substring 0 generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] mm-disable-multibyte nnimap-request-article gnus-request-group gnus-request-create-group nnmail-expiry-target-group "Expiring article %s:%d to %s" "Expiring article %s:%d" nnimap-delete-article gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist group can-move gname article --dolist-tail-- target #1#] 21])
(defalias 'nnimap-find-expired-articles #[(group) "\304\305\211#\211\205-�r\306 q\210\307\310\311\312\313	\"\226)\"\211@\205,�\314\315\316\317\320\321A\"A\"\"*)\207" [group cutoff system-time-locale result nnmail-expired-article-p nil nnimap-buffer nnimap-command "UID SEARCH SENTBEFORE %s" "C" format-time-string "%d-%b-%Y" delete 0 mapcar string-to-number assoc "SEARCH"] 8])
#@122 Search for message with MESSAGE-ID in GROUP from SERVER.
If LIMIT, first try to limit the search to the N last articles.
(defalias 'nnimap-find-article-by-message-id #[(group server message-id &optional limit) "r\306 q\210\307 \210\310	\311\312$\211<\205<�\3132<�\nA\311\211\205:�\f@\211A@\314\232\2032�\315\313@\"\210\fA\211\204!�\311*0\316\317\203V�
\203V�\320\321\322\323
!\324#\"\202W�\325#\326!\205\211�\327\330\331\332 \"A!@\211\203y�\323!\202\210�\205\210�
\205\210�\333	#),\207" [group server change-group-result result --dolist-tail-- number-of-article nnimap-buffer erase-buffer nnimap-change-group nil t found "EXISTS" throw nnimap-send-command "UID SEARCH%s HEADER Message-Id %S" format " %s:*" - string-to-number -1 "" nnimap-wait-for-response last assoc "SEARCH" nnimap-parse-response nnimap-find-article-by-message-id limit message-id sequence article] 9 (#$ . 45470)])
#@18 Delete ARTICLES.
(defalias 'nnimap-delete-article #[(articles) "r\302 q\210\303\304\305!\"\210	\306\267\202.�\307\310!\203!�\303\311\305!\"\202M�\312\313\314\"\210\315\202M�\315\202M�\307\310!\203=�\303\311\305!\"\202M�	\203G�\303\316!\202M�\312\317\320\"\210\315)\207" [articles nnimap-expunge nnimap-buffer nnimap-command "UID STORE %s +FLAGS.SILENT (\\Deleted)" nnimap-article-ranges #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (immediately 18 on-exit 42 never 42)) nnimap-capability "UIDPLUS" "UID EXPUNGE %s" nnheader-message 3 "nnimap-expunge set to `immediately', but server doesn't support UIDPLUS" nil "EXPUNGE" 7 "Article marked for deletion, but not expunged."] 4 (#$ . 46388)])
(defalias 'nnimap-request-scan #[(&optional group server) "\304\305\"\205;�	\205;�\n\205;�\306\307\310#\210	<\2033�	\305\211\203/�@\311 \210A\211\204\"�*\2026�\311 \210\306\307\312#\207" [server nnimap-inbox nnimap-split-methods --dolist-tail-- nnimap-change-group nil nnheader-message 7 "nnimap %s splitting mail..." nnimap-split-incoming-mail "nnimap %s splitting mail...done"] 5])
(nnoo-register-function 'nnimap-request-scan)
(defalias 'nnimap-marks-to-flags #[(marks) "\306\211\n\306\211\203$�\f@\211
\236A@\211\203�	B\fA\211\204\f�*	*\207" [flag flags marks mark --dolist-tail-- nnimap-mark-alist nil] 3])
(defalias 'nnimap-request-update-group-status #[(group status &optional server) "\304\305\"\205 �\306	\307\"\211\205�r\310 q\210\311\312\nA@\313!#))\207" [server status command group nnimap-change-group nil assoc ((subscribe "SUBSCRIBE") (unsubscribe "UNSUBSCRIBE")) nnimap-buffer nnimap-command "%s %S" nnimap-group-to-imap] 6])
(nnoo-register-function 'nnimap-request-update-group-status)
(defalias 'nnimap-request-set-mark #[(group actions &optional server) "\306	\"\205\226�\307r\310 q\210\311 \210\307\211\203\215�
@\211\211G\312U\2030�\211A\242\2028�\313\314\315GD\"\211A\242@\316>\203Z�\f\317=\203Z�\320B\321!\211 \203\205�\322\323\324!\f\325\267\202|�\326\202}�\327\202}�\330\202}�\307\331\332 \333#$-
A\211\204�*\n\205\225�\334\n!*\207" [group server sequence actions action --dolist-tail-- nnimap-change-group nil nnimap-buffer erase-buffer 3 signal wrong-number-of-arguments (range action marks) tick add read nnimap-marks-to-flags nnimap-send-command "UID STORE %s %sFLAGS.SILENT (%s)" nnimap-article-ranges #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (del 112 add 116 set 120)) "-" "+" "" mapconcat identity " " nnimap-wait-for-response #1=#:--cl-rest-- range marks flags] 9])
(nnoo-register-function 'nnimap-request-set-mark)
(defalias 'nnimap-request-accept-article #[(group &optional server _last) "\204\n�\306\307!@@\310\311	\"\205\272�\312 \210\313\314!\311\211\315 \210\316ed\"r\317 q\210\320\321\322\n#\2062�\n\211\205\271�\323
!+>\204G�\324\325\326
D\"\210
\327H\232\203R�\330 \210\331 \210\332\333\334!\nG#,\204g�\335\336!\210\337\340p!\n\"\210\337\340p!\323
!+>\204\202�\324\325\326
D\"\210
\341H\203\214�\342\202\215�\343\"\210\344!-\345-!\204\246�\346\326\347-#\210\311\202\270�\350\351-@\"\206\267�\352	\f.$B),\207" [group server message sequence message-id nnimap-object nnmail-article-group #[(group) "CC\207" [group] 1] nnimap-change-group nil nnmail-check-syntax message-field-value "message-id" nnimap-add-cr buffer-substring-no-properties nnimap-buffer nnimap-process-quirk "OK Gimap " append type-of signal wrong-type-argument nnimap 10 nnimap-unselect-group erase-buffer nnimap-send-command "APPEND %S {%d}" nnimap-group-to-imap nnimap-wait-for-connection "^[+]" process-send-string get-buffer-process 6 "\n" "
\n" nnimap-get-response nnimap-ok-p nnheader-report "%s" nnimap-find-uid-response "APPENDUID" nnimap-find-article-by-message-id cl-struct-nnimap-tags nnimap-streaming result nnimap-request-articles-find-limit] 6])
(nnoo-register-function 'nnimap-request-accept-article)
(defalias 'nnimap-process-quirk #[(greeting-match type data) "\306!	>\204�\307\310\311D\"\210\312H\205w�\313\n\306!	>\204&�\307\310\311D\"\210\312H\"\205w�\314=\205w�\313\315\f\"\205w�\316\317\320\"\211\321\267\202P�\322\311\323\"\202v�\f\202v�\324\325!rq\210\326\216\fc\210eb\210\327\315\330\331#\203s�\332\333\331\211#\210\202b�\334 +)\207" [nnimap-object cl-struct-nnimap-tags greeting-match type data choice type-of signal wrong-type-argument nnimap 9 string-match append "�" gnus-multiple-choice "Message contains NUL characters.  Delete, continue, abort? " ((100 "Delete NUL characters") (99 "Try to APPEND the message as is") (97 "Abort")) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (97 69 99 76)) nnheader-report "Aborted APPEND due to NUL characters" generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] search-forward nil t replace-match "" buffer-string #1#] 7])
(defalias 'nnimap-ok-p #[(value) ":\205�@:\205�@@\301\232\207" [value "OK"] 2])
(defalias 'nnimap-find-uid-response #[(name list) "\303\304	\"!@\211\205�\305\n!)\207" [name list result last nnimap-find-response-element string-to-number] 5])
(defalias 'nnimap-find-response-element #[(name list) "\305	\305\211\203\"�@\211:\203�\f\n@\232\203�\nA\211\204\n�*)\207" [result list elem --dolist-tail-- name nil] 3])
(defalias 'nnimap-request-replace-article #[(article group buffer) "\304\305	!\205�r\nq\210\306	\304\307#\211)\205�\310C!\210A)\207" [group-art group buffer article nil nnimap-change-group nnimap-request-accept-article t nnimap-delete-article] 4])
(nnoo-register-function 'nnimap-request-replace-article)
(defalias 'nnimap-add-cr #[nil "eb\210\300\301\302\303#\205�\304\305\303\211#\210\202�\207" [re-search-forward "
?\n" nil t replace-match "
\n"] 4])
(defalias 'nnimap-get-groups #[nil "\306 \210\307\310!	\211\205�\nG\n\205�\311\n\312\313#\314\315!\210\316ed\317\320\321%\210eb\210\322 \210eb\210\323\324\314\321#\203\237�\325p!\325p!\326\327\314w\210`\314\210\330\314x\210`\" !\331!>\204\233�\332;\203g�\202l�\333\334\"\321\"\n\203{�\f\232\203\200�\202\224�\335\n\"\203\220�\311\"\202\224�\336P\211
B*+\2021�
\237-\207" [sequence nnimap-namespace prefix prefix-len inbox groups erase-buffer nnimap-send-command "LIST \"\" \"*\"" substring 0 -1 nil nnimap-wait-for-response subst-char-in-region 92 37 t nnimap-unfold-quoted-lines search-forward "* LIST " read buffer-substring-no-properties " \"" " 
\"" %Noselect utf7-decode format "%s" string-prefix-p "#" group _separator flags] 7])
(defalias 'nnimap-get-responses #[(sequences) "\304	\304\211\203)�@eb\210\305\306\307\n\"\304\310#\203\"�\n\311 DBA\211\204\n�*)\207" [responses sequences sequence --dolist-tail-- nil re-search-forward format "^%d " t nnimap-parse-response] 5])
(defalias 'nnimap-request-list #[(&optional server) "\306\307\"\205=r	q\210\310 \210r\311 q\210\312 )\307\211\211\205<r\311 q\210\313
!$>\2044�\314\315\316
D\"\210
\211%\317\307I\210)\f\307&\211'\203|�'@&\313
!$>\204\\�\314\315\316
D\"\210
\211(\320&I\210)\321\322\323&!\"&DB'A\211'\204G�*\324@@!\210\325\326\327\"!)\n\307)\211'\203:'@\211)@*)A@)\330*\"A@\211&\2030)@@\331\232\2030\332\333)\"\307\211+,-)\307.\211'\203\357�'@\211.A@\334\232\203\346�\335.@!+'A\211'\204\322�*-\203\375�\335-@!S,,\204\f\336\337&\"c\210\202/+\340U\203!\336\341&,\211T$c\210\202/\336\342&,\206,+#c\210++'A\211'\204\225�*\343,\207" [server nntp-server-buffer responses sequences groups nnimap-object nnimap-change-group nil erase-buffer nnimap-buffer nnimap-get-groups type-of signal wrong-type-argument nnimap 1 10 nnimap-send-command "EXAMINE %S" nnimap-group-to-imap nnimap-wait-for-response nnimap-get-responses mapcar car assoc "OK" nnimap-find-parameter "UIDNEXT" "EXISTS" string-to-number format "%S 0 1 y\n" 0 "%S %d %d y\n" "%S %d 1 y\n" t cl-struct-nnimap-tags #1=#:v group --dolist-tail-- #2=#:v response sequence exists highest uidnext elem] 6])
(nnoo-register-function 'nnimap-request-list)
(defalias 'nnimap-request-newgroups #[(_date &optional server) "\305\306\"\2056�r	q\210\307 \210r\310 q\210\311 )\306\211\2034�@\312\n\f\"\204-�\313\314\n\"c\210A\211\204�+\315\207" [server nntp-server-buffer group --dolist-tail-- nnimap-current-infos nnimap-change-group nil erase-buffer nnimap-buffer nnimap-get-groups assoc format "%S 0 1 y\n" t] 4])
(nnoo-register-function 'nnimap-request-newgroups)
(defalias 'nnimap-retrieve-group-data-early #[(server infos) "\306\307\"\205j	\205jr\310 q\210\311 \210\312\n!>\204\"�\313\314\315\nD\"\210\n\211\316\307I\210)\312\n!>\2049�\313\314\315\nD\"\210\n\211\317\320I\210)\321\322!\307\211\211\211\211\211\211'()*	\307+\211,\203e,@+\323+8)+@-\324\325-\"\203\206�\326-\320\225\"\202\210�-)'\327)\236A\330\331+8\236\332)\236A\333)\236A\312\n!>\204\267�\313\314\315\nD\"\210\n\211.\334'I\210)*\203\367�\203\367�\203\367�\203\367�\203\367�\335\336\337'!\340\322!%\341\307'\341\257(B(\202\\\203�\342\202\343\307/0\203!\203!\203!\316A\344Z]/\202@\312\n!>\2040\313\314\315\nD\"\210\n\2111\3171\317HTI\210)\316/\335\3450\337'!#\335\346/\"/'0\257(B(*,A\211,\204e�*(.	\207" [server infos nnimap-object cl-struct-nnimap-tags #1=#:v #2=#:v nnimap-change-group nil nnimap-buffer erase-buffer type-of signal wrong-type-argument nnimap 1 12 0 nnimap-capability "QRESYNC" 5 string-match "^[^:]+:" substring active unexist 3 uidvalidity modseq 10 nnimap-send-command "EXAMINE %S (%s (%s %s))" nnimap-group-to-imap nnimap-quirk qresync "EXAMINE" "SELECT" 100 "%s %S" "UID FETCH %d:* FLAGS" group sequences params qresyncp info --dolist-tail-- gname #3=#:v start command #4=#:v] 9])
(nnoo-register-function 'nnimap-retrieve-group-data-early)
(defalias 'nnimap-quirk #[(command) "\305	\"\211\203#�\306\nA@\307!\f>\204�\310\311\312D\"\210\313H\"\204'�\202*�\314\n8)\207" [command nnimap-quirks quirk nnimap-object cl-struct-nnimap-tags assoc string-match type-of signal wrong-type-argument nnimap 9 2] 7])
(defalias 'nnimap-finish-retrieve-group-infos #[(server infos sequences &optional dont-insert) "\205\237�\306\307	\310#\205\237�\311\312 !\205\237�\313\311\312 !!\314>\205\237�r\312 q\210\315@A@\316=\2033�@@\2027�@A@\310\"\205\236�\317\320\321\237!!\n\"\210?\205\236�r\fq\210\322 \210\n\307\211\205\235�@\211@\323\"\211\203\222�\324\325\326\327\"\203\206�\330\331\225\"\202\210�)A@$c\210*A\211\204[�\307+)\207" [sequences server infos dont-insert nntp-server-buffer info nnimap-change-group nil t get-buffer-process nnimap-buffer process-status (open run) nnimap-wait-for-response qresync nnimap-update-infos nnimap-flags-to-marks nnimap-parse-flags erase-buffer gethash format "%S %d %d y\n" string-match "^[^:]+:" substring 0 --dolist-tail-- group gnus-active-hashtb active gname] 6])
(nnoo-register-function 'nnimap-finish-retrieve-group-infos)
(defalias 'nnimap-update-infos #[(flags infos) "\306\211\205:�\n@\211@\307\310\"\203�\311\312\225\"\202�)\313\f
\"A\211
\2031�\314	
\"\210*\nA\211\204�\306*\207" [infos info --dolist-tail-- gname group flags nil string-match "^[^:]+:" substring 0 assoc nnimap-update-info marks] 4])
(defalias 'nnimap-update-info #[(info marks) "\211G\306U\203�	\211A\242\202�\307\310\311	GD\"	\211A\242	\211A\242	\211A\242	\211A\2424	\211A\2425	\211A\242	\211A\242
	\211A\2426	@7\n\204u�4\204u�\312\31388\236A\211\n\205q�\3148@\n9#)\202e\315\31388\236A\211:\205\225�:
\232?\205\225�5?\206\225�5\316V)\203\247�\3178\315\"\210\3178\320\"\202e8@;5\205\265�5\316U<\321;9\"\206\307�\312\31388\236A\n4\203\322�4S<\204\340�\321;9\"\2042\314;\n\203
\206\357�\n@\n@^\f\206\372�\nA\nA]B\202+
\203\f\203
\fB\202+4\2034\211SB\202+5\203*5\211SB\202+\3229#\210\202D\314;\n@\f\206?4SB9#\210\323=\204a\3248\325\326>\204]\327>\205_#\210\325\31388\236A\211\203�7\203\2065\204\206\3308\n\3316!$\210\202�5\204\216\3165\332\333\211\n\334\335\327\"A\335\336\"A\"\"\335\337\"A\"!=\3405\fB=\">5\316V\203\330\3415\316V\203\317\342\3165SB\34388\"\202\323\34388>\"><\203\345\327>\203\3618AA\211?>\240\210)\34488@A\322A\211B\203\223B@A<\203#\335AAA@\"@>\204#\326>\203\212\335A@\"\332\335AAA@\"\206J\335\345AA@C\"\"\206J\335AA@\"A!DE\346E\"E\210EA\211E\203{5\316V\203{\340E5\fB\"E\341ED\"DD\203\211A@DBB*BA\211B\204*\347\236F\321;9\"\n<\203\260\340\n\332\n!\"\202\276\350FA\351\n\321;9\"\"\"G\n@\316V\203\324\352\316\n@SBG\"GF\203\342FG\241\210\202\351\347GBB+8\353\211\203\367\354\344\"\210\344\233\211\240\266*\335\355\"AH\n\203=H\203=\356H!@\nAV\203=;I\357\360I\"\2032\361I\362\225\"\2024I)\362BCJBJ)\3248\312\321;9\"#\210\3248\315
#\210\3248\3207#\210\3638\321;9\"\"+.\207" [marks #1=#:--cl-rest-- existing flags high low 10 signal wrong-number-of-arguments (existing flags high low uidnext start-article permanent-flags uidvalidity vanished highestmodseq) active 5 puthash uidvalidity 1 gnus-group-remove-parameter modseq gethash nil not-scanned gnus-group-set-parameter permanent-flags %* %Seen nnimap-update-qresync-info nnimap-imap-ranges-to-gnus-ranges gnus-compress-sequence gnus-set-difference gnus-sorted-union assoc %Deleted %Flagged gnus-range-difference gnus-range-nconcat gnus-sorted-range-intersection 2 3 intern delq unexist gnus-add-to-range gnus-list-range-difference gnus-range-add t gnus-info--grow-entry %Recent last string-match "^[^:]+:" substring 0 nnimap-store-info uidnext start-article vanished highestmodseq info gnus-active-hashtb old-uidvalidity group completep unread read #2=#:c nnimap-mark-alist type --dolist-tail-- obarray new-marks old-marks old-unexists unexists recent gname nnmail-split-history] 10])
(defalias 'nnimap-update-qresync-info #[(info existing vanished flags) "AA\211\306\211\307\3108\n\"\311\236A\"\312\236A\"\240\210)\3138
A\314\211\203\255�@\315@\f\"\315AA@\"\206T�\315\316A@\"\"\206T�\315A@\"A\203\243�\317\f\"\210A\306\"\320\321\322\"!\"\211\203\217�@B\fB\f\323\211\203\233�\324\313\"\210\313\233\211\240\266*A\211\204)�*\n\205\351�\325\f\236\307A\n\"\203\315�\241\210\202\324�\325B\fB*\f\323\211\203\341�\324\313\"\210\313\233\211\240\266\204)\207" [info #1=#:c vanished flags marks nnimap-mark-alist gnus-add-to-range gnus-range-add 2 %Flagged %Seen 3 nil assoc intern delq gnus-remove-from-range gnus-compress-sequence gnus-sorted-complement t gnus-info--grow-entry unexist type --dolist-tail-- obarray new-marks ticks existing old-unexists unexists] 7])
(defalias 'nnimap-imap-ranges-to-gnus-ranges #[(irange) "G\305U?\205C�\306\307\310\"\306\211\203?�@\311\312\n\"\2032�\307\n\312\"\313\f@!\313\fA@!)B\2025�\313\n!	BA\211\204�*	\237)\207" [irange result elem --dolist-tail-- numbers 0 nil split-string "," string-match ":" string-to-number] 4])
(defalias 'nnimap-store-info #[(info active) "@\306\307	\"\203�\310	\311\225\"\202�	)\312\n\"\211\203&�\f
D\241\202.�\n
EB\211*\207" [info gname group nnimap-current-infos entry active string-match "^[^:]+:" substring 0 assoc] 4])
(defalias 'nnimap-flags-to-marks #[(groups) "\306\211\211\211\211\211\211\211\211\211\306\211\203\344�@\211@A@\3078\3108\3118\3128\3138\314\233\211@@\306\211\211\306\211\203\301�@\211@@BA\306\211\203\267�@\315\"\211\204\245�@DB\202\256�\f@\fAB\241\210A\211\204\207�*A\211\204j�*
\n	\257B,A\211\204#�*.\n\207" [highestmodseq vanished uidvalidity permanent-flags mark start-article nil 2 3 4 5 6 7 assoc articles uidnext group data groups elem --dolist-tail-- existing low marks high article flag] 12])
(defalias 'nnimap-parse-flags #[(sequences) "eb\210\306ed\307\310\311%\210\312\313\314\311#\203�\315\316\311\211#\210\202�eb\210\314\211\211\211\211\211\211\211\211\211%&'()\314*\211+\203\210+@\211*\211,G\317U\203[�,\211A,\242\202c�\320\321\322,GD\"-,\211A,\242.,\211A,\242/,\211A,\2420,@1`(\323\324\325-\"\314\311#\203}\326y\210`'(b\2101\327\232\203\264�\323\330'\311#\205\265�\331p!\202\265�\332(b\210\323\333'\311#\205\306�\331p!(b\210\312\334'\311#\205\327�\335\326!(b\210.\336=\205\357�\312\337'\311#\205\357�\335\326!(b\210\312\340'\311#\205�\335\326!'b\210\341y\203}.\336=\204\323\324\325.\"\314\311#\203}.\336=\203/(b\210'(\2026`('b\210\312\342(\311#\203V\331p!\343\f>A@\344\f>A@B&B&\20260
/\n	\257&\244%B%.\336=\203w'b\210\202z`'\314&.+A\211+\204B�*%.\n\207" [highestmodseq vanished uidvalidity permanent-flags elems uidnext subst-char-in-region 92 37 t re-search-forward " MODSEQ ([0-9]+)" nil replace-match "" 5 signal wrong-number-of-arguments (group-sequence flag-sequence totalp group command) search-forward format "\n%d OK " 1 "SELECT" "PERMANENTFLAGS " read not-scanned "UIDNEXT " "UIDVALIDITY \$[0-9]+\$" match-string qresync "^\\* VANISHED .*? \$[0-9:,]+\$" "HIGHESTMODSEQ \$[0-9]+\$" -1 "^\\* [0-9]+ FETCH " UID FLAGS groups articles end start sequences elem --dolist-tail-- #1=#:--cl-rest-- group-sequence flag-sequence totalp group command] 11])
(defalias 'nnimap-find-process-buffer #[(buffer) "\302	\"A@\207" [buffer nnimap-connection-alist assoc] 3])
(defalias 'nnimap-request-post #[(&optional _server) "\301\302\207" [nnimap-status-string "Read-only server" nil] 1])
(byte-code "\300\301!\210\302\303\304\"\207" [nnoo-register-function nnimap-request-post autoload nnir-search-thread "nnir"] 3)
(defalias 'nnimap-request-thread #[(header &optional group server) "\203�\306	!\207\307\n\"\2058�\310	!r\311 q\210\312\313\f\")\211\2057�\314
@\2054�\315\316\317\320\321\322
A\"A\"\"\323\324#*\207" [gnus-refer-thread-use-nnir header group server cmd result nnir-search-thread nnimap-change-group nnimap-make-thread-query nnimap-buffer nnimap-command "UID SEARCH %s" gnus-fetch-headers delete 0 mapcar string-to-number assoc "SEARCH" nil t] 9])
(nnoo-register-function 'nnimap-request-thread)
#@349 Change group to GROUP if non-nil.
If SERVER is set, check that server is connected, otherwise retry
to reconnect, unless NO-RECONNECT is set to t.  Return nil if
unsuccessful in connecting.
If GROUP is nil, return t.
If READ-ONLY is set, send EXAMINE rather than SELECT to the server.
Return the server's response to the SELECT or EXAMINE command.
(defalias 'nnimap-change-group #[(group &optional server no-reconnect read-only) "\306	\203�\307	!\204�\310	\311\n#\204�\311\202v�\204\"�\306\202v�r\312 q\210\313\314\f\2031�\315\2022�\316\317!#\211@\205u�\320!>\204N�\321\322\323D\"\210\211\324I\210)\320!>\204j�\321\322\323D\"\210\211\325
I\210)
*)\207" [open-result server no-reconnect group read-only result t nnimap-server-opened nnimap-open-server nil nnimap-buffer nnimap-command "%s %S" "EXAMINE" "SELECT" nnimap-group-to-imap type-of signal wrong-type-argument nnimap 1 5 nnimap-object cl-struct-nnimap-tags #1=#:v #2=#:v] 6 (#$ . 64807)])
#@43 Find the connection delivering to BUFFER.
(defalias 'nnimap-find-connection #[(buffer) "\303	\"\211\2053�\304\nA@!\203-�\305\nA@!\203-�\306\305\nA@!!\307>\203-�\305\nA@!\2023�\310\n	\"\311)\207" [buffer nnimap-connection-alist entry assoc buffer-live-p get-buffer-process process-status (open run) delq nil] 4 (#$ . 65789)])
(defvar nnimap-sequence 5)
(defalias 'nnimap-send-command #[(&rest args) "\306!	>\204�\307\310\311D\"\210\211\312\313 I\210)\314\315p!\316\317\320T\211\321\317\f\"\306!	>\2046�\307\310\311D\"\210\322H\203@�\323\202A�\324$!\"\210
\204M�\325!\210\207" [nnimap-object cl-struct-nnimap-tags #1=#:v nnimap-sequence args nnimap-streaming type-of signal wrong-type-argument nnimap 8 current-time process-send-string get-buffer-process nnimap-log-command format "%d %s%s\n" apply 6 "" "
" nnimap-wait-for-response] 12])
#@54 If non-nil, log commands to the "*imap log*" buffer.
(defvar nnimap-record-commands nil (#$ . 66647))
(defalias 'nnimap-log-buffer #[nil "\302\303!\206�r\304!q\210\305\301!\210\306p))\207" [name window-point-insertion-type "*imap log*" get-buffer get-buffer-create make-local-variable t] 2])
(defalias 'nnimap-log-command #[(command) "\203�r\304 q\210db\210\305\306!\307	\310\n\203�\311\202�\261\210)\207" [nnimap-record-commands nnimap-address nnimap-inhibit-logging command nnimap-log-buffer format-time-string "%H:%M:%S" " [" "] " "(inhibited)\n"] 5])
(defalias 'nnimap-command #[(&rest args) "\303 \210\304\305\"\306	!\211@@\307\232\203�\310\nB\202&�\311\312\313\314\315\n@\316##\210\317*\207" [args sequence response erase-buffer apply nnimap-send-command nnimap-get-response "OK" t nnheader-report nnimap "%s" mapconcat #[(a) "\301\302\"\207" [a format "%s"] 3] " " nil] 8])
(defalias 'nnimap-get-response #[(sequence) "\301!\210\302 \207" [sequence nnimap-wait-for-response nnimap-parse-response] 2])
(defalias 'nnimap-wait-for-connection #[(&optional regexp) "\301\206�\302\303\"\207" [regexp nnimap-wait-for-line "^[*.] .*\n" "[*.] \$[A-Z0-9]+\$"] 3])
(defalias 'nnimap-wait-for-line #[(regexp &optional response-regexp) "\303p!eb\210\304!\305>\203!�\306	\307\310#\204!�\311!\210eb\210\202�\312y\210\313\n\206*�	!\2051�\314\315!)\207" [process regexp response-regexp get-buffer-process process-status (open run) re-search-forward nil t nnheader-accept-process-output -1 looking-at match-string 1] 4])
(defalias 'nnimap-wait-for-response #[(sequence &optional messagep) "\306p!\307\3101\262�db\210\311	!\312>\211\203\224�o\204$�\313y\210\314\315!\204�\314\316\317\n\"!\204\224�\203\212�\320\321\322\323 \324\245\f\325
!#>\204I�\326\327\330
D\"\210
\331H\332U\204\207�\316\333\325
!#>\204c�\326\327\330
D\"\210
\331H\325
!#>\204v�\326\327\330
D\"\210
\331H\334U\203\202�\335\202\203�\336#\202\210�\335%\210\337	!\210db\210\202
�\325
!#>\204\244�\326\327\330
D\"\210
\211$\331\332I\210)0\202\301�\210%\203\274�\340\341!\210\342	!\210\307*\207" [openp process sequence messagep nnimap-address nnimap-object get-buffer-process nil (quit) process-status (open run) -1 looking-at "\\*\\|[0-9]+ OK NOOP" format "%d .*\n" nnheader-message-maybe 7 "nnimap read %dk from %s%s" buffer-size 1000 type-of signal wrong-type-argument nnimap 12 0 " (initial sync of %d group%s; please wait)" 1 "" "s" nnheader-accept-process-output debug "Quit" delete-process cl-struct-nnimap-tags #1=#:v debug-on-quit] 13])
(defalias 'nnimap-parse-response #[nil "\304\305 \306\307#\310\211\310\211\203\"�@\311\n!ABA\211\204�*\211A\242\237*B\207" [result lines line --dolist-tail-- split-string nnimap-last-response-string "
\n" t nil nnimap-parse-line] 5])
(defalias 'nnimap-parse-line #[(line) "\304\211\305\306!r\nq\210\307\216\310 \210c\210eb\210m\204\210�\311g\211\312\"\203*�\313u\210\202�	\314\267\202q�\315`T\316\317\320 \321#\203A�`S\202B�`{!\202\202�\315`T\316\322\320 \321#\203X�`S\202Y�`{!\202\202�\313u\210`\316\323\320 \321#\206l�`S{\202\202�`\316\324\304\325#\203�`S\202\201�db{B\202�\237-\207" [result char #1=#:temp-buffer line nil generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte eql 32 1 #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (91 48 40 71 34 94)) split-string search-forward "]" line-end-position move ")" "\"" " " t] 6])
(defalias 'nnimap-last-response-string #[nil "\212\301y\210`\302y\210o\204+�\302y\210o\204!�\303g\304\"\203!�\302y\210\202�\303g\304\"\204+�\301y\210`{*\207" [end 1 -1 eql 42] 3])
(defvar nnimap-incoming-split-list nil)
(defalias 'nnimap-fetch-inbox #[(articles) "\302 \210\303\304\305\306!\307\310\307\311 \203�\312\202�\313!	\203�\314\202)�\311 \203(�\315\202)�\316##\317\"\207" [articles nnimap-split-download-body-default erase-buffer nnimap-wait-for-response nnimap-send-command "UID FETCH %s %s" nnimap-article-ranges format "(UID %s%s)" nnimap-ver4-p "BODY.PEEK" "RFC822.PEEK" "[]" "[HEADER]" "[1]" t] 8])
(defalias 'nnimap-split-incoming-mail #[nil "r\306 q\210\307\310=\203�	\202�\203�\202�\n\205�\303\n\206\"�\311\312 \313\314!\2050�\315\314!\314\232\307-./\316 \210\317\3200\"\210\3211!2>\204V�\322\323\3241D\"\2101\2113\3250I\210)\326\327\330!!\211\205N\331\f!\210\332 \210\333 \210\334 \210\335p\336\307\211\337\336&\210/\205N\340/!\307\21145\2116\3077\2118\203\304�8@\2117@-\235\204\273�7@\341=\204\273�\317\342\3437@!\"\2108A\2118\204\235�*\316 \2106\3077\2118\2038@\2117@7A9\211:\341=\203\356�94\202:0\230\204\344
\203\377�\345\202�\346\3479!\343:!#9D5B5*8A\2118\204\323�*
\204D5\203D\3505@@!\210;\205:;\351=?\205:\352;\353\3545!!\210)4\205M\3534!+.\207" [nnimap-split-methods nnmail-split-methods nnimap-split-fancy nnmail-split-fancy new-articles can-move nnimap-buffer nil default t nnimap-get-groups nnimap-capability "MOVE" nnimap-quirk erase-buffer nnimap-command "SELECT %S" type-of signal wrong-type-argument nnimap 1 nnimap-new-articles nnimap-get-flags "1:*" nnimap-fetch-inbox nnimap-transform-split-mail nnheader-ms-strip-cr nnmail-cache-open nnmail-split-incoming nnimap-save-mail-spec nnimap-dummy-active-number nnimap-make-split-specs junk "CREATE %S" nnimap-group-to-imap nnimap-send-command "UID MOVE %s %S" "UID COPY %s %S" nnimap-article-ranges nnimap-wait-for-response never immediate nnimap-delete-article nnimap-parse-copied-articles groups nnmail-inhibit-default-split-group nnimap-incoming-split-list nnimap-inbox nnimap-object cl-struct-nnimap-tags #1=#:v junk-articles sequences specs spec --dolist-tail-- ranges group nnimap-expunge] 8])
(defalias 'nnimap-parse-copied-articles #[(sequences) "\304\211\211eb\210\305\306\304\307#\203*�\310\311\312!!\211\236A@\211\203	�\313!	B\202	�\314\315\316\317	\"\320\"!+\207" [range copied sequence sequences nil re-search-forward "^\$[0-9]+\$ OK\\b" t string-to-number match-string 1 gnus-uncompress-range gnus-compress-sequence sort apply nconc <] 6])
(defalias 'nnimap-new-articles #[(flags) "\305	\305\211\203!�@\306\f\nA\"\204�\n@BA\211\204\n�*\307\237!)\207" [new flags elem --dolist-tail-- nnimap-unsplittable-articles nil gnus-list-memq-of-list gnus-compress-sequence] 4])
(defalias 'nnimap-make-split-specs #[(list) "\306\211\n\306\211\203j�\f@\211\211G\307U\203 �
\211A\242\202'�\310\311\312
GD\"
@\313\306\314\315\"\"\306\211\203b�\f@\316	\"\211\204S�C\211	BAB\241\210\fA\211\204=�-\fA\211\204\f�*	\306\211\203\207�\f@\211\317\320A\321\"!\241\210\fA\211\204s�*	*\207" [entry specs list elem --dolist-tail-- #1=#:--cl-rest-- nil 2 signal wrong-number-of-arguments (article spec) delete mapcar car assoc gnus-compress-sequence sort < article spec group] 6])
(defalias 'nnimap-transform-split-mail #[nil "eb\210\302\211\3032[�m?\205Z�\304\305!\204)�`\306y\210`|\210m\203�\307\303\302\"\210\202�\310\306!\311 \312 \313 |\210\314\315	\"c\210Tu\210\311 \312 \313 |\210\203�Tu\210\312 \313 |\210\202�0*\207" [bytes article nil --cl-block-nil-- looking-at "\\* [0-9]+ FETCH.+UID \$[0-9]+\$" 1 throw match-string nnimap-get-length line-beginning-position line-end-position format "\n\nX-nnimap-article: %s"] 3])
(defalias 'nnimap-dummy-active-number #[(_group &optional _server) "\300\207" [1] 1])
(defalias 'nnimap-save-mail-spec #[(group-art &optional _server _full-nov) "\303eb\210\304\305\303\306#\204�\307\310!\210\202�\311\312\313!!	\314=\203(�\314\313BC\202)�	D\nB\211)\207" [article group-art nnimap-incoming-split-list nil re-search-forward "X-nnimap-article: \$[0-9]+\$" t error "Invalid nnimap mail" string-to-number match-string 1 junk] 4])
(defalias 'nnimap-make-thread-query #[(header) "\306H\307\310H\206\f�\311!\312\313	\211#\n\314\211\203-�
@\312\315\f\211$
A\211\204�\314-\207" [header id refs value refid --dolist-tail-- 4 split-string 5 "" format "(OR HEADER REFERENCES %S HEADER Message-Id %S)" nil "(OR (OR HEADER Message-Id %S HEADER REFERENCES %S) %s)"] 6])
(provide 'nnimap)

${this.title}

Code Editor : nnimap.elc