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



(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 (#$ . 565))
(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 (#$ . 749))
(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 (#$ . 950))
(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 (#$ . 1223))
(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 (#$ . 1636))
(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) (#$ . 2017))
(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 (#$ . 2471))
(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 (#$ . 2773))
(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 (#$ . 3005))
(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) (#$ . 3212))
(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'." "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 (#$ . 3615))
(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 (#$ . 3920))
(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 (#$ . 4820))
(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 (#$ . 5332))
(nnoo-define 'nnimap-fetch-partial-articles nil)
#@391 Configuration for the nnimap keepalive timer.
The value is a cons of two integers (each representing a number
of seconds): the first is how often to run the keepalive
function, the second is the seconds of inactivity required to
send the actual keepalive command.

Set to nil to disable keepalive commands altogether.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnimap-keepalive-intervals (cons 900 300) (#$ . 5757))
(byte-code "\300\301\302\"\210\303\304\302\305\306\307%\210\310\311\312\313\314DD\315\316\317\320\321&\210\322\323\324\302#\210\325\211\203D\211@\323
N\203=\324
N\204=\326\324\323N#\210
A\266\202\202#\210\327\323\324\330#\210\310\324\312\313\331DD\332\320\330\316\333&\207" [nnoo-define nnimap-keepalive-intervals nil custom-declare-group nnimap "IMAP for Gnus." :group gnus custom-declare-variable nnimap-request-articles-find-limit funcall function #[0 "\300\207" [nil] 1 #1=""] "Limit the number of articles to look for after moving an article." :type (choice (const nil) integer) :version "24.4" defvaralias nnimap-split-download-body-default nnimap-split-download-body (saved-value saved-variable-comment) put make-obsolete-variable "28.1" #[0 "\300\207" [nil] 1 #1#] "If non-nil, make message bodies available for consideration during splitting.\nThis requires downloading the full message from the IMAP server\nduring splitting, which may be slow." boolean] 8)
#@58 Like `nnimap-split-download-body', but for internal use.
(defvar nnimap--split-download-body nil (#$ . 7192))
(defvar nnimap-process nil)
(defvar nnimap-status-string "")
(defvar nnimap-keepalive-timer nil)
(defvar nnimap-process-buffers nil)
#@65 compiler-macro for inlining `nnimap-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnimap-p (and (memq (type-of cl-x) cl-struct-nnimap-tags) t)) nil] 9 (#$ . 7441)])
(put 'nnimap-p 'compiler-macro 'nnimap-p--cmacro)
#@13 

(fn CL-X)
(defalias 'nnimap-p #[257 "\301
!>\205	\302\207" [cl-struct-nnimap-tags type-of t] 3 (#$ . 7751)])
(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)
#@69 compiler-macro for inlining `nnimap-group'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-group--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 8009)])
(put 'nnimap-group 'compiler-macro 'nnimap-group--cmacro)
#@57 Access slot "group" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-group #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 1] 5 (#$ . 8380)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-group side-effect-free t] 4)
#@71 compiler-macro for inlining `nnimap-process'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-process--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 8695)])
(put 'nnimap-process 'compiler-macro 'nnimap-process--cmacro)
#@59 Access slot "process" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-process #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 2] 5 (#$ . 9076)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-process side-effect-free t] 4)
#@72 compiler-macro for inlining `nnimap-commands'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-commands--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 9397)])
(put 'nnimap-commands 'compiler-macro 'nnimap-commands--cmacro)
#@60 Access slot "commands" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-commands #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 3] 5 (#$ . 9783)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-commands side-effect-free t] 4)
#@76 compiler-macro for inlining `nnimap-capabilities'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-capabilities--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 10107)])
(put 'nnimap-capabilities 'compiler-macro 'nnimap-capabilities--cmacro)
#@64 Access slot "capabilities" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-capabilities #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 4] 5 (#$ . 10514)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-capabilities side-effect-free t] 4)
#@77 compiler-macro for inlining `nnimap-select-result'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-select-result--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 10851)])
(put 'nnimap-select-result 'compiler-macro 'nnimap-select-result--cmacro)
#@65 Access slot "select-result" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-select-result #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 5] 5 (#$ . 11263)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-select-result side-effect-free t] 4)
#@72 compiler-macro for inlining `nnimap-newlinep'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-newlinep--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 11603)])
(put 'nnimap-newlinep 'compiler-macro 'nnimap-newlinep--cmacro)
#@60 Access slot "newlinep" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-newlinep #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 6] 5 (#$ . 11990)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-newlinep side-effect-free t] 4)
#@70 compiler-macro for inlining `nnimap-server'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-server--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 12315)])
(put 'nnimap-server 'compiler-macro 'nnimap-server--cmacro)
#@58 Access slot "server" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-server #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 7] 5 (#$ . 12692)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-server side-effect-free t] 4)
#@81 compiler-macro for inlining `nnimap-last-command-time'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-last-command-time--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 13011)])
(put 'nnimap-last-command-time 'compiler-macro 'nnimap-last-command-time--cmacro)
#@69 Access slot "last-command-time" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-last-command-time #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 8] 5 (#$ . 13443)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-last-command-time side-effect-free t] 4)
#@72 compiler-macro for inlining `nnimap-greeting'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-greeting--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 13795)])
(put 'nnimap-greeting 'compiler-macro 'nnimap-greeting--cmacro)
#@60 Access slot "greeting" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-greeting #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 9] 5 (#$ . 14182)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-greeting side-effect-free t] 4)
#@72 compiler-macro for inlining `nnimap-examined'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-examined--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 14507)])
(put 'nnimap-examined 'compiler-macro 'nnimap-examined--cmacro)
#@60 Access slot "examined" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-examined #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 10] 5 (#$ . 14895)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-examined side-effect-free t] 4)
#@75 compiler-macro for inlining `nnimap-stream-type'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-stream-type--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 15221)])
(put 'nnimap-stream-type 'compiler-macro 'nnimap-stream-type--cmacro)
#@63 Access slot "stream-type" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-stream-type #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 11] 5 (#$ . 15624)])
(byte-code "\300\301\302\303#\300\207" [function-put nnimap-stream-type side-effect-free t] 4)
#@78 compiler-macro for inlining `nnimap-initial-resync'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnimap-initial-resync--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 15959)])
(put 'nnimap-initial-resync 'compiler-macro 'nnimap-initial-resync--cmacro)
#@66 Access slot "initial-resync" of `nnimap' struct CL-X.

(fn CL-X)
(defalias 'nnimap-initial-resync #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 12] 5 (#$ . 16377)])
(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 #[385 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300	\311\"A@\300\n\312\"A@\300\313\"A@\300\f\314\"A@\f\211\203|\211@\315>\203d\211AA\262
\202Q\316>A@\203s\317\262
\202Q\320\321@\"\210\202Q\210\322\323\324\317\317&\207" [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))] 32 (#$ . 16767)])
(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 #[128 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300	\311\"A@\300\n\312\"A@\300\313\"A@\300\f\314\"A@\f\211\203|\211@\315>\203d\211AA\262
\202Q\316>A@\203s\317\262
\202Q\320\321@\"\210\202Q\210\322\323











&
\207" [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] 27 (#$ . 18250)])
(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)
#@59 Convert Gnus group name to IMAP mailbox name.

(fn GROUP)
(defalias 'nnimap-group-to-imap #[257 "\205\301\302O\303
\203\230\203\202(\304\305\"\203%\306\307O\202(P\310\"\207" [nnimap-namespace 0 -1 utf7-encode string-prefix-p "#" 1 nil t] 6 (#$ . 20096)])
(defalias 'nnimap-buffer #[0 "\301!\207" [nntp-server-buffer nnimap-find-process-buffer] 2])
(defalias 'nnimap-header-parameters #[0 "\301\302C\262
\303
B\262
\304\305!\203\306
B\262
\307
B\262
\310\311 \203$\312\202%\313\314\315\"\"
B\262
\310\316\237\"\207" [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"] 6])
#@50 

(fn ARTICLES &optional GROUP SERVER FETCH-OLD)
(defalias 'nnimap-retrieve-headers #[1025 "rq\210\301 \210\302\"\203Mr\303 q\210\301 \210\304\305\306\307\310!!\311 #\312\"\210\313\314p!!\2041\315\316!\210\317 \210db\210\320\321\322\312#\203F\323\324!\210\2027)\325\326p!!\210)\327\207" [nntp-server-buffer 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] 10 (#$ . 20901)])
(nnoo-register-function 'nnimap-retrieve-headers)
#@58 Transform server's FETCH response into parsable headers.
(defalias 'nnimap-transform-headers #[0 "eb\210\301\211\211\211\211\211\3022w
m?\205v
\303\304!\204+`\305y\210`|\210m\203\306\302\301\"\210\202\307\225b\210\303\310!\204O\311\312\212\311\313\301\314#\206I\311\304\301\314#\206Id)\314#\203x\315\316\305!!\262\307\224\317\\`|\210``\\{\262``\\|\210\320\321\322\323\324#\"c\210\202/\325 \210\311\326\327 \314#\205\207\316\305!\262\235\204\241\212\301y\210\330\314\303
!)\262
)\204\253\331 \327 T|\210\202
\301\262\325 \210\311\332\327 \314#\205\275\316\305!\262\325 \210\333\334\327 \314#\203\332\3351\326\336p!0\202\330\210\301\262
\325 \210\333\337\327 \314#\203(
\3401\361\336p!0\202\363\210\301\211:\203
\211@:\203
\211@\262
\202\363\211@;\203\"
\211@\226\341\232\203\"
\211A@\226\342\232\203\"
\343
8\202%
\344
8\262\210\331 \327 |\210\320\345\"c\210\305y\210\203B
\320\346\"c\210\203L
\320\347\"c\210\211\203V
\320\350\"c\210\311\351\301\314#\204a
db\210\331 \327 |\210\352c\210\305y\210B\262\202
0\207" [inhibit-changing-match-data 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" "^
$\\|^)
?$" "."] 12 (#$ . 21665)])
(defalias 'nnimap-unfold-quoted-lines #[0 "\300\211\301\302\300\303#\205-\304\305\306!!\262\307\224T`|\210``\\{\262
``\\|\210\310\311\"c\210\202\207" [nil re-search-forward " {\\([0-9]+\\)}
?\n" t string-to-number match-string 1 0 format "%S"] 6])
(defalias 'nnimap-get-length #[0 "\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])
#@15 

(fn RANGES)
(defalias 'nnimap-article-ranges #[257 "\300
\247\203\n\301!\207
A\247\203\302\303@A#\207
\211\203<\211@\211:\203.\302\303@A#\2021\301
!B\262
A\266\202\202\210\304\305\237\306#\207" [nil number-to-string format "%d:%d" mapconcat identity ","] 8 (#$ . 23744)])
#@43 

(fn SERVER &optional DEFS NO-RECONNECT)
(defalias 'nnimap-open-server #[769 "\301!\203\302\207\303\236\204\304\303DC\"\262\305\306#\210\211\203%\307!\207\307!\206.\310!\207" [nntp-server-buffer nnimap-server-opened t nnimap-address append nnoo-change-server nnimap nnimap-find-connection nnimap-open-connection] 7 (#$ . 24040)])
(nnoo-register-function 'nnimap-open-server)
#@15 

(fn BUFFER)
(defalias 'nnimap-make-process-buffer #[257 "r\306\307\310	$!q\210\311 \210\312 \210\313 \210\314\302!\210\315\314\303!\210\316\317\320\321!\322\323$\211pD\fBp
Bp)\207" [nnimap-address nnimap-server-port after-change-functions nnimap-object nnimap-connection-alist nnimap-process-buffers 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] 7 (#$ . 24438)])
#@27 

(fn ADDRESS PORTS USER)
(defalias 'nnimap-credentials #[771 "\301\302\303\304\305\306\307\310\311\312\313&\f@\211\2054\314
\307\"\314\315\"\316
!\203,\211 \202-\211\262
\314\317\"E)\207" [auth-source-creation-prompts ((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] 16 (#$ . 24964)])
(defalias 'nnimap-keepalive #[0 "\306 \307	\211\205s\211@\310
!\203lr\211q\210\n\203k\311\n!>\204(\312\313\314\nD\"\210\n\315H\203k\316\fA\317\311\n!>\204B\312\313\314\nD\"\210\n\315H\"\"\203k\3201c\321\3221[\323\324!0\202]\210\321)0\210\202k\210\307\325\326!\210)
A\266\202\202\262
)\207" [nnimap-streaming nnimap-process-buffers nnimap-object cl-struct-nnimap-tags nnimap-keepalive-intervals inhibit-quit current-time t buffer-live-p type-of signal wrong-type-argument nnimap 8 time-less-p time-subtract (quit) nil (error) nnimap-send-command "NOOP" eval (ignore nil) quit-flag] 11])
#@15 

(fn BUFFER)
(defalias 'nnimap-open-connection #[257 "\203\f	\302=\203\f\303	\302=\203=\304\305\211\211:\2037@\262\306!)\262
\307=\2037A\262\305\262
\202
\266\204\202@\306
!\211\307=?\205H\211\207" [nnimap-server-port nnimap-stream undecided ssl (ssl network) nil nnimap-open-connection-1 no-connect] 7 (#$ . 26018)])
#@13 

(fn PORT)
(defalias 'nnimap-map-port #[257 "\301=\203\302 @\303X\203\211\304\232\203\305\207\207" [system-type windows-nt x-server-version 5 "imaps" "993"] 3 (#$ . 26363)])
#@15 

(fn BUFFER)
(defalias 'nnimap-open-connection-1 #[257 "\204	\203\306	@	@\307#r\310
!q\210\311\211\f\312\267\202>\313\314\315
#\210\316\202B\313\314\317
#\210\320\202B\313\314\321
#\210\322\202B\323\324\f\"\325\211@\203O@B\262\326\327p
\330@!\331\f\332\333\334\333\335A\336\337\340\333\341\342\343\344\345\346&\211@
A\347
\350\"\347\351\"\347\331\"\352\353!\203\220\354!\355>\204\220\325\262\356!\357=\203\240\360\361\333#\210\362B!C>\204\262\363\364\353BD\"\210B\211\365I\266\362B!C>\204\315\363\364\353BD\"\210B\211\366I\266\204\350\367\353\370

@\f%\266\371\202\270\372\325\"\210\373\325\333D\374#)\266\203\204\n
\367\353\375#\266\207\202\270\362B!C>\204
\363\364\353BD\"\210B\211\376I\266\362B!C>\2047
\363\364\353BD\"\210B\211\377\201J\201K\201L!\"I\266\201M\325\333D\374#)\266\203\204\201E\201N=\203r
\201O\201P D\202\201
\201Q\201R
D!F#\211\262	\204\215
\325B\202\201\333G\201S@	A@\"\262	)@\2033\201T\365	8!\203\265
\3658 \210\201U\201V!AA\211\203\367
\211@\211@\226\201V\230\203\360
\362B!C>\204\340
\363\364\353BD\"\210B\211\377\201J\201KA\"I\266
A\266\202\202\276
\210H\203\201\201W\201X!\203\201\201Y \210\201Z\201[\201X!!\210\201\\ \374\201]\"\203/\201^\201_\"I\210\202\201\352\353!
D\211\203b\211@\211\203Z\211@\201`\201a\201b$\210
A\266\202\202@\210
A\266\202\2028\210\201c\362B!C>\204x\363\364\353BD\"\210B\365H!\210\325BB\205\266\201W\201d!\203\230\201U\201e!\210\313\314\201f
#\210\362B!C>\204\262\363\364\353BD\"\210B\365H\266\207*\266\203)\207" [nnimap-keepalive-timer nnimap-keepalive-intervals coding-system-for-read coding-system-for-write nnimap-stream nnimap-address run-at-time 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 32 plain 32 starttls 32 shell 42 ssl 52 tls 52)) 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 #[257 "\301
\302\303\304#)\266\203\205\305\207" [inhibit-changing-match-data "STARTTLS" nil t string-match "1 STARTTLS
\n"] 8 "\n\n(fn CAPABILITIES)"] 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 4 nnimap-server-port nnimap-shell-program nnimap-object cl-struct-nnimap-tags inhibit-changing-match-data nnimap-authenticator nnimap-user nnimap-inhibit-logging nnimap-use-namespaces nnimap-namespace 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"] 28 (#$ . 26551)])
(autoload 'rfc2104-hash "rfc2104")
#@22 

(fn USER PASSWORD)
(defalias 'nnimap-login #[514 "\303\304!\2043\305!	>\204\306\307\310D\"\210\311H\312=\2033\n\203-\n\313=\204-\n\314=\2033\315\316#\207\303\317!\203P\n\320=\203P\315\321\322\323\324\325!\325!#!\"\207\303\326!\203\207\n\203`\n\327=\203\207\330 \210\331\332!\333\334!\335\336p!\322\337\340\341\342\343\344!%Q\345\"\346P\"\210\347!\207\303\304!\204\243\n\203\235\n\313=\204\235\n\314=\203\243\315\316#\207\303\350!\205\304\n\203\263\n\351=\205\304\315\352\322\323\353\325!\325!#\345\"\"\207" [nnimap-object cl-struct-nnimap-tags nnimap-authenticator nnimap-capability "LOGINDISABLED" type-of signal wrong-type-argument nnimap 11 tls anonymous login nnimap-command "LOGIN %S %S" "AUTH=XOAUTH2" xoauth2 "AUTHENTICATE XOAUTH2 %s" base64-encode-string format "user=%s
auth=Bearer %s

" nnimap-quote-specials "AUTH=CRAM-MD5" cram-md5 erase-buffer nnimap-send-command "AUTHENTICATE CRAM-MD5" nnimap-wait-for-line "^\\+\\(.*\\)\n" process-send-string get-buffer-process " " rfc2104-hash md5 64 16 base64-decode-string t "
\n" nnimap-wait-for-response "AUTH=PLAIN" plain "AUTHENTICATE PLAIN %s" "%s%s"] 16 (#$ . 30189)])
#@15 

(fn STRING)
(defalias 'nnimap-quote-specials #[257 "\300\301\302\"r\211q\210\303\304\"\216
c\210eb\210\305\306\307\302#\203'\310u\210\311c\210\312u\210\202\313 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward "[\\\"]" nil -1 "\\" 1 buffer-string] 6 (#$ . 31368)])
#@24 

(fn PARAMETER ELEMS)
(defalias 'nnimap-find-parameter #[514 "\300
\211\203:\211@\211@\232\203\211A\262\2023\211@\301\232\2033\211A@:\2033\211A@@\232\2033\211A@A\262
A\266\202\202\210\207" [nil "OK"] 7 (#$ . 31733)])
#@30 

(fn &optional SERVER DEFS)
(defalias 'nnimap-close-server #[512 "\300\301#\205\3021\303\304\305 !!0\210\202\210\306\301\"\210\307\207" [nnoo-change-server nnimap (error) delete-process get-buffer-process nnimap-buffer nnoo-close-server t] 6 (#$ . 31970)])
(nnoo-register-function 'nnimap-close-server)
(defalias 'nnimap-request-close #[0 "\300\207" [t] 1])
(nnoo-register-function 'nnimap-request-close)
#@25 

(fn &optional SERVER)
(defalias 'nnimap-server-opened #[256 "\302
\303!\203\304\305#\202
\232\266\202\2055	\2055	\211\205-\306\307!\211\262!\205-\211\262
\2055\310	!\207" [nnoo-parent-backend nntp-server-buffer nnimap nnoo-current-server format "%s+%s" buffer-live-p get-buffer nnimap-find-connection] 8 (#$ . 32391)])
(nnoo-register-function 'nnimap-server-opened)
#@25 

(fn &optional SERVER)
(defalias 'nnimap-status-message #[256 "\207" [nnimap-status-string] 2 (#$ . 32780)])
(nnoo-register-function 'nnimap-status-message)
#@49 

(fn ARTICLE &optional GROUP SERVER TO-BUFFER)
(defalias 'nnimap-request-article #[1025 "rq\210\302\"\303\211;\203\304	#\262\205\226\205\226\305 \210r\306 q\210\305 \210	\203f\307\310\"\210eb\210\311\312\303\313#\203f\3141]`\315\316!\210\317
`\"\210\211b\210\320p!\262
0\202_\210\303\262
\321
!\262
\203s\322#\202w\323!\205\225pr\206\201q\210r\211q\210\324 )c\210\325 \210)\210B)\266\203)\207" [nntp-server-buffer nnimap-fetch-partial-articles 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] 11 (#$ . 32945)])
(nnoo-register-function 'nnimap-request-article)
#@49 

(fn ARTICLE &optional GROUP SERVER TO-BUFFER)
(defalias 'nnimap-request-head #[1025 "\301\"\205@r\302 q\210;\203\303#\262\205?\304\305\306\307 \"\"\210pr
\206-q\210\310 \210\311
!\210\312 \210)B\262
)\207" [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] 9 (#$ . 33834)])
(nnoo-register-function 'nnimap-request-head)
#@40 

(fn ARTICLES &optional GROUP SERVER)
(defalias 'nnimap-request-articles #[769 "rq\210\301\"\211\205A\302 \210r\303 q\210\302 \210\304\305 \203!\306\202\"\307\310\311!!\"\205@prq\210r\211q\210\312 )c\210\313 \210)\210\314)\262
)\207" [nntp-server-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] 9 (#$ . 34352)])
(nnoo-register-function 'nnimap-request-articles)
#@34 

(fn ARTICLE &optional COMMAND)
(defalias 'nnimap-get-whole-article #[513 "\300
\206\301 \203\302\202\303\"eb\210\304\305\306\307#\204\306\262
\211\205C\310 \210o\204.e`|\210\311 \312 \313y\210`|\210`
\\b\210`d|\266\307\207" [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] 7 (#$ . 34903)])
#@19 

(fn CAPABILITY)
(defalias 'nnimap-capability #[257 "\211\302!	>\204\303\304\305D\"\210\306H\235\207" [nnimap-object cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 4] 6 (#$ . 35354)])
(defalias 'nnimap-ver4-p #[0 "\300\301!\207" [nnimap-capability "IMAP4REV1"] 2])
#@32 

(fn ARTICLE PARTS STRUCTURE)
(defalias 'nnimap-get-partial-article #[771 "\300\301\302 \203\f\303\202
\304\302 \203\305\306\307#\202!\305\310\307#$\211\205)\311!\207" [nnimap-command "UID FETCH %d (%s %s)" nnimap-ver4-p "BODY.PEEK[HEADER]" "RFC822.HEADER" mapconcat #[257 "\300\301\"\207" [format "BODY.PEEK[%s]"] 4 "\n\n(fn PART)"] " " #[257 "\300\301\"\207" [format "RFC822.PEEK[%s]"] 4 "\n\n(fn PART)"] nnimap-convert-partial-article] 11 (#$ . 35648)])
#@18 

(fn STRUCTURE)
(defalias 'nnimap-convert-partial-article #[257 "eb\210\300 \301\211\302 \303y\210`|\210`\\b\210\304\305!\203E\306\303!\262\300 \206%\307\262\310 \210`\303y\210`|\210
``\\{D
B\262
``\\|\210\202`d|\210\311\"\210\312\207" [nnimap-get-length nil line-beginning-position 1 looking-at ".*BODY\\[\\([.0-9]+\\)\\]" match-string 0 beginning-of-line nnimap-insert-partial-structure t] 8 (#$ . 36126)])
#@39 

(fn STRUCTURE PARTS &optional SUBP)
(defalias 'nnimap-insert-partial-structure #[770 "\300\211\211@:\203\211A\262
\202\211@\262\211A@\262
\301
\235\211\203%\211A@\262\266\2033\302\303\227#c\210@;\204\246\304
\305\261\210@@:\203T\306\211A\262\242\307#\210\2023\211A\262\242\302\310@\227A@\227#c\210\311\312\3138\"\203\302\314\311\312\3138\"A@\"c\210\202\202\305c\210\302\315\3168\"c\210\305c\210\317\3208\"\203\242\317\3208\"A@c\210\210\2023\304
\321\261\207" [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"] 12 (#$ . 36553)])
#@18 

(fn STRUCTURE)
(defalias 'nnimap-find-wanted-parts #[257 "\300\301\302\"!\207" [flatten-tree nnimap-find-wanted-parts-1 ""] 5 (#$ . 37316)])
#@25 

(fn STRUCTURE PREFIX)
(defalias 'nnimap-find-wanted-parts-1 #[514 "\301\302@:\203t\211A\262\242\211@:\2031\303
\304\230\203\"\305!\202)\306\307#\"B\262\202l\306\310@A@#\304\230\203E\305!\202L\306\307#\311\233
\240\210\312=\203^\211\313\232\202b\314\"\203j\211B\262\266T\262\210\202\211\237\207" [nnimap-fetch-partial-articles 1 nil nnimap-find-wanted-parts-1 "" number-to-string format "%s.%s" "%s/%s" 9 t "1" string-match] 11 (#$ . 37466)])
#@47 

(fn GROUP &optional SERVER DONT-CHECK INFO)
(defalias 'nnimap-request-group #[1025 "\302?\205\n\303\"?\205\"
\205
C\304r	q\210\205b\2031\305\303\"8\211\262\204G\306\"\307\310$\210\305\303	\"8\266\202\211\206L\311\262
\312 \210\313\314A@Z@A%c\210\310)\207" [nnimap-current-infos nntp-server-buffer 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"] 13 (#$ . 37956)])
(nnoo-register-function 'nnimap-request-group)
#@36 

(fn GROUP &optional SERVER INFO)
(defalias 'nnimap-request-group-scan #[769 "\304\305\"\205\243\305\211\211r\306 q\210\307 \210\310\311\312!\"\310\313!\314!	>\204+\315\316\317D\"\210\211\320\nI\266\321
!\210\322\323\320\f\324\257C!!\262\203`\203`\325C\"\210\326\327@\n\"\"\210db\210\330@8\211\203p\211S\202u\331@8\206y\332\262\333@8\206\210\211\206\210\320\266\204)rq\210\307 \210\334\335ZT\n%c\210)\266\336\207" [nnimap-object cl-struct-nnimap-tags gnus-active-hashtb nntp-server-buffer 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] 15 (#$ . 38512)])
(nnoo-register-function 'nnimap-request-group-scan)
#@36 

(fn GROUP &optional SERVER ARGS)
(defalias 'nnimap-request-create-group #[769 "\300\301\"\205r\302 q\210\303\304\305!\"@)\207" [nnimap-change-group nil nnimap-buffer nnimap-command "CREATE %S" nnimap-group-to-imap] 7 (#$ . 39451)])
(nnoo-register-function 'nnimap-request-create-group)
#@37 

(fn GROUP &optional FORCE SERVER)
(defalias 'nnimap-request-delete-group #[769 "\300\301\"\205r\302 q\210\303\304\305!\"@)\207" [nnimap-change-group nil nnimap-buffer nnimap-command "DELETE %S" nnimap-group-to-imap] 7 (#$ . 39749)])
(nnoo-register-function 'nnimap-request-delete-group)
#@40 

(fn GROUP NEW-NAME &optional SERVER)
(defalias 'nnimap-request-rename-group #[770 "\300\301\"\205r\302 q\210\303 \210\304\305\306!\306!#@)\207" [nnimap-change-group nil nnimap-buffer nnimap-unselect-group nnimap-command "RENAME %S %S" nnimap-group-to-imap] 8 (#$ . 40048)])
(nnoo-register-function 'nnimap-request-rename-group)
(defalias 'nnimap-unselect-group #[0 "\300\301!\207" [nnimap-command "EXAMINE DOES.NOT.EXIST"] 2])
#@31 

(fn GROUP &optional SERVER)
(defalias 'nnimap-request-expunge-group #[513 "\300\"\205r\301 q\210\302\303!@)\207" [nnimap-change-group nnimap-buffer nnimap-command "EXPUNGE"] 5 (#$ . 40488)])
(nnoo-register-function 'nnimap-request-expunge-group)
#@13 

(fn SPEC)
(defalias 'nnimap-get-flags #[257 "\300\211\211r\301 q\210\302 \210\303\304\305\"!\210`\262
\306ed\307\310\311%\210eb\210\312\313\311#\203@\314p!\262\315>A@\316>A@BB\262\202!)\237\207" [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] 10 (#$ . 40746)])
#@31 

(fn GROUP &optional SERVER)
(defalias 'nnimap-close-group #[513 "\301=\205\302\303\304#\210r\305 q\210\306\307!)\207" [nnimap-expunge on-exit nnoo-change-server nnimap nil nnimap-buffer nnimap-command "EXPUNGE"] 6 (#$ . 41146)])
(nnoo-register-function 'nnimap-close-group)
#@76 

(fn ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST INTERNAL-MOVE-GROUP)
(defalias 'nnimap-request-move-article #[1540 "\301\302\303\"r\211q\210\304\305\"\216\306 \210
\203\307\202\310p$\205\231\311\312!\203\200r\313 q\210\314\315!\205;\316\315!\315\232\211\203C\317\202D\320\321
\322!#\211@\203[\204[\323!\210\324\325\203iAA@\202lA@\"\206y\326$B\266\203)\202\227\327\303\"\211\205\225\330\"\210\323	!\210\211\262
\262
*\207" [nnimap-request-articles-find-limit generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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] 17 (#$ . 41432)])
(nnoo-register-function 'nnimap-request-move-article)
#@46 

(fn ARTICLES GROUP &optional SERVER FORCE)
(defalias 'nnimap-request-expire-articles #[1026 "\204\302\207\303\"\204\207\211\203!\304=\203!\305\306!!\210\302\207\211\204+	\307=\203/\2025\310\311!\"\211\204;\207\304=\203J\305\306!!\210\202Q\312
#\262
\313\"\207" [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] 9 (#$ . 42470)])
(nnoo-register-function 'nnimap-request-expire-articles)
#@30 

(fn ARTICLES GROUP SERVER)
(defalias 'nnimap-process-expiry-targets #[771 "\306\211\307=\203\262
\202&\310!\204\245
\311\312!\313\314\"\211\203*\211<\203*\211\206F
\315
	\"A\206F
\211\316\232\203<\n\2062
\315
\"A\2062
\315
\f\"A\2062

\211\203i
\313\317@@@@@A@#\232\204i\211A\262
\202M\211@@\262
\2062
5\211\203\215
\313\317@@@A@#\232\204\215\211A\262
\202s\211@\262
\2062
6A\306\211\2030
\211A\262\242\320
8\262
\262
;\204\231\306\321C\3222!
\211
\242\206\300\n\240\210\204\316\323\324\325\"	\"\210\fD\211\203\346\211@\323\324\326\"\"\210
A\266\202\202\321\210\211\242A@\327\235\203\371\313\330\242@\"\202
\313\317\242@\242A@#\211\242B\204
\211	\235\204
\315
@	\"\204
\211	B
\266\2020\266\204\232\203\231
\262
\306\262\202\231\266\202\211\203C
\315	\"\204C


B	B\211\262
\262
\"\203\245
\331\"\203&r\332 q\210\333\334\335$\210\336\337!\205l
\340\337!\337\232\341
\203u
\342\202v
\343\344\345	!!\346\347\350\"\203\215
\211\351\225\306O\202\216
\211\262
!#\210\211\203\236
\262\210\202\241
\266\202)\202&\211\203!\211@\352\353\321\"r\211q\210\324\354\"\216\355 \210\356		p$\203\310!\203\324

!\262
\203
\307=\204\357\321\"\204\353
\360!\203\377
\361	\"\210\333\334\362\n%\210\202\306\262\202\333\334\363\n$\210
\203B\262*\266
A\266\202\202\246
\210\211\237\262
\331\"\210\211\2038\364\345!!\210\211\262
\207" [nnmail-expiry-target gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers nil delete functionp gnus-server-equal gnus-group-method format "nnimap:%s" assoc "native" "%s:%s" 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (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 "^[^:]+:" 0 generate-new-buffer " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 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-secondary-select-methods gnus-newsrc-alist] 22 (#$ . 43076)])
#@14 

(fn GROUP)
(defalias 'nnimap-find-expired-articles #[257 "\301
\302\211#\211\205.r\303 q\210\304\305\306\307\310\"\226)\"\211@\205+\311\312\313\314\315\316A\"A\"\"\262
)\207" [system-time-locale 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"] 10 (#$ . 45671)])
#@168 Search for message with MESSAGE-ID in GROUP from SERVER.
If LIMIT, first try to limit the search to the N last articles.

(fn GROUP SERVER MESSAGE-ID &optional LIMIT)
(defalias 'nnimap-find-article-by-message-id #[1027 "r\300 q\210\301 \210\302\303\304$\211<\2057\30527\211A\211\2054\211@\211A@\306\232\203-\307\305@\"\210
A\266\202\202\262
0\310\311\203N\203N\312\313\314!ZT\"\202O\315#\316
!\205}\317\320\321\322 \"A!@\211\203k\314
!\202{\205{\205{\323#\262
\266\203)\207" [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 "" nnimap-wait-for-response last assoc "SEARCH" nnimap-parse-response nnimap-find-article-by-message-id] 12 (#$ . 46067)])
#@33 Delete ARTICLES.

(fn ARTICLES)
(defalias 'nnimap-delete-article #[257 "r\301 q\210\302\303\304!\"\210\305\267\202.\306\307!\203!\302\310\304!\"\202M\311\312\313\"\210\314\202M\314\202M\306\307!\203=\302\310\304!\"\202M\203G\302\315!\202M\311\316\317\"\210\314)\207" [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."] 5 (#$ . 46866)])
#@31 

(fn &optional GROUP SERVER)
(defalias 'nnimap-request-scan #[512 "\302\303\"\2059\2059	\2059\304\305\306#\210<\2031\211\203-\211@\307 \210\211A\262
)\202\210\2024\307 \210\304\305\310#\207" [nnimap-inbox nnimap-split-methods nnimap-change-group nil nnheader-message 7 "nnimap %s splitting mail..." nnimap-split-incoming-mail "nnimap %s splitting mail...done"] 6 (#$ . 47605)])
(nnoo-register-function 'nnimap-request-scan)
#@14 

(fn MARKS)
(defalias 'nnimap-marks-to-flags #[257 "\301\211\211\203 \211@\211\236A@\211\262\203B\262
A\266\202\202\210
\207" [nnimap-mark-alist nil] 7 (#$ . 48051)])
#@38 

(fn GROUP STATUS &optional SERVER)
(defalias 'nnimap-request-update-group-status #[770 "\300\301\"\205!\302\303\"\211\205r\304 q\210\305\306A@\307!#)\262
\207" [nnimap-change-group nil assoc ((subscribe "SUBSCRIBE") (unsubscribe "UNSUBSCRIBE")) nnimap-buffer nnimap-command "%s %S" nnimap-group-to-imap] 9 (#$ . 48236)])
(nnoo-register-function 'nnimap-request-update-group-status)
#@39 

(fn GROUP ACTIONS &optional SERVER)
(defalias 'nnimap-request-set-mark #[770 "\300\"\205\205\301r\302 q\210\303 \210\211\203z\211@\211
G\304U\203(
\211A\262\242\202/\305\306\307GD\"
\211A\262\242\242\310
>\203H
\311=\203H\312
B\262
\313
!\211\203q\314\315\316!\317\267\202g\320\202h\321\202h\322\202h\301\323\324\325#$\262\266
A\266\202\202\210\211\205\202\326
!)\262
\207" [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 91 add 95 set 99)) "-" "+" "" mapconcat identity " " nnimap-wait-for-response] 19 (#$ . 48634)])
(nnoo-register-function 'nnimap-request-set-mark)
#@36 

(fn GROUP &optional SERVER LAST)
(defalias 'nnimap-request-accept-article #[769 "\204\304\305!@@\262\306\307\"\205\273\310 \210\311\312!\307\211\313 \210\314ed\"\262
r\315 q\210\316\317\320#\2061\211\211\262\205\270\321!	>\204F\322\323\324D\"\210\325H\232\203R\326 \210\327 \210\330\331\332!G#\262\n\204h\333\334!\210\335\336p!\"\210\335\336p!\321!	>\204\202\322\323\324D\"\210\337H\203\214\340\202\215\341\"\210\342!\343
!\204\242\344\324\345#\210\307\202\266\346\347@\"\206\265\350$B\262
)\266\203\207" [nnimap-object cl-struct-nnimap-tags nnimap-streaming nnimap-request-articles-find-limit nnmail-article-group #[257 "\211CC\207" [] 2 "\n\n(fn GROUP)"] 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] 13 (#$ . 49502)])
(nnoo-register-function 'nnimap-request-accept-article)
#@33 

(fn GREETING-MATCH TYPE DATA)
(defalias 'nnimap-process-quirk #[771 "\302!	>\204\303\304\305D\"\210\306H\205z\307\302!	>\204&\303\304\305D\"\210\306H\"\205z
\310=\205z\311\312\"\205z\313\314\315\"\211\316\267\202O\317\305\320\"\202x
\202x\321\322\323\"r\211q\210\324\325\"\216c\210eb\210\326\312\327\323#\203s\330\331\323\211#\210\202b\332 *\262
\262
\207" [nnimap-object cl-struct-nnimap-tags type-of signal wrong-type-argument nnimap 9 string-match append string-search "" 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 68 99 75)) nnheader-report "Aborted APPEND due to NUL characters" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] search-forward nil replace-match "" buffer-string] 9 (#$ . 50810)])
#@14 

(fn VALUE)
(defalias 'nnimap-ok-p #[257 "\211:\205\211@:\205\211@@\300\232\207" ["OK"] 3 (#$ . 51818)])
#@18 

(fn NAME LIST)
(defalias 'nnimap-find-uid-response #[514 "\300\301\"!@\211\205\302
!\207" [last nnimap-find-response-element string-to-number] 6 (#$ . 51934)])
#@18 

(fn NAME LIST)
(defalias 'nnimap-find-response-element #[514 "\300
\211\203\211@\211:\203
@\232\203\211\262
A\266\202\202\210\207" [nil] 7 (#$ . 52106)])
#@29 

(fn ARTICLE GROUP BUFFER)
(defalias 'nnimap-request-replace-article #[771 "\300\301!\205r
q\210\302\300\303#\211\262)\205\304C!\210\211A\207" [nil nnimap-change-group nnimap-request-accept-article t nnimap-delete-article] 8 (#$ . 52278)])
(nnoo-register-function 'nnimap-request-replace-article)
(defalias 'nnimap-add-cr #[0 "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 #[0 "\301 \210\302\303!\211\205
\211G
\205
\304\305O\306\307!\210\310ed\311\312\313%\210eb\210\314 \210eb\210\315\316\306\313#\203\217\317p!\317p!\210\306\320\321\306w\210`\306\210\322\306x\210`\"\323>\204\212\324
;\203Z
\202^\325\326\"\313\"\203k
\232\203o\211\202\202\327\"\203\211\306O\202\202\330
P\211B\262\266\266\202+\211\237\207" [nnimap-namespace erase-buffer nnimap-send-command "LIST \"\" \"*\"" 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 "#"] 12])
#@18 

(fn SEQUENCES)
(defalias 'nnimap-get-responses #[257 "\300
\211\203%\211@eb\210\301\302\303\"\300\304#\203\211\305 DB\262
A\266\202\202\210\207" [nil re-search-forward format "^%d " t nnimap-parse-response] 8 (#$ . 53431)])
#@25 

(fn &optional SERVER)
(defalias 'nnimap-request-list #[256 "\303\304\"\205\377rq\210\305 \210r\306 q\210\307 )\304\211\205\374r\306 q\210\310	!\n>\2040\311\312\313	D\"\210	\211\314\304I\266\211\203g\211@\310	!\n>\204M\311\312\313	D\"\210	\211\315I\266\316\317\320!\"
DB\262
A\266\202\2028\210\321@@!\210\322\323\324\"!\262
)\211\211\203\372\211@\211@
A@\325\"A@\211\203\361
@@\326\232\203\361\327\330\"\304\211\211\203\270\211@\211A@\331\232\203\261\332
@!\262
A\266\202\202\235\210\203\304\332@!S\262
\204\322\333\334\"c\266\202\363\211\335U\203\345\333\336\211T$c\266\202\363\333\337\206\355#c\266\266
A\266\202\202x\210\340\266\203)\207" [nntp-server-buffer nnimap-object cl-struct-nnimap-tags 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] 17 (#$ . 53671)])
(nnoo-register-function 'nnimap-request-list)
#@30 

(fn DATE &optional SERVER)
(defalias 'nnimap-request-newgroups #[513 "\302\303\"\2053rq\210\304 \210r\305 q\210\306 )\211\2030\211@\307
	\"\204)\310\311\"c\210
A\266\202\202\210)\312\207" [nntp-server-buffer nnimap-current-infos nnimap-change-group nil erase-buffer nnimap-buffer nnimap-get-groups assoc format "%S 0 1 y\n" t] 7 (#$ . 54840)])
(nnoo-register-function 'nnimap-request-newgroups)
#@21 

(fn SERVER INFOS)
(defalias 'nnimap-retrieve-group-data-early #[514 "\302\303\"\2057
\211\2057
r\304 q\210\305 \210\306!	>\204\"\307\310\311D\"\210\211\312\303I\266\306!	>\2048\307\310\311D\"\210\211\313\314I\266\315\316!\303\211\211\211\211\211\211\211\2032
\211@\317
8\262	\211@\320\321\"\203g\211\314\225\303O\202h\211\262
\262\322	\236A\262\323\3248\236\262\325	\236A\262\326	\236A\262\306!	>\204\227\307\310\311D\"\210\211\327I\266	\203\322\203\322\203\322\203\322\203\322\330\331\332!\333\316!		%\334\303\334\257B\262\202+
\203\332\335\202\333\336\303\203\366\203\366\203\366\312	A\337Z]\262
\202
\306!	>\204
\307\310\311D\"\210\211\313\313HTI\266\312\262
\330\340\332	!#\330\341\"\257\nB\262\n\266
A\266\202\202K\210\266\210)\207" [nnimap-object cl-struct-nnimap-tags nnimap-change-group nil nnimap-buffer erase-buffer type-of signal wrong-type-argument nnimap 1 12 0 nnimap-capability "QRESYNC" 5 string-match "^[^:]+:" 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"] 19 (#$ . 55251)])
(nnoo-register-function 'nnimap-retrieve-group-data-early)
#@16 

(fn COMMAND)
(defalias 'nnimap-quirk #[257 "\303
\"\211\203\"\304
A@\305	!\n>\204\306\307\310	D\"\210	\311H\"\204$
\207\312
8\207" [nnimap-quirks nnimap-object cl-struct-nnimap-tags assoc string-match type-of signal wrong-type-argument nnimap 9 2] 8 (#$ . 56530)])
#@53 

(fn SERVER INFOS SEQUENCES &optional DONT-INSERT)
(defalias 'nnimap-finish-retrieve-group-infos #[1027 "
\205\211\302\303\304#\205\211\305\306 !\205\211\307\305\306 !!\310>\205\211r\306 q\210\311@A@\312=\2033@@\2027@A@\304\"\205\210\313\314\315\237!!\"\210\211?\205\210rq\210\316 \210\211\205\205\211@\211@\317
	\"\211\203|\320\321\322\323\"\203t\324\225\303O\202uA@$c\210\266
A\266\202\202S\262
))\207" [nntp-server-buffer gnus-active-hashtb 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 "^[^:]+:" 0] 13 (#$ . 56808)])
(nnoo-register-function 'nnimap-finish-retrieve-group-infos)
#@20 

(fn FLAGS INFOS)
(defalias 'nnimap-update-infos #[514 "\211\211\2053\211@\211@\300\301\"\203\211\302\225\303O\202\211\262
\304
\"A\211\203*\305\"\210\266
A\266\202\202
\207" [string-match "^[^:]+:" 0 nil assoc nnimap-update-info] 9 (#$ . 57613)])
#@19 

(fn INFO MARKS)
(defalias 'nnimap-update-info #[514 "\211
G\304U\203
\211A\262\242\202\305\306\307GD\"
\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262	\242\211A\262\n\242	\242	\204j\204j\310\3118\236A\211\205i\312@#\207\313\3118\236A\211\205\204\211\232?\205\204?\206\204\314V\262
\203\225\315
\313\"\210\315
\316\"\207\f@\205\237\314U\317\"\206\255\310\3118\236A\203\267S\262
\204\302\317\"\204
\312\203\340\206\317@@^
\206\331AA]B\202

\203\362\f\203\362
B\202

\n\203\377\n\211SB\202

	\203\f
	\211SB\202

\320#\210\202#
\312@
\206
SB#\210\321=\204@
\322\323\324\n>\204<
\325\n>\205>
	#\210\323\3118\236A\211\262\203\272\203f
\204f
\326\327!$\210\202\272\204n
\314\262\330\331\211\332\325\236A\333\236A\"\"\334\236A\"!\335	
B\"	\314V\203\264
\336\n\314V\203\254
\337\314\fSB\3408\"\202\260
\3408\"\262
<\203\301
\325	>\203\312
AA\211\240\266\3418\262	A\211\203X\211@\n<\203\364
\342
AA@\"@>\204\364
\324>\203Q\342
@\"\330\342AA@\"\206\342\343A@\n\"\"\206\342A@\"A!\344\"\262
A\262
\203B
\314V\203B\335B\"\262\336\"\262
\211\203O@
BB\262\266
A\266\202\202\322
\210\345\236\317\"\203p\335
\330!\"\202}\346A\347\317\"\"\"
@\314V\203\216\350\314@SB\"\262
\203\232
\241\266\202\244\345
BB\262\266\351\211\203\262\352\341\"\210\341\233\211\240\266\353\f\236A
\203\330\211\203\330\354
!@AV\203\330\355BCB\210\322\310\317\"#\210\322\313#\210\322\316#\210\356\317\"\"\207" [gnus-active-hashtb nnimap-mark-alist obarray nnmail-split-history 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 %Deleted %Flagged gnus-range-difference gnus-range-nconcat gnus-sorted-range-intersection 2 3 assoc intern delq unexist gnus-add-to-range gnus-list-range-difference gnus-range-add t gnus-info--grow-entry %Recent last 0 nnimap-store-info] 27 (#$ . 57881)])
#@37 

(fn INFO EXISTING VANISHED FLAGS)
(defalias 'nnimap-update-qresync-info #[1028 "AA\211\302\211\303\304	8\"\305\236A\"\306\236A\"\240\266\3078A\211\203\227\211@\310
@\"\310AA@\"\206K\310\311A@	\"\"\206K\310A@\"A\211\203\216\312\"\262
A\262\302\"\262\313\314\315\"!\"\262
\203y@BB\262\316\211\203\206\317\307\"\210\307\233\211\240\266\266
A\266\202\202!\210\205\313\320
\236\303
A\"
\203\260

\241\266\202\267\320
BB\266\203
\316\211\203\303\317\307\"\210\307\233\211\240\266\204\207" [nnimap-mark-alist obarray gnus-add-to-range gnus-range-add 2 %Flagged %Seen 3 assoc intern delq gnus-remove-from-range gnus-compress-sequence gnus-sorted-complement t gnus-info--grow-entry unexist] 15 (#$ . 60276)])
#@15 

(fn IRANGE)
(defalias 'nnimap-imap-ranges-to-gnus-ranges #[257 "\211G\300U?\205@\301\302\303\"\211\203;\211@\304\305\"\203-\302
\305\"\306
@!\306A@!B\262
\2020\306
!B\262
A\266\202\202
\210\211\237\262
\207" [0 nil split-string "," string-search ":" string-to-number] 8 (#$ . 61048)])
#@20 

(fn INFO ACTIVE)
(defalias 'nnimap-store-info #[514 "
@\301\302\"\203\211\303\225\304O\202\211\262
\305
\"\211\203\"\211D\241\207
EB\211\207" [nnimap-current-infos string-match "^[^:]+:" 0 nil assoc] 7 (#$ . 61351)])
#@15 

(fn GROUPS)
(defalias 'nnimap-flags-to-marks #[257 "\300\211\211\211\211\211\211\211\211\211\n\211\203\257\211@\211@\262\211A@\262\n\301
8\262\302
8\262\303
8\262\304
8\262\305
8\262\306
\233\262	@@\300\211\211\f\211\203\213\211@\211@\262\211@B\262\211A\211\203\203\211@\307
\"\262\204r\211@DB\262\202|@AB\241\210
A\266\202\202T\210
A\266\202\202B\210
\257B\262\266
A\266\202\202\f\210	\207" [nil 2 3 4 5 6 7 assoc] 28 (#$ . 61589)])
#@18 

(fn SEQUENCES)
(defalias 'nnimap-parse-flags #[257 "eb\210\300ed\301\302\303%\210\304\211\211\211\211\211\211\211\211\211\n\211\203P
\211@\211
G\305U\203.
\211A\262\242\2025\306\307\310GD\"
\211A\262\242\211A\262\242\211A\262\242\242`\262\311\312\313\"\304\303#\203G
\314y\210`\262b\210\211\315\232\203w\311\316\303#\205x\317p!\202x\320\262\fb\210\311\321\303#\205\212\317p!\262b\210\322\323\303#\205\234\324\314!\262b\210\325=\205\264\322\326\303#\205\264\324\314!\262\nb\210\322\327\303#\205\306\324\314!\262	b\210\330y\203G
\325=\204\343\311\312\313\"\304\303#\203G
\325=\203\364b\210\262\202\373`\262b\210\322\331\303#\203
\317p!\262
\332
>A@\333>A@BB\262\202\373
\257\244B\262\325=\203A
b\210\202D
`\262\304\262\266
A\266\202\202\210\207" [subst-char-in-region 92 37 t nil 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 " re-search-forward "UIDVALIDITY \\([0-9]+\\)" match-string qresync "^\\* VANISHED .*? \\([0-9:,]+\\)" "HIGHESTMODSEQ \\([0-9]+\\)" -1 "^\\* [0-9]+ FETCH " UID FLAGS] 26 (#$ . 62090)])
#@15 

(fn BUFFER)
(defalias 'nnimap-find-process-buffer #[257 "\301
\"A@\207" [nnimap-connection-alist assoc] 4 (#$ . 63336)])
#@25 

(fn &optional SERVER)
(defalias 'nnimap-request-post #[256 "\301\302\207" [nnimap-status-string "Read-only server" nil] 2 (#$ . 63466)])
(byte-code "\300\301!\210\302\303\304\"\207" [nnoo-register-function nnimap-request-post autoload nnselect-search-thread "nnselect"] 3)
#@38 

(fn HEADER &optional GROUP SERVER)
(defalias 'nnimap-request-thread #[769 "\203\301!\207\302\"\2058\303!r\304 q\210\305\306\")\211\2056\307
@\2053\310\311\312\313\314\315A\"A\"\"\316\317#\266\202\207" [gnus-refer-thread-use-search nnselect-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] 13 (#$ . 63748)])
(nnoo-register-function 'nnimap-request-thread)
#@401 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.

(fn GROUP &optional SERVER NO-RECONNECT READ-ONLY)
(defalias 'nnimap-change-group #[1025 "\302\203\303!\204\304\305#\262
\211\204\305\207\204\302\207r\306 q\210\307\310\203-\311\202.\312\313!#\211@\205f\314!	>\204G\315\316\317D\"\210\211\320I\266\314!	>\204^\315\316\317D\"\210\211\321I\266\211\262
)\207" [nnimap-object cl-struct-nnimap-tags 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] 10 (#$ . 64254)])
#@56 Find the connection delivering to BUFFER.

(fn BUFFER)
(defalias 'nnimap-find-connection #[257 "\301
\"\211\2050\302
A@!\203*\303
A@!\203*\304\303A@!!\305>\203*\303
A@!\207\306
\"\307\207" [nnimap-connection-alist assoc buffer-live-p get-buffer-process process-status (open run) delq nil] 5 (#$ . 65172)])
(defvar nnimap-sequence 5)
#@19 

(fn &rest ARGS)
(defalias 'nnimap-send-command #[128 "\304!	>\204\305\306\307D\"\210\211\310\311 I\266\312\313p!\314\315\316\nT\211\317\315\"\304!	>\2046\305\306\307D\"\210\320H\203@\321\202A\322$!\"\210\204M\323\n!\210\n\207" [nnimap-object cl-struct-nnimap-tags nnimap-sequence 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 (#$ . 65519)])
#@54 If non-nil, log commands to the "*imap log*" buffer.
(defvar nnimap-record-commands nil (#$ . 66034))
(defalias 'nnimap-log-buffer #[0 "\301\302!\206r\303\302!q\210\304\300!\210\305p)\207" [window-point-insertion-type get-buffer "*imap log*" gnus-get-buffer-create make-local-variable t] 2])
#@16 

(fn COMMAND)
(defalias 'nnimap-log-command #[257 "\203r\303 q\210db\210\304\305!\306	\307\n\203\310\202\261\210)\207" [nnimap-record-commands nnimap-address nnimap-inhibit-logging nnimap-log-buffer format-time-string "%H:%M:%S" " [" "] " "(inhibited)\n"] 6 (#$ . 66335)])
#@19 

(fn &rest ARGS)
(defalias 'nnimap-command #[128 "\300 \210\301\302\"\303
!\211@@\304\232\203\305
B\207\306\307\310\311\312@\313##\210\314\207" [erase-buffer apply nnimap-send-command nnimap-get-response "OK" t nnheader-report nnimap "%s" mapconcat #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn A)"] " " nil] 10 (#$ . 66624)])
#@17 

(fn SEQUENCE)
(defalias 'nnimap-get-response #[257 "\300
!\210\301 \207" [nnimap-wait-for-response nnimap-parse-response] 3 (#$ . 66965)])
#@25 

(fn &optional REGEXP)
(defalias 'nnimap-wait-for-connection #[256 "\300
\206\301\302\"\207" [nnimap-wait-for-line "^[*.] .*\n" "[*.] \\([A-Z0-9]+\\)"] 4 (#$ . 67112)])
#@41 

(fn REGEXP &optional RESPONSE-REGEXP)
(defalias 'nnimap-wait-for-line #[513 "\300p!eb\210\301
!\302>\203 \303\304\305#\204 \306
!\210eb\210\202\307y\210\310\206)!\2050\311\312!\207" [get-buffer-process process-status (open run) re-search-forward nil t nnheader-accept-process-output -1 looking-at match-string 1] 7 (#$ . 67290)])
#@36 

(fn SEQUENCE &optional MESSAGEP)
(defalias 'nnimap-wait-for-response #[513 "\304p!\305\3061\252db\210\307!\310>\211\262\203\221o\204#\311y\210\312\313!\204\312\314\315\"!\204\221\203\207\316\317\320\321 \322\245\323	!\n>\204H\324\325\326	D\"\210	\327H\330U\204\204\314\331\323	!\n>\204a\324\325\326	D\"\210	\327H\323	!\n>\204s\324\325\326	D\"\210	\327H\332U\203\333\202\200\334#\202\205\333%\210\335!\210db\210\202\323	!\n>\204\240\324\325\326	D\"\210	\211\327\330I\266\2110\207\210\203\263\336\337!\210\340!\210\305\207" [nnimap-address nnimap-object cl-struct-nnimap-tags debug-on-quit 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] 16 (#$ . 67637)])
(defalias 'nnimap-parse-response #[0 "\300\301 \302\303#\304
\211\203\211@\305
!AB\262
A\266\202\202\210\211
A\262\242
\237B\207" [split-string nnimap-last-response-string "
\n" t nil nnimap-parse-line] 6])
#@13 

(fn LINE)
(defalias 'nnimap-parse-line #[257 "\300\211\301\302\303\"r\211q\210\304\305\"\216\306 \210c\210eb\210m\204\212g\211\262\307=\203+\310u\210\202\311\267\202r\312`T\313\314\315 \316#\203B`S\202C`{!\202\203\312`T\313\317\315 \316#\203Y`S\202Z`{!\202\203\310u\210`\313\320\315 \316#\206m`S{\202\203`\313\321\300\303#\203\200`S\202\202db{B\262\202
\237*\207" [nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte 32 1 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (91 49 40 72 34 95)) split-string search-forward "]" line-end-position move ")" "\"" " "] 10 (#$ . 68835)])
(defalias 'nnimap-last-response-string #[0 "\212\300y\210`\301y\210o\204(\301y\210o\204g\302=\203\301y\210\202g\302=\204(\300y\210`
{\262
)\207" [1 -1 42] 3])
(defvar nnimap-incoming-split-list nil)
#@17 

(fn ARTICLES)
(defalias 'nnimap-fetch-inbox #[257 "\302 \210\303\304\305\306!\307\310\307\311 \203\312\202\313!\204	\203#\314\202-\311 \203,\315\202-\316##\317\"\207" [nnimap-split-download-body nnimap--split-download-body 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] 9 (#$ . 69773)])
(defalias 'nnimap-split-incoming-mail #[0 "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\320-\"\210\321.!/>\204U\322\323\324.D\"\210.\211\325-I\266\326\327\330!!\262
\211\205!
\331
!\210\332 \210\333 \210\334 \210\335p\336\307\211\337\336&\210
\205!
\340
!\307\211\211\203\256\211@\211@\235\204\247\211@\341=\204\247\317\342\343@!\"\210
A\266\202\202\212\210\316 \210\211\203\362\211@\211@
A
\341=\203\311\262\210\202\353
-\230\204\351\344	\203\332\345\202\333\346\347!\343!#
DB\262\266
A\266\202\202\263\210\204

\203
\350@@!\2100\205
0\351=?\205
\3520\353\354!!\210)\211\205
\353
!\266\203,\266\207)\207" [nnimap-split-methods nnmail-split-methods nnimap-split-fancy nnmail-split-fancy nnmail-inhibit-default-split-group nnimap-incoming-split-list 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 nnimap-inbox nnimap-object cl-struct-nnimap-tags nnimap-expunge] 19])
#@18 

(fn SEQUENCES)
(defalias 'nnimap-parse-copied-articles #[257 "\300\211\211eb\210\301\302\300\303#\203*\304\305\306!!\262\236A@\211\262\203\307
!B\262\202\310\311\312\313\"\314\"!\207" [nil re-search-forward "^\\([0-9]+\\) OK\\b" t string-to-number match-string 1 gnus-uncompress-range gnus-compress-sequence sort apply nconc <] 9 (#$ . 71771)])
#@14 

(fn FLAGS)
(defalias 'nnimap-new-articles #[257 "\301
\211\203\211@\302A\"\204\211@B\262
A\266\202\202\210\303
\237!\207" [nnimap-unsplittable-articles nil gnus-list-memq-of-list gnus-compress-sequence] 7 (#$ . 72136)])
#@13 

(fn LIST)
(defalias 'nnimap-make-split-specs #[257 "\300\211\211\203^\211@\211
G\301U\203
\211A\262\242\202!\302\303\304GD\"
\242\305\300\306\307\"\"\211\203U\211@\310
\n\"\211\262	\204E\211C\211\262		B\262		AB\241\210
A\266\202\202*\266
A\266\202\202\210
\211\203w\211@\211\311\312A\313\"!\241\210
A\266\202\202`\210
\207" [nil 2 signal wrong-number-of-arguments (article spec) delete mapcar car assoc gnus-compress-sequence sort <] 13 (#$ . 72374)])
(defalias 'nnimap-transform-split-mail #[0 "eb\210\300\211\3012\\m?\205[\302\303!\204'`\304y\210`|\210m\203\305\301\300\"\210\202\306\304!\262\307 \262
\310 \311 |\210\312\313\"c\210\211Tu\210\307 \262
\310 \311 |\210\211\203	\211Tu\210\310 \311 |\210\202	0\207" [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"] 5])
#@31 

(fn GROUP &optional SERVER)
(defalias 'nnimap-dummy-active-number #[513 "\300\207" [1] 3 (#$ . 73325)])
#@44 

(fn GROUP-ART &optional SERVER FULL-NOV)
(defalias 'nnimap-save-mail-spec #[769 "\301eb\210\302\303\301\304#\204\305\306!\210\202\307\310\311!!\262
\211\312=\203(\312\311BC\202)DB\211\207" [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] 8 (#$ . 73437)])
#@15 

(fn HEADER)
(defalias 'nnimap-make-thread-query #[257 "\300
\301H!\302\303H\206
\304!\305\306\211#
\211\203*\211@\305\307\211$\262
A\266\202\202
\207" [substring-no-properties 4 split-string 5 "" format "(OR HEADER REFERENCES %S HEADER Message-Id %S)" "(OR (OR HEADER Message-Id %S HEADER REFERENCES %S) %s)"] 11 (#$ . 73812)])
(provide 'nnimap)