|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/gnus/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:20 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\302\303!\204
\304\303\305\306B\"\210\307\310!\210\302\311!\204 \307\312!\210\307\310!\210\307\313!\210\307\314!\210\307\315!\210\307\316!\210\307\317!\210\307\320!\210\307\321!\210\307\322!\210\323\324\325\"\210\323\326\325\"\210\327\236\203\\ \327\236A\330\331\332\"\240\210\202g \327\330\331\332\"\332\211FB\327 \236\204s \327\333D B\332\207" [nnoo-definition-alist nnoo-state-alist fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require nnheader open-protocol-stream proto-stream gnus-util gnus nnoo netrc utf7 tls parse-time 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 (#$ . 1262))
(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 (#$ . 1447))
(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 (#$ . 1649))
(nnoo-define 'nnimap-server-port 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 (#$ . 1923))
(nnoo-define 'nnimap-stream nil)
(defvar nnimap-shell-program (byte-code "\301\300!\203 <\203 @\207\207\302\207" [imap-shell-program boundp "ssh %s imapd"] 2))
(nnoo-define 'nnimap-shell-program nil)
#@164 The mail box where incoming mail arrives and should be split out of.
For example, "INBOX".
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nnimap-inbox nil (#$ . 2476))
(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 (#$ . 2716))
(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 (#$ . 2948))
(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) (#$ . 3155))
(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)
#@182 How nnimap authenticate itself to the server.
Possible choices are nil (use default methods) or `anonymous'.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nnimap-authenticator nil (#$ . 3563))
(nnoo-define 'nnimap-authenticator nil)
#@254 If non-nil, expunge articles after deleting them.
This is always done if the server supports UID EXPUNGE, but it's
not done by default on servers that doesn't support that command.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nnimap-expunge t (#$ . 3837))
(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 (#$ . 4169))
(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)
#@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 (#$ . 4615))
(nnoo-define 'nnimap-fetch-partial-articles nil)
(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 (#$ . 5100))
(defvar nnimap-keepalive-timer nil)
(defvar nnimap-process-buffers nil)
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-group compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-group (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-group 'nnimap)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-group #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-group nnimap 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-process compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-process (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-process 'nnimap)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-process #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-process nnimap 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-commands compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-commands (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-commands 'nnimap)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-commands #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-commands nnimap 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-capabilities compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-capabilities (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-capabilities 'nnimap)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-capabilities #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-capabilities nnimap 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-select-result compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-select-result (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-select-result 'nnimap)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-select-result #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-select-result nnimap 5] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-newlinep compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-newlinep (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-newlinep 'nnimap)) (aref cl-x 6)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-newlinep #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-newlinep nnimap 6] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-server compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-server (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-server 'nnimap)) (aref cl-x 7)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-server #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-server nnimap 7] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-last-command-time compiler-macro #[(_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 (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-last-command-time 'nnimap)) (aref cl-x 8)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-last-command-time #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-last-command-time nnimap 8] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-greeting compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-greeting (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-greeting 'nnimap)) (aref cl-x 9)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-greeting #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-greeting nnimap 9] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-examined compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-examined (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-examined 'nnimap)) (aref cl-x 10)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-examined #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-examined nnimap 10] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-stream-type compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-stream-type (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-stream-type 'nnimap)) (aref cl-x 11)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-stream-type #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-stream-type nnimap 11] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-initial-resync compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-initial-resync (or (and (memq (aref cl-x 0) cl-struct-nnimap-tags)) (error "%s accessing a non-%s" 'nnimap-initial-resync 'nnimap)) (aref cl-x 12)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-initial-resync #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-initial-resync nnimap 12] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnimap-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnimap-p (and (vectorp cl-x) (>= (length cl-x) 13) (memq (aref cl-x 0) cl-struct-nnimap-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnimap-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-nnimap-tags vectorp 13 0 t] 2])
(defalias 'copy-nnimap #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-nnimap compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \312>A@ \313>A@ \314>A@ \315>A@ \316>A@ \317>A@ \320>A@ \321>A@ !!\203\202 !@\322>\203i !AA\211!\202T \323>A@\203x \324\211!\202T \325\326!@\"\210\202R )\327\330\331\324\"\324 \n \f
&.\f\207" [#1# group process commands capabilities select-result :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 (vector 'cl-struct-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 #:--cl-keys-- cl-whole] 19 "\n\n(fn CL-WHOLE &cl-quote &key GROUP PROCESS COMMANDS CAPABILITIES SELECT-RESULT NEWLINEP SERVER LAST-COMMAND-TIME GREETING EXAMINED STREAM-TYPE INITIAL-RESYNC)"] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnimap.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@142
(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>A@\307>A@\310>A@\311>A@ \312>A@ \313>A@ \314>A@ \315>A@ \316>A@ \317>A@ \320>A@ \321>A@ \203\202 @\322>\203i AA\211 \202T \323>A@\203x \324\211 \202T \325\326 @\"\210\202R )\327\330 \n \f
&
.\f\207" [#1# group process commands capabilities select-result :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)" vector cl-struct-nnimap newlinep server last-command-time greeting examined stream-type initial-resync #2=#:--cl-keys--] 15 (#$ . 15568)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\210\302\325\315\313#\210\302\326\315\313#\210\302\327\315\313#\210\302\330\315\313#\210\302\331\315\313#\210\302\332\315\313#\210\302\333\315\313#\210\302\334\315\313#\207" [cl-struct-nnimap-tags cl-struct-nnimap put nnimap cl-struct-slots ((cl-tag-slot) (group) (process) (commands) (capabilities) (select-result) (newlinep) (server) (last-command-time) (greeting) (examined) (stream-type) (initial-resync)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-nnimap side-effect-free copy-nnimap nnimap-p error-free nnimap-initial-resync nnimap-stream-type nnimap-examined nnimap-greeting nnimap-last-command-time nnimap-server nnimap-newlinep nnimap-select-result nnimap-capabilities nnimap-commands nnimap-process nnimap-group] 4)
(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 ")))
(defvar nnimap-inhibit-logging nil)
(defalias 'nnimap-buffer #[nil "\301!\207" [nntp-server-buffer nnimap-find-process-buffer] 2])
(defalias 'nnimap-header-parameters #[nil "\301\302\301\303 \203\f \304\202
\305\306\307\"\"\"\207" [nnmail-extra-headers format "(UID RFC822.SIZE BODYSTRUCTURE %s)" nnimap-ver4-p "BODY.PEEK[HEADER.FIELDS %s]" "RFC822.HEADER.LINES %s" append (Subject From Date Message-Id References In-Reply-To Xref)] 7])
(defalias 'nnimap-retrieve-headers #[(articles &optional group server fetch-old) "\203 \304!r q\210\305 \210\306\n\"\203H r\307 q\210\305 \210\310\311\312\313\314 !!\315 #\316\"\210\317 \210db\210\320\321\322\316#\203A \323\324!\210\2022 )\325\326p!!\210)\327\207" [group nntp-server-buffer server articles nnimap-decode-gnus-group erase-buffer nnimap-possibly-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 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)
(defalias 'nnimap-transform-headers #[nil "eb\210\304\211\211\211\305\306\215,\207" [string size lines article nil --cl-block-nil-- (byte-code "m?\205\305\306!\204 `\307y\210`|\210m\203 \310\311\312\"\210\202 \313\225b\210\314\315\212\314\316\312\317#\2066 \314\306\312\317#\2066 d)\317#\203b \320\321\307!!\313\224\322\\`|\210``\\{``\\|\210\323\324\325\326\327 #\"c\210\202\" \330 \210\314\331\332 \317#\205q \321\307!\312\314\333\332 \317#\205\200 \321\307!\330 \210\334\335\332 \317#\203\306 \312\336\337\217\211 :\203\244 \f@:\203\244 \f@\211\202\223 \f@;\203\301 \f@\226\340\232\203\301 \fA@\226\341\232\203\301 \342\f8\202\304 \343\f8)\344 \332 |\210\323\345\n\"c\210\307y\210\203\337 \323\346\"c\210 \203\351 \323\347 \"c\210\314\350\312\317#\204\364 db\210\344 \332 |\210\351c\210\307y\210\202 \207" [size string article lines structure looking-at "\\* [0-9]+ FETCH" 1 throw --cl-block-nil-- nil 0 re-search-forward "[^]][ (]{\\([0-9]+\\)}
?\n" "] {[0-9]+}
?\n" t string-to-number match-string 2 format "%S" mm-subst-char-in-string 10 32 beginning-of-line "UID \\([0-9]+\\)" line-end-position "RFC822.SIZE \\([0-9]+\\)" search-forward "BODYSTRUCTURE" (byte-code "\300p!\207" [read] 2) ((error)) "MESSAGE" "RFC822" 9 7 line-beginning-position "211 %s Article retrieved." "Chars: %s\n" "Lines: %s\n" "^
$" "."] 7)] 4])
(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!B A\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\211\205 \n;\203 \311\202 \312\n!)$!q\210\313 \210\314 \210\315 \210\316\303!\210\317\316\304!\210\320\321\322\323!\324\325$\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*" get-buffer buffer-name 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] 8])
(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\205X @\310\n!\203P r\nq\210\f\203O \f\311H
>\204* \312\313\314\315#\210\f\316H\203O \317\320\f\311H
>\204A \312\313\314\315#\210\f\316H\"!\321V\203O \322\323!\210) A\211\204 \307+\207" [now nnimap-process-buffers buffer --dolist-tail-- nnimap-object cl-struct-nnimap-tags current-time nil buffer-name 0 error "%s accessing a non-%s" nnimap-last-command-time nnimap 8 gnus-float-time time-subtract 300 nnimap-send-command "NOOP"] 8])
(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) "\301\232\203 \302\207\207" [port "imaps" "993"] 2])
(defalias 'nnimap-open-connection-1 #[(buffer) "\204\n \306\307\211\310#r\311 !q\210\312\211\f\313>\203$ \314\315\316
#\210\317\202H \f\320=\2034 \314\315\321
#\210\322\202H \f\323>\203D \314\315\324
#\210\325\202H \326\327\f\" @\330\211 A BC\203\\ C@B@\331\332p
\333@@!\334\f\335\336\337D\340\341\342\343\344\345\346\347&\211 E@ FEA G\350G\351\" H\350G\352\" I\350G\334\" JF\203\247 \353F!\354>\204\247 \330F\355\356!\203\303 \355\357!\203\303 \357F!\360=\203\303 \356F\361\336#\210K\362HL>\204\323 \326\363\364\365#\210K\211 M\366FI\210)K\362HL>\204\356 \326\363\367\365#\210K\211 N\370JI\210)F\204\f\371\365\372
@@\f%\210\373\202\342\374F\330\"\210\375H\330 O P Q\336 R\376QPO#,\2044\371\365\377H#\202\342K\362HL>\204F\326\363\201^ \365#\210K\211 S\201_ HI\210)K\362HL>\204e\326\363\201` \365#\210K\211 T\201a \201b \201c \201d I!\"I\210)\201e H\330 O P Q\336 R\376QPO#,\204\257U\201f =\203\254\201g \201h D\202\277\201i \201j
\201k \365!D!@V#\211B\204\313\330K\202\257\336 W\201l B@B\211 XA@)\"A)A@\203K\201m \366B8!\203\367\366B8 \210A\211 XAA)\330 Y\211 Z\203GZ@\211Y@\226\201n \230\203>K\362HL>\204)\326\363\201` \365#\210K\211 [\201a \201b \201c YA\"I\210)ZA\211Z\204*\202\257\201k \365!
D\330 \\\211 Z\203\222Z@\\@\330 ]\211 Z\203\210Z@]\201o \201p \\\201q ]$\210ZA\211Z\204k*ZA\211Z\204[*\201r K\362HL>\204\246\326\363\364\365#\210K\366H!\210\330KK\205\342\201s \201t !\203\306\201u \201v !\210\314\315\201w
#\210K\362HL>\204\336\326\363\364\365#\210K\366H.\f\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 (network plain starttls) nnheader-message 7 "Opening connection to %s..." ("imap" "143") shell "Opening connection to %s via shell..." ("imap") (ssl tls) "Opening connection to %s via tls..." ("imaps" "imap" "993" "143") error "Unknown stream type: %s" nil open-protocol-stream "*nnimap*" nnimap-map-port :type :return-list t :shell-command :capability-command "1 CAPABILITY
\n" :end-of-command "
\n" :success " OK " :starttls-function #[(capabilities) "\305\306\307 \310 \n #,\205 \311\207" [capabilities start string regexp inhibit-changing-match-data "STARTTLS" nil t string-match "1 STARTTLS
\n"] 4] plist-get :greeting :capabilities process-status (open run) fboundp set-network-process-option process-type network :keepalive 0 "%s accessing a non-%s" nnimap-process nnimap 2 nnimap-stream-type 11 nnheader-report "Unable to contact %s:%s via %s" no-connect gnus-set-process-query-on-exit-flag "[*.] \\(OK\\|PREAUTH\\)" string-match "%s" ports login-result credentials nnimap-server-port nnimap-shell-program stream-list stream props greeting capabilities stream-type nnimap-object cl-struct-nnimap-tags #1=#:v #2=#:v start string regexp inhibit-changing-match-data #3=#:v #4=#:v nnimap-authenticator nnimap-user nnimap-inhibit-logging x response --dolist-tail-- #5=#:v host port nnimap-greeting 9 nnimap-capabilities 4 mapcar upcase split-string "[*.] PREAUTH" anonymous "anonymous" message-make-address nnimap-credentials gnus-delete-duplicates nnoo-current-server nnimap-login functionp "CAPABILITY" auth-source-forget+ :host :port delete-process nnimap-capability "QRESYNC" nnimap-command "ENABLE QRESYNC" "Opening connection to %s...done"] 20])
(autoload 'rfc2104-hash "rfc2104")
(defalias 'nnimap-login #[(user password) "\306\307!\204\" \310H >\204 \311\312\313\314#\210\315H\316=\203\" \317\320\n #\207\306\321!\203N \322 \210\323\324!\325\326! \327\330p!\331\n\332\333\334\335\336 \337\f!%Q!\340P\"\210\341
!*\207\306\307!\204Z \317\320\n #\207\306\342!\205n \317\343\331\344\345\346\n!\346 !#!\"\207" [nnimap-object cl-struct-nnimap-tags user password challenge sequence nnimap-capability "LOGINDISABLED" 0 error "%s accessing a non-%s" nnimap-stream-type nnimap 11 tls nnimap-command "LOGIN %S %S" "AUTH=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 "
\n" nnimap-wait-for-response "AUTH=PLAIN" "AUTHENTICATE PLAIN %s" format " %s %s" nnimap-quote-specials] 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*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward "[\\\"]" nil t -1 "\\" 1 buffer-string] 4])
(defalias 'nnimap-find-parameter #[(parameter elems) "\306 \306\211\203C @\211@\f\232\203 \nA\202< \n@\307\232\203< \n\211 A@):\203< \nA@@\f\232\203< \n\211 A@)A A\211\204\n *)\207" [result elems elem --dolist-tail-- parameter x nil "OK"] 3])
(defalias 'nnimap-close-server #[(&optional server) "\301\302\303#\205 \303\304\305\217\210\306\302\"\210\307\207" [server nnoo-change-server nnimap nil (byte-code "\300\301\302 !!\207" [delete-process get-buffer-process nnimap-buffer] 3) ((error)) 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*\205/ \205/ \211 \205( \311\312\f!!)\205/ \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) "\203 \306!r q\210\307\n\"\310\211 ;\203\" \311\"
\205\231 \205\231 \312 \210r\313 q\210\312 \210\203U \314\315\"\210eb\210\316\317\310\320#\203U \310\321\322\217\323 !\f\203b \324\f #\202f \325!\205\230 p r \206s q\210 \203\211 r q\210\326\327 !)c\210\202\220 \330 \310\211#\210\331 \210*B),\207" [group nntp-server-buffer server structure parts result nnimap-decode-gnus-group nnimap-possibly-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 (byte-code "`\301\302!\210\303`\"\210b\210\304p!)\207" [start forward-sexp 1 downcase-region read] 3) ((error)) nnimap-find-wanted-parts nnimap-get-partial-article nnimap-get-whole-article mm-string-to-multibyte buffer-string insert-buffer-substring nnheader-ms-strip-cr article nnimap-fetch-partial-articles buffer to-buffer enable-multibyte-characters] 4])
(nnoo-register-function 'nnimap-request-article)
(defalias 'nnimap-request-head #[(article &optional group server to-buffer) "\203 \306!\307 \"\205D r\310 q\210\n;\203 \311\n\"\n\205C \312\n\313\314\315 \"\"\210pr\f\2063
q\210\316 \210\317 !\210\320 \210\n*B)\207" [group server article buffer to-buffer nntp-server-buffer nnimap-decode-gnus-group nnimap-possibly-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-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) " \303H\n>\204 \304\305\306\307#\210 \310H\235\207" [capability nnimap-object cl-struct-nnimap-tags 0 error "%s accessing a non-%s" nnimap-capabilities 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+ \f\211 A@)*\2039 \310\311 \227#c\210\n@;\204\275 \312\313\261\210\n\211 @@):\203] \314\n\211A@\315#\210\2029 \n\211A@ \310\316@\227A@\227#c\210\317\320\3218\"\203\220 \310\322\317\320\3218\"\211 A@)\"c\210\202\223 \313c\210\310\323\3248\"c\210\313c\210\325\3268\"\203\271 \325\3268\"\211 A@)c\210)\2029 \312\327\261*\207" [boundary type structure bstruc has-boundary x 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" subp parts bit] 7])
(defalias 'nnimap-find-wanted-parts #[(structure) "\301\302\303\"!\207" [structure message-flatten-list nnimap-find-wanted-parts-1 ""] 4])
(defalias 'nnimap-find-wanted-parts-1 #[(structure prefix) "\306\307\n@:\203t \n\211A@\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-decode-gnus-group #[(group) "\301\302\"\207" [group decode-coding-string utf-8] 3])
(defalias 'nnimap-request-group #[(group &optional server dont-check info) "\306!\307 ?\205 \310\n\"?\205 \"\311\211\211\211\211 $ % & 'r(q\210'\205\366 \203T \312\310\n\"8\211%\203T \313\314%A%@Z%@%A%c\210\202\365 r\315 q\210\316 \210\317\320\321\322\"\"\317\323! ) *+\324H,>\204z \325\326\327\330#\210+\211 -\331I\210)\332)!\210\333\334*)\331\335\257C!!$.\203\270 $\203\270 \336$.C\"\210\337.\340.@/\"J\"\210db\210\341$@8\211 0\203\314 0S\202\321 \342$@8\206\325 \324\343$@8\206\344 0\206\344 \331,\316 \210\313\314
\fZT\f
%c\210\322.\207" [group dont-check nnimap-current-infos server low high nnimap-decode-gnus-group nnimap-possibly-change-group assoc nil 2 format "211 %d %d %d %S\n" nnimap-buffer erase-buffer nnimap-send-command "SELECT %S" utf7-encode t "UID FETCH 1:* FLAGS" 0 error "%s accessing a non-%s" nnimap-group nnimap 1 nnimap-wait-for-response nnimap-flags-to-marks nnimap-parse-flags "SELECT" nnimap-update-infos nnimap-store-info intern-soft 5 3 4 marks active articles result nntp-server-buffer flag-sequence group-sequence nnimap-object cl-struct-nnimap-tags #1=#:v info gnus-active-hashtb uidnext] 8])
(nnoo-register-function 'nnimap-request-group)
(defalias 'nnimap-request-create-group #[(group &optional server args) "\302!\303\304 \"\205 r\305 q\210\306\307\310\311\"\"@)\207" [group server nnimap-decode-gnus-group nnimap-possibly-change-group nil nnimap-buffer nnimap-command "CREATE %S" utf7-encode t] 5])
(nnoo-register-function 'nnimap-request-create-group)
(defalias 'nnimap-request-delete-group #[(group &optional force server) "\302!\303\304 \"\205 r\305 q\210\306\307\310\311\"\"@)\207" [group server nnimap-decode-gnus-group nnimap-possibly-change-group nil nnimap-buffer nnimap-command "DELETE %S" utf7-encode t] 5])
(nnoo-register-function 'nnimap-request-delete-group)
(defalias 'nnimap-request-rename-group #[(group new-name &optional server) "\303!\304\305 \"\205 r\306 q\210\307 \210\310\311\312\313\"\312\n\313\"#@)\207" [group server new-name nnimap-decode-gnus-group nnimap-possibly-change-group nil nnimap-buffer nnimap-unselect-group nnimap-command "RENAME %S %S" utf7-encode t] 6])
(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!\303 \"\205 r\304 q\210\305\306!@)\207" [group server nnimap-decode-gnus-group nnimap-possibly-change-group nnimap-buffer nnimap-command "EXPUNGE"] 3])
(nnoo-register-function 'nnimap-request-expunge-group)
(defalias 'nnimap-get-flags #[(spec) "\305\211\211r\306 q\210\307 \210\310\311\312 \"!\210`\313ed\314\315\316%\210eb\210\317\320\316#\203E \321p!\322 >\211 A@)\323 >\211 A@)B\nB\202\" )\n\237+\207" [end elems articles spec x 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] 7])
(defalias 'nnimap-close-group #[(group &optional server) "\300\207" [t] 1])
(nnoo-register-function 'nnimap-close-group)
(defalias 'nnimap-request-move-article #[(article group server accept-form &optional last internal-move-group) "\306!\307\310!r q\210\311\216\312 \210\n\203 \313\202 \314 \fp$\205r \315\316! \n\203[ r\317 q\210\320\321 \322\n\323\"#)\211 @\205W \324 !\210\n\325\326\211 A@)\"\206V \327\n
\"B)\202q \330 !\211 \205p \331\f\"\210\324 !\210))+\207" [group #1=#:temp-buffer internal-move-group article server message-id nnimap-decode-gnus-group generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte nnimap-request-head nnimap-request-article message-field-value "message-id" nnimap-buffer nnimap-command "UID COPY %d %S" utf7-encode t nnimap-delete-article nnimap-find-uid-response "COPYUID" nnimap-find-article-by-message-id eval nnimap-possibly-change-group result x accept-form] 7])
(nnoo-register-function 'nnimap-request-move-article)
(defalias 'nnimap-request-expire-articles #[(articles group &optional server force) "\306! \204\n \307\207\310\n\"\204 \207 \203, \f\311=\203, \312\313 !!\204* \314\315\316\"\210\307\207 \2046
\317=\203: \202@ \320 \321!\"\211 \204J \202g \f\311=\203Z \312\313!!\210\202b \322\n#\323 \")\207" [group articles server force nnmail-expiry-target nnmail-expiry-wait nnimap-decode-gnus-group nil nnimap-possibly-change-group delete nnimap-delete-article gnus-compress-sequence nnheader-message 7 "Article marked for deletion, but not expunged." 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 \307=\203
\n\202\330\310 !\204J\311\312 !\313\314 \"\211\203) <\203) \206\315 \f\"A\206 \316\232\203;
\206\360 \315 ,\"A\206\360 \315 -\"A\206\360 . //\203t \313\317/@@@/@@A@#\232\204t /\211A/@\210\202Q /\211 0@@*\206\360 1 22\203\250 \313\3172\211 0@@)2@A@#\232\204\250 2\211A2@\210\202\203 2@)\206\360 3A\306\211 4 5 66\203\355 \3206\211A6@8\2115;\204\272 5\306\321 7 8 5\322\323\215+\232\203\272 54\306\2116\204\277 4+\211 9\203\315 \f\"\204 9B\fB9))\"\203J\324: \"\203\330r\325 q\210\326\327\330:\n$\210\331\332\333\334\n!!\335 ;\336\337;\"\203=;\340\225\306O\202?;)\321\"#\210\n)\202\330\n\306 <\211 =\203\327=@< >\341\342! ?r?q\210\343\216\344 \210\345<: p$\203\315\310>!\203\204>:!>>\203\272>\307=\204\272\346>\321\"\204\237\347>!\203\264\350>:\"\210\326\327\351:<>%\210\202\303\306>\202\303\326\327\352:<$\210>\203\315<B,=A\211=\204T*\324: \"\210\237\353\334!!\210)\207" [deleted-articles nnmail-expiry-target articles server gnus-server-method-cache gnus-select-method nil delete functionp gnus-server-equal gnus-group-method format "nnimap:%s" assoc "native" "%s:%s" 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f
D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) nnimap-possibly-change-group nnimap-buffer nnheader-message 7 "Expiring articles from %s: %s" nnimap-command "UID COPY %s %S" nnimap-article-ranges gnus-compress-sequence utf7-encode string-match "^[^:]+:" 0 generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\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-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result group gname article --dolist-tail-- target #1#] 8])
(defalias 'nnimap-find-expired-articles #[(group) "\304\305\211#r\306 q\210\307\310\311\312\313\314\315\316 !8\n\"@\226\" \"\"\211@\2050 \317\320\321\322\323\324 A\"A\"\"+\207" [group cutoff parse-time-months result nnmail-expired-article-p nil nnimap-buffer nnimap-command "UID SEARCH SENTBEFORE %s" format-time-string format "%%d-%s-%%Y" rassoc 4 decode-time delete 0 mapcar string-to-number assoc "SEARCH"] 10])
(defalias 'nnimap-find-article-by-message-id #[(group message-id) "r\306 q\210\307 \210\203V \310H\n>\204 \311\312\313\314#\210 \315H\232\204V \310H\n>\2040 \311\312\313\314#\210 \211\315\316I\210) \310H\n>\204F \311\312\317\314#\210 \211 \320I\210)\321\322\323\324\"\"\210\321\325
\"\316\211 \326 !\211 \205\211 \327 \211 @\205\211 \330\331\332 A\"A!@\211 \205\211 \333 !,\207" [group nnimap-object cl-struct-nnimap-tags #1=#:v #2=#:v message-id nnimap-buffer erase-buffer 0 error "%s accessing a non-%s" nnimap-group nnimap 1 nil nnimap-examined 10 nnimap-send-command "EXAMINE %S" utf7-encode t "UID SEARCH HEADER Message-Id %S" nnimap-wait-for-response nnimap-parse-response last assoc "SEARCH" string-to-number result article sequence] 6])
(defalias 'nnimap-delete-article #[(articles) "r\302 q\210\303\304\305!\"\210\306\307!\203 \303\310\305!\"\210\311\202- \203) \303\312!\210\311\202- \313\314\315\")\207" [articles nnimap-expunge nnimap-buffer nnimap-command "UID STORE %s +FLAGS.SILENT (\\Deleted)" nnimap-article-ranges nnimap-capability "UIDPLUS" "UID EXPUNGE %s" t "EXPUNGE" gnus-message 7 "nnimap: nnimap-expunge is not set and the server doesn't support UIDPLUS, so we won't delete this article now"] 4])
(defalias 'nnimap-request-scan #[(&optional group server) "\203 \304!\305\306 \"\205% \n\205% \205% \307\310\311 #\210\312 \210\307\310\313 #\207" [group server nnimap-inbox nnimap-split-methods nnimap-decode-gnus-group nnimap-possibly-change-group nil nnheader-message 7 "nnimap %s splitting mail..." nnimap-split-incoming-mail "nnimap %s splitting mail...done"] 4])
(nnoo-register-function 'nnimap-request-scan)
(defalias 'nnimap-marks-to-flags #[(marks) "\306\211\n\306\211 \203( \f@\211
\236\211 A@)\211\203! B\fA\211\204\f * *\207" [flag flags marks mark --dolist-tail-- nnimap-mark-alist nil x] 3])
(defalias 'nnimap-request-update-group-status #[(group status &optional server) "\305!\306\307 \"\205( \310\n\311\"\211\205' r\312 q\210\313\314 \211 A@)\315\316\"#))\207" [group server status command x nnimap-decode-gnus-group nnimap-possibly-change-group nil assoc ((subscribe "SUBSCRIBE") (unsubscribe "UNSUBSCRIBE")) nnimap-buffer nnimap-command "%s %S" utf7-encode t] 7])
(nnoo-register-function 'nnimap-request-update-group-status)
(defalias 'nnimap-request-set-mark #[(group actions &optional server) "\306!\307 \"\205\217 \310r\311 q\210\312 \210 \310 \211 \203\206
@\211\211 G\313U\2034 \211A @\202< \314\315\310 GD\" \211A @ @ \316 !\211 \203~ \317\320\321 !\f\322=\203e \323\202v \f\324=\203o \325\202v \f\326=\205v \327\330\331 \332#$-
A\211\204 *\n\205\216 \333\n!*\207" [group server sequence actions action --dolist-tail-- nnimap-decode-gnus-group nnimap-possibly-change-group nil nnimap-buffer erase-buffer 3 signal wrong-number-of-arguments nnimap-marks-to-flags nnimap-send-command "UID STORE %s %sFLAGS.SILENT (%s)" nnimap-article-ranges del "-" add "+" set "" 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) "\306!\307\310 \"\205\260 \311 \210\312\313!\310\211 \314 \210\315ed\"r\316 q\210\317\320\321\n#\206, \n\211\205\257
\322H->\204@ \323\324\325\326#\210
\327H\232\203K \330 \210\331 \210\332\333\334\335\"\nG#.\204a \336\337!\210\340\341p!\n\"\210\340\341p!
\322H->\204{ \323\324\342\326#\210
\343H\203\205 \344\202\206 \345\"\210\346 ! /\347/!\204\237 \350\326\351/#\210\310\202\256 \352\353/@\"\206\255 \354\f\"B),\207" [group server message sequence message-id nnimap-object nnimap-decode-gnus-group nnimap-possibly-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 0 error "%s accessing a non-%s" nnimap-examined nnimap 10 nnimap-unselect-group erase-buffer nnimap-send-command "APPEND %S {%d}" utf7-encode t nnimap-wait-for-connection "^[+]" process-send-string get-buffer-process nnimap-newlinep 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] 6])
(nnoo-register-function 'nnimap-request-accept-article)
(defalias 'nnimap-process-quirk #[(greeting-match type data) "\306H >\204 \307\310\311\312#\210\313H\205{ \314\n\306H >\204$ \307\310\311\312#\210\313H\"\205{ \315=\205{ \314\316\f\"\205{ \317\320\321\"\211 \322=\203J \323\312\324\"\202z
\325=\203T \f\202z \326\327! r q\210\330\216\fc\210eb\210\331\316\332\333#\203w \334\335\333\211#\210\202f \336 +)\207" [nnimap-object cl-struct-nnimap-tags greeting-match type data choice 0 error "%s accessing a non-%s" nnimap-greeting 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")) 97 nnheader-report "Aborted APPEND due to NUL characters" 99 generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\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 \211@@)\302\232\207" [value x "OK"] 3])
(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 \n A\211\204\n *)\207" [result list elem --dolist-tail-- name nil] 3])
(defalias 'nnimap-request-replace-article #[(article group buffer) "\304!\305\306\305\"\205# r\nq\210\307\305\310#\211)\205# \311 C!\210 A)\207" [group group-art buffer article nnimap-decode-gnus-group nil nnimap-possibly-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 "\305 \210\306\307!\310\311 !\210\312ed\313\314\315%\210eb\210\316 \210eb\210\317\320\310\315#\203O \321p!\321p!\321p! \322\f\235\204K \323\n;\203B \n\202F \324\325\n\"\315\"B+\202 \237*\207" [groups sequence group separator flags erase-buffer nnimap-send-command "LIST \"\" \"*\"" nil nnimap-wait-for-response subst-char-in-region 92 37 t nnimap-unfold-quoted-lines search-forward "* LIST " read %NoSelect utf7-decode format "%s"] 6])
(defalias 'nnimap-request-list #[(&optional server) "\306\307\"\205Xr q\210\310 \210r\311 q\210\312 )\307\211\211 \205Wr\311 q\210
\313H(>\2043 \314\315\316\317#\210
\211 )\320\307I\210)\f\307 *\211 +\203{ +@*
\313H(>\204Z \314\315\321\317#\210
\211 ,\322*I\210)\323\324\325*\326\"\"*D B+A\211+\204F *\327 \211 -@@)!\210\330\331\332 \"!)\n\307 .\211 +\203U+@\211.@ /.\211 -A@) .\333/ \"\211 -A@) *\334*\335\" 0*\203K.\211 -@@)\336\232\203K\337\340.\"\307\211 1 2 3.\307 4\211 +\203\n+@\2114\211 -A@)\341\232\203\3424@!1+A\211+\204\351 *3\203\3423@!S22\204'\343\3440\"c\210\202J\3451!\203<\343\34602\211T$c\210\202J\343\34702\206G1#c\210+,+A\211+\204\230 *\326,\207" [server nntp-server-buffer responses sequences groups nnimap-object nnimap-possibly-change-group nil erase-buffer nnimap-buffer nnimap-get-groups 0 error "%s accessing a non-%s" nnimap-group nnimap 1 nnimap-examined 10 nnimap-send-command "EXAMINE %S" utf7-encode t nnimap-wait-for-response nnimap-get-responses mapcar car assoc encode-coding-string utf-8 "OK" nnimap-find-parameter "UIDNEXT" "EXISTS" string-to-number format "%S 0 1 y\n" zerop "%S %d %d y\n" "%S %d 1 y\n" cl-struct-nnimap-tags #1=#:v group --dolist-tail-- #2=#:v x response sequence egroup exists highest uidnext elem] 6])
(nnoo-register-function 'nnimap-request-list)
(defalias 'nnimap-request-newgroups #[(date &optional server) "\305\306\"\2059 r q\210\307 \210r\310 q\210\311 )\306\211\2037 @\312\n\f\"\2040 \313\314\315\n\316\"\"c\210 A\211\204 +\317\207" [server nntp-server-buffer group --dolist-tail-- nnimap-current-infos nnimap-possibly-change-group nil erase-buffer nnimap-buffer nnimap-get-groups assoc format "%S 0 1 y\n" encode-coding-string utf-8 t] 6])
(nnoo-register-function 'nnimap-request-newgroups)
(defalias 'nnimap-retrieve-group-data-early #[(server infos) "\306\307\"\205e \205er\310 q\210\311 \210\n\312H >\204! \313\314\315\316#\210\n\211 \317\307I\210)\n\312H >\2047 \313\314\320\316#\210\n\211 \321\312I\210)\322\323!\307\211\211\211\211\211\211 ( ) * + , \307 -\211 .\203`.@-\324-8+\325-@ /\326\327/\"\203\205 /\312\225\307O\202\207 /)!(\330+\236A\331+\236A\332+\236A\n\312H >\204\256 \313\314\333\316#\210\n\211 0\334(I\210),\203\352 \203\352 \203\352 \203\352 \335\336\337(\340\"\341\323!%\342\307(\342\257)B)\202W\203\363 \343\202\364 \344\307 1 2\203\203\317A\345Z]1\202:\n\312H >\204 \313\314\320\316#\210\n\211 3\321\n\312H >\2040\313\314\320\316#\210\n\321HTI\210)\3171\335\3462\337(\340\"#\335\3471\"1(2\257)B)*.A\211.\204c *). \207" [server infos nnimap-object cl-struct-nnimap-tags #1=#:v #2=#:v nnimap-possibly-change-group nil nnimap-buffer erase-buffer 0 error "%s accessing a non-%s" nnimap-group nnimap 1 nnimap-initial-resync 12 nnimap-capability "QRESYNC" 5 nnimap-decode-gnus-group string-match "^[^:]+:" active uidvalidity modseq nnimap-examined 10 nnimap-send-command "EXAMINE %S (%s (%s %s))" utf7-encode t nnimap-quirk qresync "EXAMINE" "SELECT" 100 "%s %S" "UID FETCH %d:* FLAGS" group sequences groups 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@ \307H\f>\204 \310\311\312\313#\210 \314H\"\204& \202) \315\n8)\207" [command nnimap-quirks quirk nnimap-object cl-struct-nnimap-tags assoc string-match 0 error "%s accessing a non-%s" nnimap-greeting nnimap 9 2] 7])
(defalias 'nnimap-finish-retrieve-group-infos #[(server infos sequences) "\205\241 \306\307 \310#\205\241 \311\312 !\205\241 \313\311\312 !!\314>\205\241 r\312 q\210\315@A@\316=\2036 \211@@)\202: @A@\310\"\205\240 \317\320\321\237!! \"\210r\fq\210\322 \210 \307 \211 \205\237 @\211@ \323 \"J\211 \203\224 \324\325\326 \327\330 \"\203\206 \331\225\307O\202\210 )\332\" A @$c\210*A\211\204Y \307+)\207" [sequences server x infos nntp-server-buffer info nnimap-possibly-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 intern-soft format "%S %d %d y\n" decode-coding-string string-match "^[^:]+:" 0 utf-8 --dolist-tail-- group gnus-active-hashtb active gname] 7])
(nnoo-register-function 'nnimap-finish-retrieve-group-infos)
(defalias 'nnimap-update-infos #[(flags infos) "\306\211\205< \n@\307 @\310\311 \"\203 \312\225\306O\202 )! \313\f
\"A\211
\2033 \314
\"\210*\nA\211\204 \306*\207" [infos info --dolist-tail-- gname group flags nil nnimap-decode-gnus-group string-match "^[^:]+:" 0 assoc nnimap-update-info marks] 5])
(defalias 'nnimap-update-info #[(info marks) "\211G\306U\203 \211A@\202 \307\310\311 GD\" \211A@ \211A@ \211A@ \211A@ * \211A@ + \211A@ \211A@
\211A@ , @ -\n\204v *\204v \312\313.8\236A\211 \n\205r \314.@/\"\nL)\202\375\315\313.8\236A\211 0\205\226 0
\232?\205\226 +?\206\226 +\316V)\203\250 \317.\315\"\210\317.\320\"\202\375.@ 1+\205\266 +\316U 2\3211/\"J\206\311 \312\313.8\236A \n*\203\324 *S2\204\343 \3211/\"J\2046\3141/\"\n\203
\206\365 \n@\n@^\f\206 \nA\nA]B\2021
\203\f\203
\fB\2021*\203#*\211SB\2021+\2030+\211SB\2021\311L\210\202I\3141/\"\n@\f\206F*SBL\210\322=\204f\323.\324\325>\204b\326>\205d#\210\324\313.8\236A\211\203\226-\203\213+\204\213\327.\n\330,! $\210\202\226\331\332\211\n\333\326 \"A\"\333\334 \"A\"! 3\335+\fB3\" 4+\316V\203\316\336+\316V\203\305\337\316+SB\340.8\"\202\311\340.84\"4<\203\333\326>\203\343.AA4\240\210\341.85A\311 6\211 7\203\2157@6<\203\3336AA@ \"@>\204\325>\203\204\3336@\"\331\3336AA@ \"\206D\333\3146\211 8A@)9\" \"\206D\3336\211 8A@) \"A! : ;\342;\";\210;A\211;\203u+\316V\203u\335;+\fB\";\336;:\"::\203\2036@:BB*7A\2117\204\364*\343.\341#\210*\333\344 \"A <\n\203\323<\203\323\345<!@\nAV\203\3231 =\346\347=\"\203\310=\350\225\311O\202\312=)\350BC>B>)\323.\312\3211/\"J#\210\323.\315
#\210\323.\320-#\210\351.\3211/\"J\"+. \207" [marks #1=#:--cl-rest-- existing flags high low 10 signal wrong-number-of-arguments nil active 5 intern uidvalidity 1 gnus-group-remove-parameter modseq intern-soft 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 assoc %Flagged gnus-range-difference gnus-range-nconcat gnus-sorted-range-intersection 2 3 delq gnus-info-set-entry %Recent last string-match "^[^:]+:" 0 nnimap-store-info uidnext start-article vanished highestmodseq info gnus-active-hashtb old-uidvalidity group completep unread read nnimap-mark-alist type --dolist-tail-- x obarray new-marks old-marks recent gname nnmail-split-history] 8])
(defalias 'nnimap-update-qresync-info #[(info existing vanished flags) "AA\306\211\307\3108 \"\311\n\236A\"\312\n\236A\"\240\210\3138\fA\314 \211 \205\231 @\315
@ \"\315
AA@\n\"\206S \315\316
\211 A@)\"\n\"\206S \315
\211 A@)\n\"A \317 \"\210A\306\"\320\321\322\"!\"\211\203\210
@B B*\323 \313#\210A\211\204% \314+\207" [info vanished flags marks nnimap-mark-alist type 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 gnus-info-set-entry --dolist-tail-- x obarray new-marks ticks existing] 7])
(defalias 'nnimap-imap-ranges-to-gnus-ranges #[(irange) "\306G!?\205F \307\310\311\"\307\211\203B @\312\313\n\"\2035 \310\n\313\" \314\f@!\314\f\211 A@)!)B\2028 \314\n! B A\211\204 * \237)\207" [irange result elem --dolist-tail-- numbers x zerop nil split-string "," string-match ":" string-to-number] 4])
(defalias 'nnimap-store-info #[(info active) "@\306\307 \"\203 \310\225\311O\202 )\312\n \"\211 \203& \f
D\241\202. \n
E B\211*\207" [info gname group nnimap-current-infos entry active string-match "^[^:]+:" 0 nil assoc] 4])
(defalias 'nnimap-flags-to-marks #[(groups) "\306\211\211\211\211\211\211\211\211\211\211 \306 \211 \203\353 @\211@A@\3078\3108\3118\3128\3138\314\233\211\211 @@)\306\211\211 \306 \211 \203\310 @\211@@BA\306 \211 \203\276 @ \315 \"\211\204\254 @DB\202\265 \f@\fAB\241\210A\211\204\216 *A\211\204q *
\n \257 B,A\211\204& *. \207" [highestmodseq vanished uidvalidity permanent-flags mark start-article nil 2 3 4 5 6 7 assoc articles uidnext totalp group data groups elem --dolist-tail-- x 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\250*@\211)\211 +G\317U\203[ +\211A+@\202c \320\321\314+GD\" ,+\211A+@ -+\211A+@ .+\211A+@ /+@ 0`'\322\323\324,\"\314\311#\203\235\325y\210`&'b\2100\326\232\203\270 \322\327&\206\255 e\311#\205\271 \330p!\202\271 \331'b\210\322\332&\206\306 e\311#\205\316 \330p!'b\210\312\333&\206\333 e\311#\205\343 \334\325!'b\210-\335=\205\377 \312\336&\206\367 e\311#\205\377 \334\325!'b\210\312\337&\206\fe\311#\205\334\325!&b\210\340y\203\235-\335=\2041\322\323\324-\"\314\311#\203\235-\335=\203C'b\210&'\202J`'&b\210\312\341'\311#\203v` 1\330p!\342\f>\211 2A@)\343\f>\211 2A@)B%B%)\202J/
. \n \257%\244$B$-\335=\203\227&b\210\202\232`&\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 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 p x] 11])
(defalias 'nnimap-find-process-buffer #[(buffer) "\303 \"\211A@)\207" [buffer nnimap-connection-alist x assoc] 4])
(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! \203 \307\n!\207\310 \"\205@ \311\n! r\312 q\210\313\314\f\")\211 \205? \315
@\205< \316\317\320\321\322\323
A\"A\"\"\324\325#*\207" [group gnus-refer-thread-use-nnir header server cmd result nnimap-decode-gnus-group nnir-search-thread nnimap-possibly-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)
(defalias 'nnimap-possibly-change-group #[(group server &optional no-reconnect) "\306 \203 \307 !\204 \310 \311\n#\204 \311\202\202 \204\" \306\202\202 r\312 q\210 \f\313H
>\2046 \314\315\316\317#\210\f\320H\232\203A \306\202\201 \321\322\323 \306\"\"\211 @\205\200 \f\313H
>\204] \314\315\316\317#\210\f\211 \320 I\210)\f\313H
>\204t \314\315\324\317#\210\f\211 \325I\210))))\207" [open-result server no-reconnect group nnimap-object cl-struct-nnimap-tags t nnimap-server-opened nnimap-open-server nil nnimap-buffer 0 error "%s accessing a non-%s" nnimap-group nnimap 1 nnimap-command "SELECT %S" utf7-encode nnimap-select-result 5 result #1=#:v #2=#:v] 6])
#@43 Find the connection delivering to BUFFER.
(defalias 'nnimap-find-connection #[(buffer) "\304 \"\211\205? \305\n\211A@)!\2039 \306\n\211A@)!\2039 \307\306\n\211A@)!!\310>\2039 \306\n\211A@)!\202? \311\n \"\312)\207" [buffer nnimap-connection-alist entry x assoc buffer-name get-buffer-process process-status (open run) delq nil] 4 (#$ . 60808)])
(defvar nnimap-sequence 0)
(defalias 'nnimap-send-command #[(&rest args) "\306H >\204 \307\310\311\312#\210\211\313\314 I\210)\315\316p!\317\320\321 T\211\322\320\f\"\306H >\2044 \307\310\323\312#\210\324H\203> \325\202? \326$!\"\210
\204K \327 !\210 \207" [nnimap-object cl-struct-nnimap-tags #1=#:v nnimap-sequence args nnimap-streaming 0 error "%s accessing a non-%s" nnimap-last-command-time nnimap 8 current-time process-send-string get-buffer-process nnimap-log-command format "%d %s%s\n" apply nnimap-newlinep 6 "" "
" nnimap-wait-for-response] 12])
#@54 If non-nil, log commands to the "*imap log*" buffer.
(defvar nnimap-record-commands nil (#$ . 61730))
(defalias 'nnimap-log-command #[(command) "\203 r\304\305!q\210db\210\306\307!\310 \311\n\203 \312\202 \261\210) \207" [nnimap-record-commands nnimap-address nnimap-inhibit-logging command get-buffer-create "*imap log*" format-time-string "%H:%M:%S" " [" "] " "(inhibited)\n"] 5])
(defalias 'nnimap-command #[(&rest args) "\304 \210\305\306\"\307 !\211\211@@)\310\232\203 \311\nB\202) \312\313\314\315\316\n@\317##\210\320*\207" [args sequence response x 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) "\302p!\303\303\304\305\217*\207" [openp process get-buffer-process nil (byte-code "db\210\306!\307>\211\203\207 o\204 \310y\210\311\312!\204
\311\313\314\n\"!\204\207 \203} \315\316\317\320 \321\245\f\322
\323H >\204? \324\325\326\327#\210
\330H!\204z \313\331
\323H >\204W \324\325\326\327#\210
\330H
\323H >\204i \324\325\326\327#\210
\330H\332U\203u \333\202v \334#\202{ \333%\210\335!\210db\210\202
\323H >\204\226 \324\325\326\327#\210
\211 \330\323I\210) \207" [process openp sequence messagep nnimap-address nnimap-object process-status (open run) -1 looking-at "\\*" format "%d .*\n" nnheader-message-maybe 7 "nnimap read %dk from %s%s" buffer-size 1000 zerop 0 error "%s accessing a non-%s" nnimap-initial-resync nnimap 12 " (initial sync of %d group%s; please wait)" 1 "" "s" nnheader-accept-process-output cl-struct-nnimap-tags #1=#:v] 13) ((quit (byte-code "\203 \302\303!\210\304 !\210\305\207" [debug-on-quit process debug "Quit" delete-process nil] 2)))] 3])
(defalias 'nnimap-parse-response #[nil "\304\305 \306\307#\310\211\310\211\203\" @\311\n!AB A\211\204 *\211A@\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 \210 c\210eb\210m\204\227 \311g\211\312\"\203* \313u\210\202 \311 \314\"\203H \315`T\316\317\320 \321#\203B `S\202C `{!\202\221 \311 \322\"\203f \315`T\316\323\320 \321#\203` `S\202a `{!\202\221 \311 \324\"\203\200 \313u\210`\316\325\320 \321#\206{ `S{\202\221 `\316\326\304\327#\203\216 `S\202\220 db{B\202 \237-\207" [result char #1=#:temp-buffer line nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte eql 32 1 91 split-string search-forward "]" line-end-position move 40 ")" 34 "\"" " " 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])
(defalias 'nnimap-get-responses #[(sequences) "\304 \304\211\203) @eb\210\305\306\307\n\"\304\310#\203\" \n\311 DB A\211\204\n *)\207" [responses sequences sequence --dolist-tail-- nil re-search-forward format "^%d " t nnimap-parse-response] 5])
(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 \307 ( )\313 \210\314\315*\"\210+\316H,>\204G \317\320\321\322#\210+\211 -\323*I\210)\324\325\326!!\211\205\327\f!\210\330 \210\331 \210\332 \210\333p\334\307\211\335\334&\210)\205\336)!\307\211 . /\211 0\307 1\211 2\203\265 2@\2111@
\235\204\254 1@\337=\204\254 \314\340\3411@\311\"\"\2102A\2112\204\216 *\313 \2100\307 1\211 2\203\375 2@\2111@1A 3\211 4\337=\203\337 3.\202\363 \342\343\3443!\3414\311\"#3D/B/*2A\2112\204\304 */\203\345/\211 5@@)!\210\346\347/!!\210\346.!+.\207" [nnimap-split-methods nnmail-split-methods nnimap-split-fancy nnmail-split-fancy new-articles groups nnimap-buffer nil default t nnimap-get-groups erase-buffer nnimap-command "SELECT %S" 0 error "%s accessing a non-%s" nnimap-group 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" utf7-encode nnimap-send-command "UID COPY %s %S" nnimap-article-ranges nnimap-wait-for-response nnimap-mark-and-expunge-incoming nnimap-parse-copied-articles 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 x] 8])
(defalias 'nnimap-mark-and-expunge-incoming #[(range) "\205* \303!\304 \210\305\306\"\307\310!\203 \305\311\"\202& \n\203& \305\312!\313 !)\207" [range sequence nnimap-expunge nnimap-article-ranges erase-buffer nnimap-send-command "UID STORE %s +FLAGS.SILENT (\\Deleted)" nnimap-capability "UIDPLUS" "UID EXPUNGE %s" "EXPUNGE" nnimap-wait-for-response] 3])
(defalias 'nnimap-parse-copied-articles #[(sequences) "\305\211\211eb\210\306\307\305\310#\203- \311\312\313!!\211 \236\211 A@)\211\203 \314! B\202 \315\316\317\320 \"\321\"!+\207" [range copied sequence sequences x 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@B A\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\211 G\307U\203
\211A@\202' \310\311\306
GD\"
@ \312\306\313\314\"\"\306 \211 \203b \f@\315 \"\211\204S C\211 BAB\241\210\fA\211\204= -\fA\211\204\f * \306\211 \203\207 \f@\211\316\317A\320\"!\241\210\fA\211\204s * *\207" [entry specs list elem --dolist-tail-- #1=#:--cl-rest-- nil 2 signal wrong-number-of-arguments delete mapcar car assoc gnus-compress-sequence sort < article spec group] 6])
(defalias 'nnimap-transform-split-mail #[nil "eb\210\302\211\303\304\215*\207" [bytes article nil --cl-block-nil-- (byte-code "m?\205O \302\303!\204 `\304y\210`|\210m\203 \305\306\307\"\210\202 \310\304!\311 \312 \313 |\210\314\315\"c\210 Tu\210\311 \312 \313 |\210 \203 Tu\210\312 \313 |\210\202 \207" [article bytes looking-at "\\* [0-9]+ FETCH.+UID \\([0-9]+\\)" 1 throw --cl-block-nil-- nil match-string nnimap-get-length line-beginning-position line-end-position format "\n\nX-nnimap-article: %s"] 3)] 2])
(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)