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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [require nnheader gnus gnus-util gnus-range gnus-start gnus-int message nnmail] 2)
(defconst nnmaildir-version "Gnus")
#@207 Alist mapping Maildir filename flags to Gnus marks.
Maildir filenames are of the form "unique-id:2,FLAGS",
where FLAGS are a string of characters in ASCII order.
Some of the FLAGS correspond to Gnus marks.
(defconst nnmaildir-flag-mark-mapping '((70 . tick) (80 . forward) (82 . reply) (83 . read)) (#$ . 322))
#@146 Find the Maildir flag that corresponds to MARK (an atom).
Return a character, or nil if not found.
See `nnmaildir-flag-mark-mapping'.

(fn MARK)
(defalias 'nnmaildir--mark-to-flag #[257 "\301
\"@\207" [nnmaildir-flag-mark-mapping rassq] 4 (#$ . 640)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--mark-to-flag speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@143 Find the Gnus mark that corresponds to FLAG (a character).
Return an atom, or nil if not found.
See `nnmaildir-flag-mark-mapping'.

(fn FLAG)
(defalias 'nnmaildir--flag-to-mark #[257 "\211\236A\207" [nnmaildir-flag-mark-mapping] 3 (#$ . 1049)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--flag-to-mark speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@64 Ensure that FILENAME contains the suffix ":2,".

(fn FILENAME)
(defalias 'nnmaildir--ensure-suffix #[257 "\300\301\"\203\207\211\301P\207" [string-search ":2,"] 4 (#$ . 1450)])
#@94 Return a copy of SUFFIX where FLAG is set.
SUFFIX should start with ":2,".

(fn FLAG SUFFIX)
(defalias 'nnmaildir--add-flag #[514 "\301
\302\303\304#)\266\203\204\305\306\"\210\211\307\302O\310
\302\"\311\312B\313\"!\260
\314
P\207" [inhibit-changing-match-data "^:2," nil t string-match error "Invalid suffix `%s'" 3 append gnus-delete-duplicates sort < ":2,"] 9 (#$ . 1636)])
#@98 Return a copy of SUFFIX where FLAG is cleared.
SUFFIX should start with ":2,".

(fn FLAG SUFFIX)
(defalias 'nnmaildir--remove-flag #[514 "\301
\302\303\304#)\266\203\204\305\306\"\210\211\307\302O\310
\302\"\311\"\260
\312
P\207" [inhibit-changing-match-data "^:2," nil t string-match error "Invalid suffix `%s'" 3 append delq ":2,"] 9 (#$ . 2029)])
#@107 The filename of the most recently requested article.
This variable is set by `nnmaildir-request-article'.
(defvar nnmaildir-article-file-name nil (#$ . 2395))
(defvar nnmaildir--file nil)
(defvar nnmaildir--delivery-time "")
(defconst nnmaildir--delivery-pid (byte-code "\300\301\302 !P\207" ["P" number-to-string emacs-pid] 3))
(defvar nnmaildir--delivery-count nil)
#@47 Alist mapping server name strings to servers.
(defvar nnmaildir--servers nil (#$ . 2769))
#@21 The current server.
(defvar nnmaildir--cur-server nil (#$ . 2865))
(defvar nnmaildir--extra nil)
(defconst nnmaildir--novlen 5)
#@32 

(fn BEG MID END MTIME EXTRA)
(defalias 'nnmaildir--nov-new '(macro . #[1285 "\300\257\207" [vector] 11 (#$ . 2999)]))
#@12 

(fn NOV)
(defalias 'nnmaildir--nov-get-beg '(macro . #[257 "\300
\301BB\207" [aref (0)] 4 (#$ . 3131)]))
#@12 

(fn NOV)
(defalias 'nnmaildir--nov-get-mid '(macro . #[257 "\300
\301BB\207" [aref (1)] 4 (#$ . 3244)]))
#@12 

(fn NOV)
(defalias 'nnmaildir--nov-get-end '(macro . #[257 "\300
\301BB\207" [aref (2)] 4 (#$ . 3357)]))
#@12 

(fn NOV)
(defalias 'nnmaildir--nov-get-mtime '(macro . #[257 "\300
\301BB\207" [aref (3)] 4 (#$ . 3470)]))
#@12 

(fn NOV)
(defalias 'nnmaildir--nov-get-extra '(macro . #[257 "\300
\301BB\207" [aref (4)] 4 (#$ . 3585)]))
#@18 

(fn NOV VALUE)
(defalias 'nnmaildir--nov-set-beg '(macro . #[514 "\300\301F\207" [aset 0] 6 (#$ . 3700)]))
#@18 

(fn NOV VALUE)
(defalias 'nnmaildir--nov-set-mid '(macro . #[514 "\300\301F\207" [aset 1] 6 (#$ . 3817)]))
#@18 

(fn NOV VALUE)
(defalias 'nnmaildir--nov-set-end '(macro . #[514 "\300\301F\207" [aset 2] 6 (#$ . 3934)]))
#@18 

(fn NOV VALUE)
(defalias 'nnmaildir--nov-set-mtime '(macro . #[514 "\300\301F\207" [aset 3] 6 (#$ . 4051)]))
#@18 

(fn NOV VALUE)
(defalias 'nnmaildir--nov-set-extra '(macro . #[514 "\300\301F\207" [aset 4] 6 (#$ . 4170)]))
#@73 compiler-macro for inlining `nnmaildir--art-p'.

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

(fn CL-X)
(defalias 'nnmaildir--art-p #[257 "\301
!>\205	\302\207" [cl-struct-nnmaildir--art-tags type-of t] 3 (#$ . 4647)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put nnmaildir--art-p side-effect-free error-free put nnmaildir--art cl-deftype-satisfies] 5)
#@78 compiler-macro for inlining `nnmaildir--art-prefix'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--art-prefix--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-prefix (progn (or (nnmaildir--art-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--art cl-x))) (aref cl-x 1))) nil] 9 (#$ . 4937)])
(put 'nnmaildir--art-prefix 'compiler-macro 'nnmaildir--art-prefix--cmacro)
#@66 Access slot "prefix" of `nnmaildir--art' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--art-suffix--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-suffix (progn (or (nnmaildir--art-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--art cl-x))) (aref cl-x 2))) nil] 9 (#$ . 5727)])
(put 'nnmaildir--art-suffix 'compiler-macro 'nnmaildir--art-suffix--cmacro)
#@66 Access slot "suffix" of `nnmaildir--art' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--art-num--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-num (progn (or (nnmaildir--art-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--art cl-x))) (aref cl-x 3))) nil] 9 (#$ . 6517)])
(put 'nnmaildir--art-num 'compiler-macro 'nnmaildir--art-num--cmacro)
#@63 Access slot "num" of `nnmaildir--art' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--art-msgid--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-msgid (progn (or (nnmaildir--art-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--art cl-x))) (aref cl-x 4))) nil] 9 (#$ . 7283)])
(put 'nnmaildir--art-msgid 'compiler-macro 'nnmaildir--art-msgid--cmacro)
#@65 Access slot "msgid" of `nnmaildir--art' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--art-nov--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-nov (progn (or (nnmaildir--art-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--art cl-x))) (aref cl-x 5))) nil] 9 (#$ . 8065)])
(put 'nnmaildir--art-nov 'compiler-macro 'nnmaildir--art-nov--cmacro)
#@63 Access slot "nov" of `nnmaildir--art' struct CL-X.

(fn CL-X)
(defalias 'nnmaildir--art-nov #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnmaildir--art-tags type-of signal wrong-type-argument nnmaildir--art 5] 5 (#$ . 8482)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put nnmaildir--art-nov side-effect-free t defalias copy-nnmaildir--art copy-sequence] 4)
#@110 compiler-macro for inlining `make-nnmaildir--art'.

(fn CL-WHOLE &cl-quote &key PREFIX SUFFIX NUM MSGID NOV)
(defalias 'make-nnmaildir--art--cmacro #[385 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J\211@\306>\2032\211AA\262
\202\307>A@\203A\310\262
\202\311\312@\"\210\202\210\313\314\315\310\n\310\n\n\n\n\n&\n\207" [plist-member :prefix :suffix :num :msgid :nov (:prefix :suffix :num :msgid :nov :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:prefix :suffix :num :msgid :nov)" cl--defsubst-expand (prefix suffix num msgid nov) (cl-block make-nnmaildir--art (record 'nnmaildir--art prefix suffix num msgid nov))] 18 (#$ . 8885)])
(put 'make-nnmaildir--art 'compiler-macro 'make-nnmaildir--art--cmacro)
#@90 Constructor for objects of type `nnmaildir--art'.

(fn &key PREFIX SUFFIX NUM MSGID NOV)
(defalias 'make-nnmaildir--art #[128 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J\211@\306>\2032\211AA\262
\202\307>A@\203A\310\262
\202\311\312@\"\210\202\210\313\314&\207" [plist-member :prefix :suffix :num :msgid :nov (:prefix :suffix :num :msgid :nov :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:prefix :suffix :num :msgid :nov)" record nnmaildir--art] 13 (#$ . 9678)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put make-nnmaildir--art side-effect-free t cl-struct-define nnmaildir--art nil cl-structure-object record ((cl-tag-slot) (prefix nil :type string) (suffix nil :type string) (num nil :type natnum) (msgid nil :type string) (nov nil :type vector)) cl-struct-nnmaildir--art-tags] 11)
#@73 compiler-macro for inlining `nnmaildir--grp-p'.

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

(fn CL-X)
(defalias 'nnmaildir--grp-p #[257 "\301
!>\205	\302\207" [cl-struct-nnmaildir--grp-tags type-of t] 3 (#$ . 10964)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put nnmaildir--grp-p side-effect-free error-free put nnmaildir--grp cl-deftype-satisfies] 5)
#@76 compiler-macro for inlining `nnmaildir--grp-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--grp-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-name (progn (or (nnmaildir--grp-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 1))) nil] 9 (#$ . 11255)])
(put 'nnmaildir--grp-name 'compiler-macro 'nnmaildir--grp-name--cmacro)
#@64 Access slot "name" of `nnmaildir--grp' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--grp-new--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-new (progn (or (nnmaildir--grp-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 2))) nil] 9 (#$ . 12031)])
(put 'nnmaildir--grp-new 'compiler-macro 'nnmaildir--grp-new--cmacro)
#@63 Access slot "new" of `nnmaildir--grp' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--grp-cur--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-cur (progn (or (nnmaildir--grp-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 3))) nil] 9 (#$ . 12799)])
(put 'nnmaildir--grp-cur 'compiler-macro 'nnmaildir--grp-cur--cmacro)
#@63 Access slot "cur" of `nnmaildir--grp' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--grp-min--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-min (progn (or (nnmaildir--grp-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 4))) nil] 9 (#$ . 13567)])
(put 'nnmaildir--grp-min 'compiler-macro 'nnmaildir--grp-min--cmacro)
#@63 Access slot "min" of `nnmaildir--grp' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--grp-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-count (progn (or (nnmaildir--grp-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 5))) nil] 9 (#$ . 14335)])
(put 'nnmaildir--grp-count 'compiler-macro 'nnmaildir--grp-count--cmacro)
#@65 Access slot "count" of `nnmaildir--grp' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--grp-nlist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-nlist (progn (or (nnmaildir--grp-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 6))) nil] 9 (#$ . 15119)])
(put 'nnmaildir--grp-nlist 'compiler-macro 'nnmaildir--grp-nlist--cmacro)
#@65 Access slot "nlist" of `nnmaildir--grp' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--grp-flist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-flist (progn (or (nnmaildir--grp-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 7))) nil] 9 (#$ . 15903)])
(put 'nnmaildir--grp-flist 'compiler-macro 'nnmaildir--grp-flist--cmacro)
#@65 Access slot "flist" of `nnmaildir--grp' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--grp-mlist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-mlist (progn (or (nnmaildir--grp-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 8))) nil] 9 (#$ . 16687)])
(put 'nnmaildir--grp-mlist 'compiler-macro 'nnmaildir--grp-mlist--cmacro)
#@65 Access slot "mlist" of `nnmaildir--grp' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--grp-cache--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-cache (progn (or (nnmaildir--grp-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 9))) nil] 9 (#$ . 17471)])
(put 'nnmaildir--grp-cache 'compiler-macro 'nnmaildir--grp-cache--cmacro)
#@65 Access slot "cache" of `nnmaildir--grp' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--grp-index--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-index (progn (or (nnmaildir--grp-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 10))) nil] 9 (#$ . 18255)])
(put 'nnmaildir--grp-index 'compiler-macro 'nnmaildir--grp-index--cmacro)
#@65 Access slot "index" of `nnmaildir--grp' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--grp-mmth--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-mmth (progn (or (nnmaildir--grp-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 11))) nil] 9 (#$ . 19041)])
(put 'nnmaildir--grp-mmth 'compiler-macro 'nnmaildir--grp-mmth--cmacro)
#@64 Access slot "mmth" of `nnmaildir--grp' struct CL-X.

(fn CL-X)
(defalias 'nnmaildir--grp-mmth #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 11] 5 (#$ . 19465)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put nnmaildir--grp-mmth side-effect-free t defalias copy-nnmaildir--grp copy-sequence] 4)
#@140 compiler-macro for inlining `make-nnmaildir--grp'.

(fn CL-WHOLE &cl-quote &key NAME NEW CUR MIN COUNT NLIST FLIST MLIST CACHE INDEX MMTH)
(defalias 'make-nnmaildir--grp--cmacro #[385 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"\206\305A@\300\306\"\206$\307A@\300\310\"A@\300\311\"A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\300\315\"A@\211\203}\211@\316>\203e\211AA\262
\202R\317
>A@\203t\320\262
\202R\321\322@\"\210\202R\210\323\324\325\320\320&\207" [plist-member :name :new :cur :min (nil 1) :count (nil 0) :nlist :flist :mlist :cache :index :mmth (:name :new :cur :min :count :nlist :flist :mlist :cache :index :mmth :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :new :cur :min :count :nlist :flist :mlist :cache :index :mmth)" cl--defsubst-expand (name new cur min count nlist flist mlist cache index mmth) (cl-block make-nnmaildir--grp (record 'nnmaildir--grp name new cur min count nlist flist mlist cache index mmth))] 30 (#$ . 19873)])
(put 'make-nnmaildir--grp 'compiler-macro 'make-nnmaildir--grp--cmacro)
#@120 Constructor for objects of type `nnmaildir--grp'.

(fn &key NAME NEW CUR MIN COUNT NLIST FLIST MLIST CACHE INDEX MMTH)
(defalias 'make-nnmaildir--grp #[128 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"\206\305A@\300\306\"\206$\307A@\300\310\"A@\300\311\"A@\300\312\"A@\300	\313\"A@\300\n\314\"A@\300\315\"A@\211\203}\211@\316>\203e\211AA\262
\202R\317
>A@\203t\320\262
\202R\321\322@\"\210\202R\210\323\324\f\f\f\f\f\f\f\f\f\f\f&\f\207" [plist-member :name :new :cur :min (nil 1) :count (nil 0) :nlist :flist :mlist :cache :index :mmth (:name :new :cur :min :count :nlist :flist :mlist :cache :index :mmth :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :new :cur :min :count :nlist :flist :mlist :cache :index :mmth)" record nnmaildir--grp] 25 (#$ . 20993)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put make-nnmaildir--grp side-effect-free t cl-struct-define nnmaildir--grp nil cl-structure-object record ((cl-tag-slot) (name nil :type string) (new nil :type list) (cur nil :type list) (min 1 :type natnum) (count 0 :type natnum) (nlist nil :type list) (flist nil :type hash-table) (mlist nil :type hash-table) (cache nil :type vector) (index nil :type natnum) (mmth nil :type hash-table)) cl-struct-nnmaildir--grp-tags] 11)
#@73 compiler-macro for inlining `nnmaildir--srv-p'.

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

(fn CL-X)
(defalias 'nnmaildir--srv-p #[257 "\301
!>\205	\302\207" [cl-struct-nnmaildir--srv-tags type-of t] 3 (#$ . 22710)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put nnmaildir--srv-p side-effect-free error-free put nnmaildir--srv cl-deftype-satisfies] 5)
#@79 compiler-macro for inlining `nnmaildir--srv-address'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--srv-address--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-address (progn (or (nnmaildir--srv-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 1))) nil] 9 (#$ . 23001)])
(put 'nnmaildir--srv-address 'compiler-macro 'nnmaildir--srv-address--cmacro)
#@67 Access slot "address" of `nnmaildir--srv' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--srv-method--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-method (progn (or (nnmaildir--srv-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 2))) nil] 9 (#$ . 23801)])
(put 'nnmaildir--srv-method 'compiler-macro 'nnmaildir--srv-method--cmacro)
#@66 Access slot "method" of `nnmaildir--srv' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--srv-prefix--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-prefix (progn (or (nnmaildir--srv-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 3))) nil] 9 (#$ . 24593)])
(put 'nnmaildir--srv-prefix 'compiler-macro 'nnmaildir--srv-prefix--cmacro)
#@66 Access slot "prefix" of `nnmaildir--srv' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--srv-dir--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-dir (progn (or (nnmaildir--srv-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 4))) nil] 9 (#$ . 25385)])
(put 'nnmaildir--srv-dir 'compiler-macro 'nnmaildir--srv-dir--cmacro)
#@63 Access slot "dir" of `nnmaildir--srv' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--srv-ls--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-ls (progn (or (nnmaildir--srv-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 5))) nil] 9 (#$ . 26153)])
(put 'nnmaildir--srv-ls 'compiler-macro 'nnmaildir--srv-ls--cmacro)
#@62 Access slot "ls" of `nnmaildir--srv' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--srv-groups--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-groups (progn (or (nnmaildir--srv-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 6))) nil] 9 (#$ . 26913)])
(put 'nnmaildir--srv-groups 'compiler-macro 'nnmaildir--srv-groups--cmacro)
#@66 Access slot "groups" of `nnmaildir--srv' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--srv-curgrp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-curgrp (progn (or (nnmaildir--srv-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 7))) nil] 9 (#$ . 27705)])
(put 'nnmaildir--srv-curgrp 'compiler-macro 'nnmaildir--srv-curgrp--cmacro)
#@66 Access slot "curgrp" of `nnmaildir--srv' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--srv-error--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-error (progn (or (nnmaildir--srv-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 8))) nil] 9 (#$ . 28497)])
(put 'nnmaildir--srv-error 'compiler-macro 'nnmaildir--srv-error--cmacro)
#@65 Access slot "error" of `nnmaildir--srv' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--srv-mtime--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-mtime (progn (or (nnmaildir--srv-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 9))) nil] 9 (#$ . 29281)])
(put 'nnmaildir--srv-mtime 'compiler-macro 'nnmaildir--srv-mtime--cmacro)
#@65 Access slot "mtime" of `nnmaildir--srv' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--srv-gnm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-gnm (progn (or (nnmaildir--srv-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 10))) nil] 9 (#$ . 30065)])
(put 'nnmaildir--srv-gnm 'compiler-macro 'nnmaildir--srv-gnm--cmacro)
#@63 Access slot "gnm" of `nnmaildir--srv' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'nnmaildir--srv-target-prefix--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-target-prefix (progn (or (nnmaildir--srv-p cl-x) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 11))) nil] 9 (#$ . 30835)])
(put 'nnmaildir--srv-target-prefix 'compiler-macro 'nnmaildir--srv-target-prefix--cmacro)
#@73 Access slot "target-prefix" of `nnmaildir--srv' struct CL-X.

(fn CL-X)
(defalias 'nnmaildir--srv-target-prefix #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 11] 5 (#$ . 31304)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put nnmaildir--srv-target-prefix side-effect-free t defalias copy-nnmaildir--srv copy-sequence] 4)
#@155 compiler-macro for inlining `make-nnmaildir--srv'.

(fn CL-WHOLE &cl-quote &key ADDRESS METHOD PREFIX DIR LS GROUPS CURGRP ERROR MTIME GNM TARGET-PREFIX)
(defalias 'make-nnmaildir--srv--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@\211\203u\211@\314>\203]\211AA\262
\202J\315
>A@\203l\316\262
\202J\317\320@\"\210\202J\210\321\322\323\316\316&\207" [plist-member :address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix (:address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix)" cl--defsubst-expand (address method prefix dir ls groups curgrp error mtime gnm target-prefix) (cl-block make-nnmaildir--srv (record 'nnmaildir--srv address method prefix dir ls groups curgrp error mtime gnm target-prefix))] 30 (#$ . 31739)])
(put 'make-nnmaildir--srv 'compiler-macro 'make-nnmaildir--srv--cmacro)
#@135 Constructor for objects of type `nnmaildir--srv'.

(fn &key ADDRESS METHOD PREFIX DIR LS GROUPS CURGRP ERROR MTIME GNM TARGET-PREFIX)
(defalias 'make-nnmaildir--srv #[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@\211\203u\211@\314>\203]\211AA\262
\202J\315
>A@\203l\316\262
\202J\317\320@\"\210\202J\210\321\322\f\f\f\f\f\f\f\f\f\f\f&\f\207" [plist-member :address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix (:address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix)" record nnmaildir--srv] 25 (#$ . 32913)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put make-nnmaildir--srv side-effect-free t cl-struct-define nnmaildir--srv nil cl-structure-object record ((cl-tag-slot) (address nil :type string) (method nil :type list) (prefix nil :type string) (dir nil :type string) (ls nil :type function) (groups nil :type hash-table) (curgrp nil :type nnmaildir--grp) (error nil :type string) (mtime nil :type list) (gnm nil) (target-prefix nil :type string)) cl-struct-nnmaildir--srv-tags] 11)
#@34 

(fn ARTICLE NEW-SUFFIX CURDIR)
(defalias 'nnmaildir--article-set-flags #[771 "\302!>\204\303\304\305D\"\210\306H\302!>\204\"\303\304\305D\"\210\307HQQ\310!\204y\311\312Q!\313
\306\"\203_\314
@\315\316\317#)\266\203\204W\320\321\"\210\211@\262\210\202y\322
\306\"\203o\320\323\"\266\202y\211\204x\320\324\"\210\210\325\326#\210\302!>\204\220\303\304\305	D\"\210\307I\207" [cl-struct-nnmaildir--art-tags inhibit-changing-match-data type-of signal wrong-type-argument nnmaildir--art 1 2 file-exists-p file-expand-wildcards "*" length= "\\`\\(.+\\):2,.*?\\'" nil t string-match error "Couldn't find updated article file %s" length> "Couldn't determine exact article file %s" "Couldn't find article file %s" rename-file replace] 15 (#$ . 34305)])
#@22 

(fn GROUP ARTICLE)
(defalias 'nnmaildir--expired-article #[514 "\303
!>\204\304\305\306D\"\210\211\307\310I\210\303!	>\204#\304\305\311D\"\210
\312H\303!	>\2045\304\305\311D\"\210\313H\303!	>\204H\304\305\311D\"\210\314H\303!	>\204[\304\305\311D\"\210\307HS\303!>\204o\304\305\306D\"\210\315H\303!>\204\203\304\305\306D\"\210\314H\310\316\310\211\317U\204\372\303\f!	>\204\242\304\305\311D\"\210\320H\262\303!>\204\271\304\305\306
D\"\210\n\321H\262
\211@@=\203\316
A\262\202\372
\262
\262
A\262\211@@U\204\352
\262
A\262\202\330
A\262\211=\203\372@@\262\322\303\f!	>\204

\304\305\311D\"\210\314	I\210\303\f!	>\204%
\304\305\311D\"\210\307I\210\303\f!	>\204=
\304\305\311D\"\210\320I\210\241\210\323\"\210\323\n\")\207" [cl-struct-nnmaildir--art-tags cl-struct-nnmaildir--grp-tags inhibit-quit type-of signal wrong-type-argument nnmaildir--art 5 nil nnmaildir--grp 7 8 4 1 (nil) 0 6 3 t remhash] 16 (#$ . 35104)])
#@18 

(fn GROUP NUM)
(defalias 'nnmaildir--nlist-art #[514 "\211\301!>\204\302\303\304D\"\210\305H\236\211\205\211A\207" [cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 6] 7 (#$ . 36123)])
#@18 

(fn LIST FILE)
(defalias 'nnmaildir--flist-art '(macro . #[514 "\300
E\207" [gethash] 5 (#$ . 36355)]))
#@19 

(fn LIST MSGID)
(defalias 'nnmaildir--mlist-art '(macro . #[514 "\300
E\207" [gethash] 5 (#$ . 36468)]))
#@21 

(fn SERVER GNAME)
(defalias 'nnmaildir--pgname #[514 "\301!>\204\302\303\304D\"\210
\305H\211\203\211P\207\306\301!>\204,\302\303\304D\"\210\307H\"\262\301!>\204A\302\303\304D\"\210\305\310!I\210
\207" [cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 3 gnus-group-prefixed-name 2 gnus-group-real-prefix] 9 (#$ . 36582)])
#@21 

(fn PGNAME PARAM)
(defalias 'nnmaildir--param #[514 "\300\301#\262
\302
!\203\211\303H\262
\304
\305\"\207" [gnus-group-find-parameter allow-list vectorp 0 eval t] 6 (#$ . 36965)])
#@19 

(fn &rest BODY)
(defalias 'nnmaildir--with-nntp-buffer '(macro . #[128 "\300\301BB\207" [with-current-buffer nntp-server-buffer] 4 (#$ . 37158)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--with-nntp-buffer lisp-indent-function 0 put edebug-form-spec t] 5)
#@19 

(fn &rest BODY)
(defalias 'nnmaildir--with-work-buffer '(macro . #[128 "\300\301BB\207" [with-current-buffer (gnus-get-buffer-create " *nnmaildir work*")] 4 (#$ . 37458)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--with-work-buffer lisp-indent-function 0 put edebug-form-spec t] 5)
#@19 

(fn &rest BODY)
(defalias 'nnmaildir--with-nov-buffer '(macro . #[128 "\300\301BB\207" [with-current-buffer (gnus-get-buffer-create " *nnmaildir nov*")] 4 (#$ . 37784)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--with-nov-buffer lisp-indent-function 0 put edebug-form-spec t] 5)
#@19 

(fn &rest BODY)
(defalias 'nnmaildir--with-move-buffer '(macro . #[128 "\300\301BB\207" [with-current-buffer (gnus-get-buffer-create " *nnmaildir move*")] 4 (#$ . 38107)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--with-move-buffer lisp-indent-function 0 put edebug-form-spec t] 5)
#@19 

(fn DIR SUBDIR)
(defalias 'nnmaildir--subdir #[514 "\300P!\207" [file-name-as-directory] 5 (#$ . 38433)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--subdir speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@22 

(fn SRV-DIR GNAME)
(defalias 'nnmaildir--srvgrp-dir #[514 "

\300P!\207" [file-name-as-directory] 7 (#$ . 38692)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--srvgrp-dir speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn DIR)
(defalias 'nnmaildir--tmp #[257 "\211\300\301P!\207" ["tmp" file-name-as-directory] 6 (#$ . 38964)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--tmp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn DIR)
(defalias 'nnmaildir--new #[257 "\211\300\301P!\207" ["new" file-name-as-directory] 6 (#$ . 39224)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--new speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn DIR)
(defalias 'nnmaildir--cur #[257 "\211\300\301P!\207" ["cur" file-name-as-directory] 6 (#$ . 39484)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--cur speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn DIR)
(defalias 'nnmaildir--nndir #[257 "\211\300\301P!\207" [".nnmaildir" file-name-as-directory] 6 (#$ . 39744)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--nndir speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn DIR)
(defalias 'nnmaildir--nov-dir #[257 "\211\300\301P!\207" ["nov" file-name-as-directory] 6 (#$ . 40015)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--nov-dir speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn DIR)
(defalias 'nnmaildir--marks-dir #[257 "\211\300\301P!\207" ["marks" file-name-as-directory] 6 (#$ . 40283)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--marks-dir speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn DIR)
(defalias 'nnmaildir--num-dir #[257 "\211\300\301P!\207" ["num" file-name-as-directory] 6 (#$ . 40557)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--num-dir speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@17 

(fn FILE-ARG)
(defalias 'nnmaildir--unlink '(macro . #[257 "\300\301DC\302BB\207" [let file ((if (file-attributes file) (delete-file file)))] 4 (#$ . 40825)]))
#@12 

(fn DIR)
(defalias 'nnmaildir--mkdir #[257 "\300\301!!\206
\302\303!!\207" [file-exists-p file-name-as-directory make-directory-internal directory-file-name] 4 (#$ . 40994)])
#@13 

(fn FILE)
(defalias 'nnmaildir--mkfile #[257 "\300\301\302\302\303%\207" [write-region "" nil no-message] 7 (#$ . 41180)])
#@15 

(fn DIR LS)
(defalias 'nnmaildir--delete-dir-files #[514 "\300!\205\301\302\303\304\305$\"\210\306!\207" [file-attributes mapc delete-file full "\\`[^.]" nosort delete-directory] 9 (#$ . 41312)])
#@21 

(fn SERVER GROUP)
(defalias 'nnmaildir--group-maxnum #[514 "\3022\272\303
!>\204\304\305\306D\"\210\211\307H\310U\203 \311\302\310\"\210\303!	>\204/\304\305\312D\"\210
\313H\303!>\204A\304\305\306D\"\210
\314H

\315P!\266\204\314\316\211\211\211\211\317\315P!\266\203\262\211\320\315P!\266\203\262\321\322!P!\262\204\200\311\302S\"\210\323
8\262
\262\211A@\262
\262\\\262
\321\322!P!\262\204\251\311\302S\"\210\323
8\262
\232\204j\211\262\202j\207" [cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--srv-tags return type-of signal wrong-type-argument nnmaildir--grp 5 0 throw nnmaildir--srv 4 1 file-name-as-directory nil ".nnmaildir" "num" file-attributes number-to-string 10] 14 (#$ . 41522)])
#@21 

(fn SERVER GROUP)
(defalias 'nnmaildir--prepare #[514 "\3062\340

\204\211\262\204+\307\306\310\"\210\202+\311	\310\211\312%\211\262\204)\307\306\310\"\210
\313!\n>\204:\314\315\316D\"\210
\317H\211\205\335
\211\320
!\321U\262
?\205\335
\313!\n>\204\\\314\315\316D\"\210\322H\204\300
\313!\n>\204q\314\315\316D\"\210\322\323\313!\n>\204\205\314\315\316D\"\210\324HP\211\203\226\211<\203\226\211\206\265
\325
\"A\206\265
\211\326\232\203\250\f\206\241
\325

\"A\206\241
\325
$\"A\206\241
%\211\203\327
\327\330@@@@@A@#\232\204\327\211A\262
\202\273\211@@\262
\206\241
&\211\203\373
\327\330@@@A@#\232\204\373\211A\262
\202\341\211@\262
\206\241
'A\310\211\203\237
\211A\262\242\331
8\262
\262
;\204
\310\332C\3332\220
\211
\242\206.
\f\240\210\204<
\334\335\336\"\"\210
$D\211\203U
\211@\334\335\337\"\"\210
A\266\202\202@
\210\211\242A@\340\235\203h
\327\341\242@\"\202r
\327\330\242@\242A@#\211\242B\204\214
\211\235\204\214
\325
@\"\204\214
\211B
\266\2020\266\204\232\203

\262
\310\262\202
\266\202\211\203\262
\325\"\204\262


BB\211\262
\262
\206\276
\307\306\310\"I\210
\204\331
\313!\n>\204\323
\314\315\316D\"\210\342H\202\335
\343\"\262
0\207" [nnmaildir--cur-server nnmaildir--servers cl-struct-nnmaildir--srv-tags gnus-server-method-cache gnus-select-method gnus-server-alist return throw nil alist-get equal type-of signal wrong-type-argument nnmaildir--srv 6 hash-table-count 0 2 "nnmaildir:" 1 assoc "native" format "%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" 7 gethash gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist] 20 (#$ . 42277)])
#@15 

(fn STRING)
(defalias 'nnmaildir--tab-to-space #[257 "\300\301\302#\203
\300\224\303I\210\300\225\262
\202
\210\207" [0 string-match "	" 32] 6 (#$ . 44239)])
#@34 

(fn ERRSYM BODY &rest HANDLER)
(defalias 'nnmaildir--condcase '(macro . #[642 "\300\301\302E\303BF\207" [condition-case let ((system-messages-locale "C")) error] 8 (#$ . 44410)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnmaildir--condcase lisp-indent-function 2 put edebug-form-spec (sexp form body)] 5)
#@12 

(fn ERR)
(defalias 'nnmaildir--emlink-p #[257 "\211@\300=\205\211AA@\227\301\230\207" [file-error "too many links"] 3 (#$ . 44752)])
#@12 

(fn ERR)
(defalias 'nnmaildir--enoent-p #[257 "\211@\300=\207" [file-missing] 3 (#$ . 44895)])
#@12 

(fn ERR)
(defalias 'nnmaildir--eexist-p #[257 "\211@\300=\207" [file-already-exists] 3 (#$ . 44998)])
#@86 Allocate a new article number by atomically creating a file under NNDIR.

(fn NNDIR)
(defalias 'nnmaildir--new-number #[257 "\211\211\301\302P!\266\203\303\304\305\211\211\211\211\306!\210\3072\274\310!P\262\204.\262\2028\311!\210\305\262\312\262\313!\211\211A@\262

\314
8\262
\262
\\\262\266U\203^\315\316\317D\"\210\310!P\262\3201}\321\322\"\210\323\307\")0\210\202\324
!\203\217\303\262\211\262\266\202\325
!\203\261\313!\211\314
8\262
\232?\205\254\262\312\211\262\266\202\315
@A\"\266\202\207" [system-messages-locale "num" file-name-as-directory t 1 nil nnmaildir--mkdir return number-to-string nnmaildir--mkfile 0 file-attributes 10 signal error "Corrupt internal nnmaildir data" (error) "C" add-name-to-file throw nnmaildir--emlink-p nnmaildir--eexist-p] 14 (#$ . 45108)])
#@29 

(fn SERVER GROUP ARTICLE)
(defalias 'nnmaildir--update-nov #[771 "\306\307!>\204\310\311\312D\"\210\313H\314\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211C\314C\314C\314\211\3152\240\307!>\204E\310\311\316D\"\210\317H\262\320\"\262

\321P!\266\204\262\322\323\"\203x\211\324\321P!\266\203\202\203\211\325\321P!\266\203\262\307!\f>\204\226\310\311\326D\"\210\317H\262\307!\f>\204\255\310\311\326D\"\210\327H\262Q\262\330!\262
\f\204\323\331\"\210\332\315\314\"\210\f\333
8\262
\262\f\f\334
8\262
\262
\307!\f>\204\366\310\311\326D\"\210\333H\262	\211\335\321P!\266\203\262\211\336\321P!\266\203\262\nP\262\n
@\232\204)
\337@!r\340\341!q\210\342\n!\204<
\314\262	\202\326
\204\326
\343 \210\344\n!\210\345p!\262	\346	!\203f
G\347U\204f
\347H\317=\204l
\314\262	\202\326
\307!\f>\204}
\310\311\326D\"\210\350H\204\236
\307!\f>\204\225
\310\311\326D\"\210\350\n\317HI\210\307!\f>\204\257
\310\311\326D\"\210\313H\204\320
\307!\f>\204\307
\310\311\326D\"\210\313\n\327HI\210\350H\262	\203	\350H\232\203
	\313H\240\210
\242\232\203\377
\313
I\210\332\315\n\"\210
\204	\332\315\n\"\210\314\351\352\353\"
\">\204\332\315\n\"\210\343 \210\344!\210\354c\210eb\210\214\355\356\314\357#\203@\360`d\"\262e`S}\210\202C\347\262eb\210\361\317!\210\362\363!\262		\334H\206X\347\240\210)\242\347X\204n\322\364\"\204n\242\262\365!\262\365
!\366Q\262\367 \352\370\"\216\n\333H\206\216\371\240\210\372\242!\210\242\366Q\262\373\374\317H\f\327H
\350HE\366#\262\373\352\375#\376H\366#\262)\210\313H\262\203\344\367 \352\377\"\216\201A\201B\")\266\202\203\357\201C\201DQ\262\372!\210\201E
%\262	\307!\f>\204\310\311\326D\"\210\350H\262
\211\204=\201F!\262
\307!\f>\2047\310\311\326D\"\210\350I\210\343 \210\201G\201E\317
$p\"\210	\201HP\262\330!\203f\201I!\210\201Jed\314\201K\314\201L&\210)\201M\201N#\210\307!\f>\204\226\310\311\326D\"\210\313	I\2100*\207" [cl-struct-nnmaildir--srv-tags deactivate-mark nnheader-file-coding-system cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags nnmaildir--extra undecided type-of signal wrong-type-argument nnmaildir--srv 4 nil return nnmaildir--grp 1 nnmaildir--pgname file-name-as-directory nnmaildir--param read-only "new" "cur" nnmaildir--art 2 file-attributes nnmaildir--expired-article throw 5 7 ".nnmaildir" "nov" copy-sequence gnus-get-buffer-create " *nnmaildir nov*" file-exists-p erase-buffer nnheader-insert-file-contents read vectorp 0 3 mapcar make-closure #[257 "\211\300\242>\207" [V0] 3 "\n\n(fn E)"] "\n" search-forward "\n\n" noerror count-lines delete-char nnheader-parse-head t distrust-Lines: number-to-string "	" match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #1="" nnmaildir--tab-to-space mapconcat #[257 "\300
\206\301!\207" [nnmaildir--tab-to-space #1#] 3 "\n\n(fn F)"] #[257 "\300\302@!\240\210\301
A\240\210\303\300\242!\210\303\301\242!\210\300\242\304\301\242Q\207" [V0 V1 symbol-name nnmaildir--tab-to-space ": "] 4 "\n\n(fn EXTRA)"] 9 #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] nnmail-extra-headers string-match "\\`fake\\+none\\+.*\\+[0-9]+\\'" "<" "@nnmaildir>" vector nnmaildir--new-number prin1 ":" delete-file write-region no-message excl rename-file replace] 33 (#$ . 45960)])
#@26 

(fn GROUP ARTICLE NOV)
(defalias 'nnmaildir--cache-nov #[771 "\302!>\204\303\304\305D\"\210\306H\302!>\204\"\303\304\305D\"\210\307H\310\302!	>\2046\303\304\311D\"\210\312H\204yH\262
\211\203Y\302
!	>\204T\303\304\311D\"\210\211\312\310I\210I\210\302!>\204p\303\304\305D\"\210\307TG\246I\210\302!	>\204\211\303\304\311D\"\210\312I\207" [cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags type-of signal wrong-type-argument nnmaildir--grp 9 10 nil nnmaildir--art 5] 10 (#$ . 49455)])
#@29 

(fn SERVER GROUP ARTICLE)
(defalias 'nnmaildir--grp-add-art #[771 "\304#\305\211\211\211\211\211\205\235
\306	!>\204!\307\310\311D\"\210\312HT\262\306!	>\2049\307\310\313\nD\"\210\314H\262\315U\203I\202`\306\n!>\204[\307\310\311\fD\"\210	\316H^\262\306	!>\204s\307\310\311D\"\210\317H\262\203\205@@V\203\220BB\262\202\255\320\262
A\262
\203\255@@W\203\255
\262A\262\202\227\320\306	!>\204\300\307\310\311D\"\210\312I\210\306	!>\204\330\307\310\311D\"\210\316I\210\211\203\356	BB\241\210\202
\306	!>\204\377\307\310\311D\"\210\317I\210\321\306	!	>\204
\307\310\313D\"\210\315H	\306\f!>\204.
\307\310\311D\"\210\322H#\210\321\306	!	>\204F
\307\310\313D\"\210\316H	\306\f!>\204]
\307\310\311D\"\210\323H#\210\321\306\n!>\204u
\307\310\311\fD\"\210	\315H\n\306
!>\204\214
\307\310\324D\"\210\f\317H#\210)\325			#\210\320\207" [cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags inhibit-quit cl-struct-nnmaildir--srv-tags nnmaildir--update-nov nil type-of signal wrong-type-argument nnmaildir--grp 5 nnmaildir--art 3 1 4 6 t puthash 7 8 nnmaildir--srv nnmaildir--cache-nov] 17 (#$ . 49997)])
#@22 

(fn SERVER PGNAME)
(defalias 'nnmaildir--group-ls #[514 "\301
\302\"\206\303!>\204\304\305\306D\"\210
\307H\207" [cl-struct-nnmaildir--srv-tags nnmaildir--param directory-files type-of signal wrong-type-argument nnmaildir--srv 5] 6 (#$ . 51231)])
#@48 

(fn NUMBER GROUP-NAME SERVER-ADDRESS-STRING)
(defalias 'nnmaildir-article-number-to-file-name #[771 "\303
\"\304\211\211\3052\226\204\306\305\304\"\210\307\"\262\204$\306\305\304\"\210\310\"\262
\311!	>\204:\312\313\314D\"\210\315H\262


\316P!\266\204\262\317
\320\"\203a
\211\321\316P!\266\203\202k
\211\322\316P!\266\203\262
\311!\n>\204~\312\313\323D\"\210\324H\311!\n>\204\221\312\313\323D\"\210\325HQ0\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags cl-struct-nnmaildir--art-tags nnmaildir--prepare nil return throw nnmaildir--nlist-art nnmaildir--pgname type-of signal wrong-type-argument nnmaildir--srv 4 file-name-as-directory nnmaildir--param read-only "new" "cur" nnmaildir--art 1 2] 14 (#$ . 51493)])
#@48 

(fn NUMBER GROUP-NAME SERVER-ADDRESS-STRING)
(defalias 'nnmaildir-article-number-to-base-name #[771 "\301
\"\211\2057\302
\"\262
\211\2057\303
!>\204!\304\305\306D\"\210\211\307H\303!>\2043\304\305\306D\"\210
\310HB\207" [cl-struct-nnmaildir--art-tags nnmaildir--prepare nnmaildir--nlist-art type-of signal wrong-type-argument nnmaildir--art 1 2] 9 (#$ . 52265)])
#@51 

(fn BASE-NAME GROUP-NAME SERVER-ADDRESS-STRING)
(defalias 'nnmaildir-base-name-to-article-number #[771 "\302
\"\211\2058\303
!>\204\304\305\306D\"\210\211\307H\262
\310\"\262
\211\2058\303
!	>\2045\304\305\311D\"\210\211\312H\207" [cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags nnmaildir--prepare type-of signal wrong-type-argument nnmaildir--grp 7 gethash nnmaildir--art 3] 8 (#$ . 52648)])
#@26 

(fn NLIST RANGES FUNC)
(defalias 'nnmaildir--nlist-iterate #[771 "\300\211\211\211\301=\203\302@@BC\262\205\223@\262A\262\2032@=\2032A\262\202\247\203@\262\262\202H@\262A\262\262
\3032i\211\205h\211@@X\203a\304\303\300\"\210\211A\262
\202P0\210\3032\217\211\205\216\211@\262\211A\262
@W\203\206\304\303\300\"\210A!\210\202n0\210\202\207" [nil all 1 iterate-loop throw] 10 (#$ . 53073)])
(defalias 'nnmaildir--system-name #[0 "\300\301\302\300\303\304\300\305\306\307 ###\207" [string-replace ":" "\\072" "/" "\\057" "\\" "\\134" system-name] 10])
#@32 

(fn GROUP &optional ARTICLE)
(defalias 'nnmaildir-request-type #[513 "\300\207" [mail] 3 (#$ . 53679)])
#@25 

(fn &optional SERVER)
(defalias 'nnmaildir-status-message #[256 "\302
\303\"\210\304!	>\204\305\306\307D\"\210\310H\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir--prepare nil type-of signal wrong-type-argument nnmaildir--srv 8] 5 (#$ . 53791)])
#@25 

(fn &optional SERVER)
(defalias 'nnmaildir-server-opened #[256 "\2059\211\203\211\302!	>\204\303\304\305D\"\210\306H\230\202 \307\2059\302!	>\2042\303\304\305D\"\210\310H\2059\307\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 1 t 6] 6 (#$ . 54071)])
#@37 

(fn SERVER-STRING &optional DEFS)
(defalias 'nnmaildir-open-server #[513 "\305\306\211\307%\306\211\211\3102\375
\2036\311!	>\204\"\312\313\314D\"\210\315H\203h\211\203h\316\310\317\"\210\202h\320\314\306\211\211\211\211\211\211\211\211\211&\f\262\317\321\307#\211\203\\\211\241\266\202gB\211\262B\210)\322\236\262\204\213\311!	>\204\201\312\313\314D\"\210\323\324I\210\316\310\306\"\210A@\262\325\317\"\262\326!\262\327!\262\330!\204\302\311!	>\204\266\312\313\314D\"\210\323\331PI\210\316\310\306\"\210\311!	>\204\322\312\313\314D\"\210\332I\210\333\236\262
\211\204\356\f\203\350\333\202\351\334\262
\202
\211A@\262
\335
!\204
\311!	>\204	
\312\313\314D\"\210\323\336\337!PI\210\316\310\306\"\210\311!	>\204'
\312\313\314D\"\210\340I\210\211\306\341\342$G\262\343\236\211\262\203f
\211A\211\262\203f
\211@\203f
\311!	>\204[
\312\313\314D\"\210\344\317I\203f
\345\346!\210\347\236\262
\211\203\222
\211A@\262
\325
\317\"\262
\311!	>\204\212
\312\313\314D\"\210\350I\210\202\330
\351\236\262
\211\203\303
\211A@\262
\325
\317\"\262
\327
!\262
\311!	>\204\273
\312\313\314D\"\210\350I\210\202\330
\311!	>\204\323
\312\313\314D\"\210\350\352I\210\311!	>\204\350
\312\313\314D\"\210\315\353\354\206\362
\355\356\307$\262
I\210\3170\207" [nnmaildir--servers cl-struct-nnmaildir--srv-tags nnmaildir--cur-server inhibit-quit nnheader-directory-files-is-safe alist-get nil equal return type-of signal wrong-type-argument nnmaildir--srv 6 throw t record assoc directory 8 "You must set \"directory\" in the select method" eval expand-file-name file-name-as-directory file-exists-p "No such directory: " 4 directory-files nnheader-directory-files-safe functionp "Not a function: " prin1-to-string 5 "\\`[^.]" nosort get-new-mail 10 require nnmail target-prefix 11 create-directory "" make-hash-table :size 300 :test] 19 (#$ . 54407)])
#@13 

(fn FILE)
(defalias 'nnmaildir--parse-filename #[257 "\211@\300\211\301\302\"\203/\303\304\305\"P\262
G\306Z\262
\307\310\311O!\310\300O!\304\312\"$\207\207" [nil string-match "\\`\\([0-9]+\\)\\(\\..*\\)\\'" "0000" match-string 1 4 vector string-to-number 0 2] 10 (#$ . 56353)])
#@12 

(fn A B)
(defalias 'nnmaildir--sort-files #[514 "\3002e
:\203\301\300:\205@@\231\"\210\211:\203!\301\300\302\"\210
\303H
\303HW\2030\301\300\302\"\210
\303H
\303HV\203?\301\300\304\"\210
\305H
\305HW\203N\301\300\302\"\210
\305H
\305HV\203]\301\300\304\"\210
\306H
\306H\2310\207" [return throw t 0 nil 1 2] 6 (#$ . 56653)])
#@53 

(fn GNAME SCAN-MSGS GROUPS METHOD SRV-DIR SRV-LS)
(defalias 'nnmaildir--scan #[1542 "\3062\225\307\310!\311\211\211\211\211\211\211\211\211\211\211\211\211\211\211C\311\211

\312P!\266\204\262\211\313\312P!\266\203\262\314!\204Z\315!	>\204K\316\317\320D\"\210\211\321\322PI\266\323\306\311\"\210\211\324\312P!\266\203\262\211\325\312P!\266\203\262\211\326\312P!\266\203\262
\327!\262\f\327
!\262\314!\203\236\203\236\n\204\274\315!	>\204\255\316\317\320D\"\210\211\321\330PI\266\323\306\311\"\210\331\311\"\262\332\"\262	
\203\324\311\262\n\202\n
\333\262\n\334\335\311\211\336\337\311\211\211\211\337\311&\f\262\340!\210\340\211\341\312P!\266\203!\210\340\211\342\312P!\266\203!\210\343	\344\"\262\343	\345\"\206
\262\204\232
\327!\346
8\262
\262
\211\f\346
8\262
\232\203E
\211\346
8\262
\232\204c
\315!	>\204T
\316\317\320D\"\210\211\321\347PI\266\323\306\311\"\210\350\351\352$\211\203\231
\211@\327
!\262\211A@\262
\336V\204\216
\353\354
8\262
\"\203\222
\355
!\210
A\266\202\202k
\210\204\251
	\204\251
\323\306\333\"\210\356
8\262
\262\f\315!\n>\204\303
\316\317\335D\"\210\357H\232\203\315
\311\262\f\203\343
	\204\334
\205\336

\262\202j	\204\355
\2036\311\351\352$\211\203 \211@
P\262\353\327!\356
8\262
\311\"\203\360\361!P\"\210
A\266\202\202\365
\210\315!\n>\2040\316\317\335D\"\210
\357
I\210\327
!\356
8\262
\262\n\315!\n>\204R\316\317\335D\"\210\362H\232\203\\\311\262	\204f\n\205h\f\262\204s\323\306\333\"\210\311\351\352$\262\363 \364\365\"\216\366\367\")\262
\262	\203\355G\262\315!\n>\204\245\316\317\335D\"\210
\370\371\372\206\260\373\374\375$\262
I\210\315!\n>\204\306\316\317\335D\"\210
\321\371\372\206\321\373\374\375$\262
I\210\315!\n>\204\347\316\317\335D\"\210
\346\336\371\372\206\361\373\374\375$\262
I\210\343	\376\"\262\247\203\336W\203\272\336\262\202\272\377\262\211\342\312P!\266\203\262
\f\201@\312P!\266\202\262\f\201A\312P!\266\202\262
\211\203\271\211@\211@
A\211;\203\231\201B\201C\"\203\231\201D\201E\201F
\"@\262
!
\311\333\201G#)\266\203\203\253\201D\201H\201F
\"@\262
!
\311\333\201G#)\266\203\204\253\314P!\203\253\314P!\203\260T\262	\266
A\266\202\202=\210\315!\n>\204\311\316\317\335D\"\210
\201I\201J\311\"I\210\333\201K#\210)\204\355\323\306\333\"\210\315!\n>\204\375\316\317\335D\"\210\370H\240\210\366\364\201L\"\"\262\201M\311\"\262\366\201N\"\262\201O\201P\"\262\211\203^\211@\211:\203;\211\202>\211\362H\262
\334\201Q@A\311\211\211&\262\201R#\210
A\266\202\202,\210\203}\315!\n>\204s\316\317\335D\"\210
\357
I\266\202\223\315!\n>\204\214\316\317\335D\"\210
\362\fI\266\3330\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags cl-struct-nnmaildir--grp-tags nnmaildir-flag-mark-mapping inhibit-changing-match-data inhibit-quit return time-since 129600 nil file-name-as-directory ".nnmaildir" file-exists-p type-of signal wrong-type-argument nnmaildir--srv 8 "No such directory: " throw "tmp" "new" "cur" file-attributes "Not a maildir: " nnmaildir--prepare nnmaildir--pgname t record nnmaildir--grp 1 0 nnmaildir--mkdir "nov" "marks" nnmaildir--param read-only directory-files 11 "Maildir spans filesystems: " full "\\`[^.]" nosort time-less-p 4 delete-file 5 2 rename-file nnmaildir--ensure-suffix 3 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] mapcar #[257 "\300\301\"\210\302\303\"\302\304\"B\207" [string-match "\\`\\([^:]*\\)\\(\\(:.*\\)?\\)\\'" match-string 1 2] 5 "\n\n(fn F)"] 7 make-hash-table :size 300 :test equal nov-cache-size 16 "tick" "read" string-prefix-p ":2," string read rassq string-match tick 9 make-vector puthash #[257 "\301
@\300\242\"?\205\211\207" [V0 gethash] 4 "\n\n(fn FILE)"] delq nnmaildir--parse-filename sort nnmaildir--sort-files nnmaildir--art nnmaildir--grp-add-art] 37 (#$ . 56999)])
#@36 

(fn &optional SCAN-GROUP SERVER)
(defalias 'nnmaildir-request-scan #[512 "\306\211\307\306\211\211C\306C\306C\306C\306C\306C\306\211C\306	\n\f&
'\310\306\"\210\311(!)>\204E\312\313\314(D\"\210(\315H\240\210\311(!)>\204^\312\313\314(D\"\210(\316H\240\210\311(!)>\204w\312\313\314(D\"\210(\317H\240\210\311(!)>\204\220\312\313\314(D\"\210(\320H\240\210\311(!)>\204\251\312\313\314(D\"\210(\321H\240\210r\322\323!q\210\324 \325\326\"\216;\203
\327\307\242	\242\242
\242&\203\373\311(!)>\204\351\312\313\314(D\"\210(\330H\203\f\331\332\306\211$\210\202\f\333\242\"\210\202\f\334\242!\315
8\262
\240\210?\262\242\311(!)>\204.
\312\313\314(D\"\210(\335H\232\203O
\203\350
\336\325\337\n\n\n\n%\242\"\210\202\350
\242\242\306\340\341$\262\242G\342U\203g
\202o
\343\325\344\"\"\262\211\203\233
\211@\327
	\242\242
\242\242&\203\224

\242B\240\210
A\266\202\202r
\210\306\240\210\336\325\345#\242\"\210\242\211\203\304
\211@\333
\242\"\210
A\266\202\202\260
\210\311(!)>\204\327
\312\313\314(D\"\210(\211\335\334\n\242!\315
8\262
I\266\203\f\311(!)>\204\377
\312\313\314(D\"\210(\330H\203\f\331\332\306\211#\210)\210.\266\307\207" [nnheader-file-coding-system deactivate-mark nnmaildir-active-file nnmaildir-group-alist nnmaildir-get-new-mail file-coding-system-alist nil t nnmaildir--prepare type-of signal wrong-type-argument nnmaildir--srv 5 4 2 6 11 gnus-get-buffer-create " *nnmaildir work*" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] nnmaildir--scan 10 nnmail-get-new-mail nnmaildir remhash file-attributes 9 maphash #[514 "\304\305\303\242\302\242\301\242\300\242&\207" [V0 V1 V2 V3 nnmaildir--scan t] 9 "\n\n(fn GROUP-NAME GROUP)"] "\\`[^.]" nosort 0 seq-remove #[257 "\211G\300\242GY\205\211\301\300\242GO\300\242\230\207" [V0 0] 4 "\n\n(fn DIR)"] #[514 "
\301\242\235?\205\300\300\242B\240\207" [V0 V1] 5 "\n\n(fn GNAME GROUP)"] buffer-file-coding-system coding-system-for-write nnmaildir--cur-server cl-struct-nnmaildir--srv-tags] 26 (#$ . 61054)])
#@25 

(fn &optional SERVER)
(defalias 'nnmaildir-request-list #[256 "\304\305\"\210\306C\306C\306\307\306\"\210r	q\210\310 \210\311\312\313#\314\n!>\204,\315\316\317\nD\"\210\n\320H\"\210*\266\321\207" [deactivate-mark nntp-server-buffer nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir-request-scan find-new-groups nil nnmaildir--prepare erase-buffer maphash make-closure #[514 "\300\305\n\"\240\210\301\306\300\242\307\"\240\210\310\311\312\313!>\204\"\314\315\316D\"\210\317H#\311\261\210\320\321\n\"\f\"\210\311c\210\320\313!>\204E\314\315\316D\"\210
\322H\f\"\210\311\301\242\203U\323\202V\324\325\261\207" [V0 V1 nnmaildir--cur-server cl-struct-nnmaildir--grp-tags nntp-server-buffer nnmaildir--pgname nnmaildir--param read-only string-replace " " "\\ " type-of signal wrong-type-argument nnmaildir--grp 1 princ nnmaildir--group-maxnum 4 "n" "y" "\n"] 9 "\n\n(fn GNAME GROUP)"] type-of signal wrong-type-argument nnmaildir--srv 6 t] 9 (#$ . 63207)])
#@30 

(fn DATE &optional SERVER)
(defalias 'nnmaildir-request-newgroups #[513 "\300
!\207" [nnmaildir-request-list] 4 (#$ . 64202)])
#@32 

(fn GROUPS &optional SERVER)
(defalias 'nnmaildir-retrieve-groups #[513 "\304\211\305\304\"\210r	q\210\306 \210\211\203v\211@\305\304\"\262\204&\307c\210\202o\310c\210\311\312!\n>\204:\313\314\315D\"\210\316H	\"\210\317c\210\311\312!\n>\204T\313\314\315D\"\210\320H	\"\210\317c\210\311\321\"	\"\210\317\322\317\323#\324\261\210
A\266\202\202\210*\210\325\207" [deactivate-mark nntp-server-buffer cl-struct-nnmaildir--grp-tags nnmaildir--cur-server nil nnmaildir--prepare erase-buffer "411 no such news group\n" "211 " princ type-of signal wrong-type-argument nnmaildir--grp 5 " " 4 nnmaildir--group-maxnum string-replace "\\ " "\n" group] 10 (#$ . 64337)])
#@36 

(fn GNAME INFO &optional SERVER)
(defalias 'nnmaildir-request-update-info #[770 "\306
\"\307!	>\204\310\311\312D\"\210\313H

\314P!\266\204\211\315\314P!\266\203\316
!\317
8\262
\320\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\3212T\204k\307!	>\204\\\310\311\312D\"\210\211\322\323PI\266\324\321\320\"\210\307!>\204|\310\311\325D\"\210\326H\262\327\"\262\307!>\204\232\310\311\325D\"\210\330H\262\307!>\204\261\310\311\325D\"\210\317H\331U\203\336AA\211\320\240\266\320\332\211\203\320\333\334\"\210\334\233\211\240\266\324\321\"\210\335\3368B\262
\f\3348B\262
\337\340\"\262\337\341\"\262\307!>\204
\310\311\325D\"\210\342H\262\343\344\"\262
\237\262\345\346\"\262\326\347\"BC\262
\350
\"\262
\307!	>\204C
\310\311\312D\"\210\313H\262\f

\314P!\266\204\262\f\211\351\314P!\266\203\262\f\211\352\314P!\266\203\262\f\353\"\262\354\355\343\356\f\"\343\357\n\320\360\361$\"\"!\262\362\363\fG\"\262\307!>\204\246
\310\311\325D\"\210\364H\262\n\211\203\211@
\365!\314P!\266\202\262\n\320\262\3662\361\211>\203\325
\324\366\320\"\210\211>\203\344
\262\324\366\320\"\210\316\n!\317
8\262

\367
\f\"@\262
\204\374
\211\202\211\204\202\204\211\202\370
\"\203\202\211\262
\262\371
#\210\372	\"\232\203G\211\236\262\n\203B\nA\262\324\366\320\"\210\320
\367
\f\"@\262
\211\205\231\373\374!P\n\320\361$\211\205\225\211@\375
\376\"@\372
\"\211\203\214\307
!
>\204\204\310\311\377D\"\210\211\334HB\262\266
A\266\202\202a\262
\262
\262
\204\335\201@!\203\335\320\360\361$\211\203\334\211@\372
\"\211\203\324\307
!
>\204\315\310\311\377D\"\210\211\334HB\262\210
A\266\202\202\257\210\201A\f\201B\201C\"\"\211\262
\262
0\210\211\335=\203\377\n\262	\202
\n\203
\211B\fB\262\f
A\266\202\202\256
\210AA\211\201D	\"\240\266\n\332\211\2032\333\334\"\210\334\233\211\240\266\307!>\204K\310\311\325D\"\210\364I\2100)\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags deactivate-mark cl-struct-nnmaildir--grp-tags nnmaildir-flag-mark-mapping cl-struct-nnmaildir--art-tags nnmaildir--prepare type-of signal wrong-type-argument nnmaildir--srv 4 file-name-as-directory "cur" file-attributes 5 nil return 8 "No such group: " throw nnmaildir--grp 1 nnmaildir--pgname 7 0 extend gnus-info--grow-entry 3 read 2 nnmaildir--param always-marks never-marks 6 mapcar car gnus-compress-sequence always-list nnmaildir--group-maxnum gnus-range-difference ".nnmaildir" "marks" nnmaildir--group-ls gnus-delete-duplicates append cdr intern "\\`[^.]" nosort make-hash-table :size 11 symbol-name got-ranges rassq time-less-p puthash gethash "\\`[^.].*:2,[A-Z]*" string split-string ":2," nnmaildir--art file-directory-p gnus-add-to-range sort < gnus-range-add] 36 (#$ . 65027)])
#@41 

(fn GNAME &optional SERVER FAST INFO)
(defalias 'nnmaildir-request-group #[1025 "\305\"\306\3072\235\211\204,\310	!\n>\204\311\312\313	D\"\210	\211\314\315PI\266\316\307\306\"\210\310	!\n>\204;\311\312\313	D\"\210	\211\317I\266\203K\316\307\320\"\210rq\210\321 \210\322c\210\323\310!\f>\204e\311\312\324D\"\210
\325H\"\210\326c\210\323\310!\f>\204~\311\312\324D\"\210
\327H\"\210\326c\210\323\330	\"\"\210\326\331\326\332#\333\261\210)\3200)\207" [deactivate-mark nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nntp-server-buffer cl-struct-nnmaildir--grp-tags nnmaildir--prepare nil return type-of signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw 7 t erase-buffer "211 " princ nnmaildir--grp 5 " " 4 nnmaildir--group-maxnum string-replace "\\ " "\n"] 10 (#$ . 67957)])
#@36 

(fn GNAME &optional SERVER ARGS)
(defalias 'nnmaildir-request-create-group #[769 "\302\303\"\210\3042F
\305!	>\204\306\307\310D\"\210\311H\303\211G\312U\203?\305!	>\2043\306\307\310D\"\210\211\313\314I\266\315\304\303\"\210\312H\316=\203b\305!	>\204V\306\307\310D\"\210\211\313\317I\266\315\304\303\"\210\320 \321\322\"\216\323\324\")\262
\203\222\305!	>\204\203\306\307\310D\"\210\211\313\325	PI\266\315\304\303\"\210\326\305!	>\204\244\306\307\310D\"\210\327H\"\203\311\305!	>\204\272\306\307\310D\"\210\211\313\330	PI\266\315\304\303\"\210\305!	>\204\330\306\307\310D\"\210\331H\262\332!\203\353\333!\262
\202\370
\262
\334
!\262
\211P\262
\211\335P!\266\202\262
\336
!\210\336
\211\337\335P!\266\203!\210\336
\211\340\335P!\266\203!\210\336
\211\341\335P!\266\203!\210\342\230\204@
\343PP\"\210\344\345!\266\2030\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir--prepare nil return type-of signal wrong-type-argument nnmaildir--srv 11 0 8 "Invalid (empty) group name" throw 46 "Group names may not start with \".\"" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "[/	]" "Invalid characters (null, tab, or /) in group name: " gethash 6 "Group already exists: " 4 file-name-absolute-p expand-file-name file-truename file-name-as-directory nnmaildir--mkdir "tmp" "new" "cur" "" make-symbolic-link nnmaildir-request-scan find-new-groups] 13 (#$ . 68787)])
#@40 

(fn GNAME NEW-NAME &optional SERVER)
(defalias 'nnmaildir-request-rename-group #[770 "\306
\"C\307\211\211\211\211C\3102\266
\242\204:\311\f!
>\204+\312\313\314\fD\"\210\f\211\315\316
PI\266\317\310\307\"\210G\320U\203]\311\f!
>\204Q\312\313\314\fD\"\210\f\211\315\321I\266\317\310\307\"\210\320H\322=\203\201\311\f!
>\204u\312\313\314\fD\"\210\f\211\315\323I\266\317\310\307\"\210\324 \325\326\"\216\327\330\")\262
\203\261\311\f!
>\204\242\312\313\314\fD\"\210\f\211\315\331\fPI\266\317\310\307\"\210		\230\203\276\317\310\332\"\210\333	\311\f!
>\204\320\312\313\314\fD\"\210\f\334H\"\203\365\311\f!
>\204\346\312\313\314\fD\"\210\f\211\315\335\fPI\266\317\310\307\"\210\311\f!
>\204
\312\313\314\fD\"\210\f\336H\262\3371
\340PP\"0\210\202<
\311\f!
>\204+
\312\313\314\fD\"\210\f\211\315\341\342!PI\266\317\310\307\"\266\311\f!
>\204K
\312\313\314\fD\"\210\f\334H\262\211\343!\344\345\206[
\346\347\350$\262
\240\210\351\325\352	#\"\210\353\242!\240\210\311\242!/>\204\211
\312\313\354	\242D\"\210\242\211\355I\266\356	\242\242#\210\311\f!
>\204\254
\312\313\314\fD\"\210\f\211\334\242I\266\3320+\207" [nnheader-file-coding-system file-coding-system-alist buffer-file-coding-system coding-system-for-write nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir--prepare nil return type-of signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw 0 "Invalid (empty) group name" 46 "Group names may not start with \".\"" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "[/	]" "Invalid characters (null, tab, or /) in group name: " t gethash 6 "Group already exists: " 4 (error) rename-file "Error renaming link: " prin1-to-string hash-table-size make-hash-table :size 300 :test equal maphash #[514 "\211\300\242=?\205\302\301\242#\207" [V0 V1 puthash] 6 "\n\n(fn GNAME G)"] copy-sequence nnmaildir--grp 1 puthash cl-struct-nnmaildir--grp-tags] 17 (#$ . 70289)])
#@37 

(fn GNAME FORCE &optional SERVER)
(defalias 'nnmaildir-request-delete-group #[770 "\304
\"\305\211\211\211\211\211\3062'\2041\307	!\n>\204\"\310\311\312	D\"\210	\211\313\314\fPI\266\315\306\305\"\210\307!>\204B\310\311\316D\"\210\317H\262	\320	\n\"\262\307	!\n>\204]\310\311\312	D\"\210	\321H\262\322\nP!@\262	

\323P!\266\204\262\204\241;\204\241\307	!\n>\204\222\310\311\312	D\"\210	\211\313\324\fPI\266\315\306\305\"\210\307	!\n>\204\261\310\311\312	D\"\210	\325H=\203\316\307	!\n>\204\307\310\311\312	D\"\210	\211\325\305I\266\326	\307	!\n>\204\340\310\311\312	D\"\210	\327H\"\210\204\374\330!\262\322!\203%\331!\210\202%\332	\"\262
\333\334\"\203<
\335\211\336\323P!\266\203!\210\211\337\323P!\266\203\322
!\203+
\331
!\210\210\335\211\340\323P!\266\203!\210\202f
\341\211\336\323P!\266\203\"\210\341\211\337\323P!\266\203\"\210\341\211\340\323P!\266\203\"\210\211\342\323P!\266\203\262
\211\343\323P!\266\203\211\344\323P!\266\203\211\345\323P!\266\203\346\347\350$BB\211\203\251
\211@\341
\"\210
A\266\202\202\227
\210\211\342\323P!\266\203\262
\351P\322
!\203\303
\331
!\210\210
\352P\322
!\203\321
\331
!\210\210\335\211\345\323P!\266\203!\210\335!\210;\204\357
\335!\210\202%\330!\262\262
\353H\354=\204\355\307	!\n>\204\310\311\312	D\"\210	\321H!P\262\335!\210\322!\203%\331!\210\3560)\207" [deactivate-mark nnmaildir--cur-server cl-struct-nnmaildir--srv-tags cl-struct-nnmaildir--grp-tags nnmaildir--prepare nil return type-of signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw nnmaildir--grp 1 nnmaildir--pgname 4 file-attributes file-name-as-directory "Not a symlink: " 7 remhash 6 directory-file-name delete-file nnmaildir--group-ls nnmaildir--param read-only delete-directory "tmp" "new" "cur" nnmaildir--delete-dir-files ".nnmaildir" "nov" "num" "marks" full "\\`[^.]" nosort "markfile" "markfile{new}" 0 47 file-truename t] 18 (#$ . 72306)])
#@50 

(fn ARTICLES &optional GNAME SERVER FETCH-OLD)
(defalias 'nnmaildir-retrieve-headers #[1025 "C\305\242\"\306\211\211\211C\306\211\211C\306\211\307\310%\262
\3112?
\204R\312	!\n>\2048\313\314\315	D\"\210	\211\316\f\242\203I\317
\242P\202J\320I\266\321\311\306\"\210rq\210\322 \210\312	!\f>\204j\313\314\323D\"\210\316H\262\312	!\f>\204\201\313\314\323D\"\210\324H\262	\312\n!\f>\204\232\313\314\323\fD\"\210	\325H\240\210\2036
\n\203\272\n\247\204\272\326\327#\210\2026

\2036

@;\203\352
\211\203\346\211@\330
\n\"\262\203\337!\210
A\266\202\202\310\210\2026
\n\203.

@\262\331!@\262\247\203
\202
@\262\247\203
\202
A\262Z\262\325W\203%
\325\202&
\262BC\262\326#\210\332\325ed#\210)\3330)\207" [deactivate-mark nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nntp-server-buffer cl-struct-nnmaildir--grp-tags nnmaildir--prepare nil make-closure #[257 "\303\306\f\301#\240\210\303\242\205h\307\301\303\242#\210\302\310!
>\204$\311\312\313D\"\210
\314H\240\210\315\302\242\"\210\316\303\242\317H\316\310!
>\204F\311\312\313D\"\210\320H\316\303\242\321H\322\323\324\325\300\242#\326\261	\210\315\302\242\"\210\316\303\242\327H\330\261\207" [V0 V1 V2 V3 nnmaildir--cur-server cl-struct-nnmaildir--art-tags nnmaildir--update-nov nnmaildir--cache-nov type-of signal wrong-type-argument nnmaildir--art 3 princ "	" 0 4 1 "	Xref: nnmaildir " string-replace " " "\\ " ":" 2 "\n" nntp-server-buffer] 12 "\n\n(fn ARTICLE)"] return type-of signal wrong-type-argument nnmaildir--srv 8 "No such group: " "No current group" throw erase-buffer nnmaildir--grp 6 1 nnmaildir--nlist-iterate all gethash last sort-numeric-fields nov] 20 (#$ . 74305)])
#@51 

(fn NUM-MSGID &optional GNAME SERVER TO-BUFFER)
(defalias 'nnmaildir-request-article #[1025 "C\306\"\307\310C\310C\310\211\211\3112\262
\204@\312\n!>\204(\313\314\315\nD\"\210\n\211\316\f\2037\317
P\2028\320I\266\321\311\310\"\210\242\247\203T\322	\242\"\240\210\202\334\312!\f>\204f\313\314\323	D\"\210\316H\240\210\324\242\242\"\240\210\242\203\231\312\242!
>\204\220\313\314\325\242D\"\210\242\326H\240\210\202\274\3272\273\330\331\332	$\312\n!>\204\266\313\314\315\nD\"\210\n\333H\"0\210\242\204\334\312\n!>\204\320\313\314\315\nD\"\210\n\211\316\334I\266\321\311\310\"\210\312!\f>\204\355\313\314\323D\"\210\335H\262\n\336\n\"\262
\312\n!>\204
\313\314\315\nD\"\210\n\337H\262
\n

\340P!\266\204\262\341
\342\"\203/

\211\343\340P!\266\203\2029

\211\344\340P!\266\203\262
\312\242!
>\204N
\313\314\325\242D\"\210\242\335H\312\242!
>\204d
\313\314\325\242D\"\210\242\345HQ+\346+!\204\224
\347\242\"\210\312\n!>\204\210
\313\314\315\nD\"\210\n\211\316\350I\266\321\311\310\"\210r\206\234
,q\210\351 \210-.\352+!\210*	\242B0*\207" [deactivate-mark case-fold-search nnmaildir--cur-server cl-struct-nnmaildir--srv-tags cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags nnmaildir--prepare t nil return type-of signal wrong-type-argument nnmaildir--srv 8 "No such group: " "No current group" throw nnmaildir--nlist-art nnmaildir--grp gethash nnmaildir--art 3 found maphash make-closure #[514 "\301\305!>\204\306\307\310D\"\210
\311H\240\210\302\312\300\242\301\242\"\240\210\302\242\205?\300\305\302\242!\f>\2045\306\307\313\302\242D\"\210\302\242\314H\240\210\315\316\317\"\207" [V0 V1 V2 cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags type-of signal wrong-type-argument nnmaildir--grp 8 gethash nnmaildir--art 3 throw found nil] 7 "\n\n(fn GNAME GROUP)"] 6 "No such article" 1 nnmaildir--pgname 4 file-name-as-directory nnmaildir--param read-only "new" "cur" 2 file-exists-p nnmaildir--expired-article "Article has expired" erase-buffer mm-insert-file-contents nnmaildir-article-file-name nntp-server-buffer mm-text-coding-system coding-system-for-read] 18 (#$ . 76060)])
#@25 

(fn &optional SERVER)
(defalias 'nnmaildir-request-post #[256 "\302	 )\207" [message-required-mail-headers message-send-mail-function nil] 2 (#$ . 78273)])
#@28 

(fn NUMBER GNAME BUFFER)
(defalias 'nnmaildir-request-replace-article #[771 "\306\307\"\307\211\211\211\211\211\211\211\3102D
\204>\311
!(>\204/\312\313\314
D\"\210
\211\315\316PI\266\317\310\307\"\210\320\321

\"\322\"\203h\311
!(>\204Y\312\313\314
D\"\210
\211\315\323\fPI\266\317\310\307\"\210\311
!(>\204x\312\313\314
D\"\210
\324H\262

\325P!\266\204\262\326	
\"\262\204\270\311
!(>\204\247\312\313\314
D\"\210
\211\315\327\330!PI\266\317\310\307\"\210\311!)>\204\310\312\313\331D\"\210\332H\262\311!)>\204\335\312\313\331D\"\210\333H\262\211\334\325P!\266\203P\262
\335
!\203
\311
!(>\204
\312\313\314
D\"\210
\211\315\336PI\266\317\310\307\"\210r	q\210\337ed\307\340\307\341&\210)\342\343!\203.
\343 \210\344
\211\345\325P!\266\203Q\346#\210\3470,\207" [nnheader-file-coding-system deactivate-mark file-coding-system-alist buffer-file-coding-system coding-system-for-write nnmaildir--cur-server nnmaildir--prepare nil return type-of signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw nnmaildir--param nnmaildir--pgname read-only "Read-only group: " 4 file-name-as-directory nnmaildir--nlist-art "No such article: " number-to-string nnmaildir--art 2 1 "tmp" file-exists-p "File exists: " write-region no-message excl fboundp unix-sync rename-file "cur" replace t cl-struct-nnmaildir--srv-tags cl-struct-nnmaildir--art-tags] 20 (#$ . 78438)])
#@73 

(fn ARTICLE GNAME SERVER ACCEPT-FORM &optional LAST MOVE-IS-INTERNAL)
(defalias 'nnmaildir-request-move-article #[1540 "\306\"\307\211\211\211\211\3102?
\2042\311\n!>\204#\312\313\314\nD\"\210\n\211\315\316\fPI\266\317\310\307\"\210\311!\f>\204B\312\313\320D\"\210\321H\262	\322\n\n\"\262\323\"\262\n	\204u\311\n!>\204i\312\313\314\nD\"\210\n\211\315\324I\266\317\310\307\"\210\311\n!
>\204\206\312\313\325\fD\"\210	\326H\262\311\n!>\204\233\312\313\314\nD\"\210\n\327H\211	

\330P!\266\204\331\332\"\203\300	\211\333\330P!\266\203\202\312	\211\334\330P!\266\203\211\311!
>\204\335\312\313\325
D\"\210\n\321HQ\335	!\204
\336\"\210\311\n!>\204\377\312\313\314\nD\"\210\n\211\315\337I\266\317\310\307\"\210r\340\341!q\210\342 \210\343	!\210\344\345\"\262
)\211\203=
\331\332\"\204=
	\346
!\2036
\347
!\210\210\336\"\210\2110*\207" [deactivate-mark nnmaildir--file nnmaildir--cur-server cl-struct-nnmaildir--srv-tags cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags nnmaildir--prepare nil return type-of signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw nnmaildir--grp 1 nnmaildir--pgname nnmaildir--nlist-art "No such article" nnmaildir--art 2 4 file-name-as-directory nnmaildir--param read-only "new" "cur" file-exists-p nnmaildir--expired-article "Article has expired" gnus-get-buffer-create " *nnmaildir move*" erase-buffer nnheader-insert-file-contents eval t file-attributes delete-file] 18 (#$ . 79886)])
#@36 

(fn GNAME &optional SERVER LAST)
(defalias 'nnmaildir-request-accept-article #[769 "\306\"\307\211\211\211\211\211\211C\307\211\211	\n\3102\366
\204@\311\f!
>\2041\312\313\314\fD\"\210\f\211\315\316PI\266\317\310\307\"\210\311\f!;>\204R\312\313\320D\"\210\321H\262\322\323\f\"\324\"\203\201\311\f!
>\204r\312\313\314\fD\"\210\f\211\315\325PI\266\317\310\307\"\210\311\f!
>\204\220\312\313\314\fD\"\210\f\326H\262

\327P!\266\204\262\330 \262\331\332\"\262<\230\204\275<\333=\331\334\"P\262>P\262\335\336=!Q\262\337\340 Q\262\211\341\327P!\266\203P\240\210\211\342\327P!\266\203\343Q\262\344\242!\203$
\311\f!
>\204
\312\313\314\fD\"\210\f\211\315\345\242PI\266\317\310\307\"\210\344!\203H
\311\f!
>\2049
\312\313\314\fD\"\210\f\211\315\345PI\266\317\310\307\"\210=T=\346\347\307\350\351\"#\262\3521g
\353?\242\"0\210\202~
\210\354ed\242\307\355\307\356&\210\357\360!\203~
\360 \210\361!\210\3621\220
\353\242\"0\210\202\275
\311\f!
>\204\237
\312\313\314\fD\"\210\f\211\315\363\364!PI\266\242\365
!\203\266
\366
!\210\210\317\310\307\"\266\242\365
!\203\311
\366
!\210\210\367\370\343\307\211\211&\262
\371\f
#\205\365
\311!@>\204\361
\312\313\370D\"\210
\372HB0+\207" [nnheader-file-coding-system file-coding-system-alist buffer-file-coding-system coding-system-for-write nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir--prepare nil return type-of signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw nnmaildir--grp 1 nnmaildir--param nnmaildir--pgname read-only "Read-only group: " 4 file-name-as-directory current-time format-time-string "%s." 0 "M%6N" "Q" number-to-string "." nnmaildir--system-name "tmp" "cur" ":2," file-exists-p "File exists: " run-with-timer 86400 make-closure #[0 "\300\242\303
!\203\f\304
!\210\210\305	!\n>\204\306\307\310	D\"\210	\211\311\312I\266\313\314\315\"\207" [V0 nnmaildir--cur-server cl-struct-nnmaildir--srv-tags file-attributes delete-file type-of signal wrong-type-argument nnmaildir--srv 8 "24-hour timer expired" throw return nil] 4] (error) add-name-to-file write-region no-message excl fboundp unix-sync cancel-timer (error) "Error linking: " prin1-to-string file-attributes delete-file record nnmaildir--art nnmaildir--grp-add-art 3 cl-struct-nnmaildir--grp-tags nnmaildir--delivery-time nnmaildir--delivery-count nnmaildir--delivery-pid nnmaildir--file cl-struct-nnmaildir--art-tags] 23 (#$ . 81398)])
#@18 

(fn GROUP-ART)
(defalias 'nnmaildir-save-mail #[257 "\3062\362\211\204
\307\306\310\"\210\310\211C\310\211C\310\211\212eb\210\311 \312\313\"\216\314\315!\2032\316\317!\210\320y\210\202\")\210)\211\321\n!>\204E\322\323\324\nD\"\210\n\325H\240\210@\262A\262@\240\210\326\242\242\"\204l\327\242!\204l\307\306\310\"\210\330\242!\204x\307\306\310\"\210\321\n!>\204\207\322\323\324\nD\"\210\n\331H\211\242

\332P!\266\204\333\310\242\"\262\321!\f>\204\256\322\323\334D\"\210
\325H\262
@A\262	\321!
>\204\310\322\323\335D\"\210\320H\321!
>\204\333\322\323\335D\"\210\336HQ\337\310\340\312\341#\"\"*\266\2040\207" [deactivate-mark nnmaildir--file nnmaildir--cur-server cl-struct-nnmaildir--srv-tags cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags return throw nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] looking-at "From " replace-match "X-From-Line: " 1 type-of signal wrong-type-argument nnmaildir--srv 6 gethash nnmaildir-request-create-group nnmaildir-request-accept-article 4 file-name-as-directory nnmaildir--prepare nnmaildir--grp nnmaildir--art 2 delq mapcar #[257 "\300
@\240\210\302\300\242\301\242\"\204\303\300\242!\205\304\300\242!\205\211\207" [V0 V1 gethash nnmaildir-request-create-group nnmaildir-request-accept-article] 4 "\n\n(fn GA)"]] 13 (#$ . 83903)])
#@14 

(fn GNAME)
(defalias 'nnmaildir-active-number #[257 "\300\207" [0] 2 (#$ . 85289)])
#@44 

(fn RANGES &optional GNAME SERVER FORCE)
(defalias 'nnmaildir-request-expire-articles #[1025 "\211?\306\"\307C\307C\307C\307C\307C\307\211C\307\211\211\3102O
\204L\311!\f>\2041\312\313\314D\"\210\211\315\203@\316P\202A\317I\266\320\310\321!\"\210\311!
>\204]\312\313\322\nD\"\210\323H\262\f\324\"\240\210\325\242\326\"\203}\320\310\321!\"\210\325\242\327\"\240\210\242\204\273(\203\231(
!\206\233)\240\210\242\330=\203\253\331\240\210\202\273\242\247\203\273\332\242\333_!\240\210\203\326\242\250\204\316\320\310\321!\"\210\334\242!\240\210\311!\f>\204\346\312\313\314D\"\210\335H\240\210\211\242


\336P!\266\204\240\210\211\242\211\337\336P!\266\203\240\210\311!
>\204
\312\313\322\nD\"\210\340H\262\341
!\262
r\342\343!q\210\344\345\346
&\n#\210\347 \210)\211\2420+\207" [deactivate-mark nnmaildir-article-file-name nnmaildir--file nnmaildir--cur-server cl-struct-nnmaildir--srv-tags cl-struct-nnmaildir--grp-tags nnmaildir--prepare nil return type-of signal wrong-type-argument nnmaildir--srv 8 "No such group: " "No current group" throw gnus-uncompress-range nnmaildir--grp 1 nnmaildir--pgname nnmaildir--param read-only expire-age immediate 0 round 86400 time-since 4 file-name-as-directory "cur" 6 reverse gnus-get-buffer-create " *nnmaildir move*" nnmaildir--nlist-iterate make-closure #[257 "\311
!>\204\312\313\314D\"\210\211\315H\307\242\311!>\204)\312\313\314D\"\210\316HQ\304\317!\240\210\304\242\204@\320\302\"\207\301\203k\321\305\242\304\242\322
8\262
\"\203k\310\311!>\204c\312\313\314D\"\210
\323H\310\242B\240\207\306\300?\205}\212\214\324\303\242\325\"*\240\210\306\242;\203\251\306\242\303\242\230\204\251\326 \210\327!\210\330\306\242\331\211\332$\211:\203\250\333\306\242A\"\210\210\306\242\303\242\232\203\312\310\311!>\204\302\312\313\314D\"\210
\323H\310\242B\240\207\317
!\203\326\334
!\210\210\320\302\"\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 type-of signal wrong-type-argument nnmaildir--art 1 2 file-attributes nnmaildir--expired-article time-less-p 5 3 nnmaildir--param expire-group erase-buffer nnheader-insert-file-contents gnus-request-accept-article nil no-encode gnus-group-mark-article-read delete-file cl-struct-nnmaildir--art-tags nnmaildir--file nnmaildir-article-file-name] 7 "\n\n(fn ARTICLE)"] erase-buffer nnmail-expiry-wait-function nnmail-expiry-wait] 27 (#$ . 85381)])
#@39 

(fn GNAME ACTIONS &optional SERVER)
(defalias 'nnmaildir-request-set-mark #[770 "\306
\"\307!	>\204\310\311\312D\"\210\313H

\314P!\266\204\211\315\314P!\266\203\n\316\211\316C\316\211\211C\316C\316C\316C\316\211\211C\316+\317\320\f\f$\317\321#\317\322	&\317\323%\3242\312
\204\253\307!	>\204\203\310\311\312D\"\210\211\325\326PI\266\211\203\244\211@\327@\"\262
A\266\202\202\217\210\330\324
\"\210\307!,>\204\275\310\311\331D\"\210\332H\262

\307!	>\204\324\310\311\312D\"\210\313H\240\210
\211\242

\314P!\266\204\240\210
\211\242\211\333\314P!\266\203\240\210
\211\242\211\334\314P!\266\203\240\210\307!,>\204
\310\311\331D\"\210\335H\262\336\"\262\337\"\262\n\242\316\340\341$\240\210\n\342\343\344\345-\"\344\346\242\"\"!\240\210\211\203\307
\211@\211@\262
AA@\240\210\242\211\203\211
\211@
\242\235\203{
\242\202\200

\242B\240\210
A\266\202\202e
\210
A\247\203\226

C\262\347A@\350=\203\250
\202\276
A@\351=\203\265
\202\276
A@\352=\205\276
#\210
A\266\202\202P
\210\3160,\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnheader-file-coding-system coding-system-for-write buffer-file-coding-system file-coding-system-alist nnmaildir--prepare type-of signal wrong-type-argument nnmaildir--srv 4 file-name-as-directory "cur" nil make-closure #[257 "\306!\f>\204\307\310\311D\"\210\312H\306!\f>\204!\307\310\311D\"\210\313H\314

\"@\262
\211\2039\315\316\"\300#\210\302\301\242\317!\320P!\266\202\240\210\302\211\242P\240\210\302\242\321
!\205[\322
!\207" [V0 V1 V2 nnmaildir--article cl-struct-nnmaildir--art-tags nnmaildir-flag-mark-mapping type-of signal wrong-type-argument nnmaildir--art 1 2 rassq nnmaildir--article-set-flags nnmaildir--remove-flag symbol-name file-name-as-directory file-attributes delete-file] 10 "\n\n(fn MARK)"] #[257 "\211\303\301\300\242\")\207" [V0 V1 nnmaildir--article mapcar] 4 "\n\n(fn ARTICLE)"] #[257 "\306\307\310\300\301\303\304\305&\302\242\"\207" [V0 V1 V2 V3 V4 V5 mapcar make-closure #[257 "\306\305!>\204\307\310\311\305D\"\210\305\312H\306\305!>\204#\307\310\311\305D\"\210\305\313H\314
\"@\262
\211\203<\315\305\316\"\300#\207\302\301\242\317!\320P!\266\202\240\210\304\302\242\321P\240\210\303\302\242P\240\210\3221j\323\324\304\242\303\242\")0\207\325
!\206\251\326
!\203\207\327\302\242!\210\330\304\242!\210\324\304\242\303\242\"\207\331
!\203\243\304\242\332P\330
!\210\333
\304\242\334#\210\324\304\242\303\242\"\207\307
@A\"\207" [V0 V1 V2 V3 V4 V5 type-of signal wrong-type-argument nnmaildir--art 1 2 rassq nnmaildir--article-set-flags nnmaildir--add-flag symbol-name file-name-as-directory ":" (error) "C" add-name-to-file nnmaildir--eexist-p nnmaildir--enoent-p nnmaildir--mkdir nnmaildir--mkfile nnmaildir--emlink-p "{new}" rename-file replace cl-struct-nnmaildir--art-tags nnmaildir-flag-mark-mapping system-messages-locale] 10 "\n\n(fn MARK)"]] 10 "\n\n(fn ARTICLE)"] #[257 "\303
!\210\211\305\306\307\301\302#\300\242\")\207" [V0 V1 V2 V3 nnmaildir--article mapcar make-closure #[257 "\211\300\242>?\205\301
!\207" [V0 V1] 3 "\n\n(fn MARK)"]] 6 "\n\n(fn ARTICLE)"] return 8 "No such group: " gnus-range-add throw nnmaildir--grp 6 ".nnmaildir" "marks" 1 nnmaildir--pgname nnmaildir--group-ls "\\`[^.]" nosort gnus-delete-duplicates append mapcar cdr intern nnmaildir--nlist-iterate del add set deactivate-mark cl-struct-nnmaildir--grp-tags nnmaildir-flag-mark-mapping] 28 (#$ . 87856)])
#@31 

(fn GNAME &optional SERVER)
(defalias 'nnmaildir-close-group #[513 "\302
\"\303\211C\303\211\211\211\304\305\306\"\204/\307!	>\204#\310\311\312D\"\210\211\313\314
PI\266\303\207\315\"\262\316	\"\240\210\307!	>\204M\310\311\312D\"\210\317H\262\n

\320P!\266\204\262\321\322\"\203u\211\323\320P!\266\203\202\211\324\320P!\266\203\262\211\325\320P!\266\203\262\211\326\320P!\266\203\242\211\327\320P!\266\203\330\331\332$B\262\333\334\335\"\"\262\242\303\331\332$\262\336 \334\337\"\216\211\203\343\211@\340\341\"\210\342\343\344\"\345#\210
A\266\202\202\307\210)\210\342\346\345#\210
\211\203!
\211@\211A\262\320
@!\262
\211\203
\211@\347
\"\204
\350P!\210
A\266\202\202\376\210
A\266\202\202\355\210\345\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir--prepare nil make-hash-table :test equal type-of signal wrong-type-argument nnmaildir--srv 8 "No such group: " nnmaildir--pgname nnmaildir--group-ls 4 file-name-as-directory nnmaildir--param read-only "new" "cur" ".nnmaildir" "nov" "marks" full "\\`[^.]" nosort mapcar make-closure #[257 "\211\300\242\301\302\303$B\207" [V0 nil "\\`[^.]" nosort] 7 "\n\n(fn DIR)"] match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\`\\([^:]*\\)\\(:.*\\)?\\'" puthash match-string 1 t ":" gethash delete-file] 18 (#$ . 91417)])
#@74 Close SERVER, or the current maildir server.

(fn &optional SERVER DEFS)
(defalias 'nnmaildir-close-server #[512 "\303\304\"\203O\262\304\305!	>\204\306\307\310D\"\210
\311H\312
\n\313#\314\211\"\204D\211\2036\211\241\266\202O
B\211\262\nB\266\202O\211\203M\315
\n\"\266\316\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir--servers nnmaildir--prepare nil type-of signal wrong-type-argument nnmaildir--srv 1 assoc equal eql delq t] 7 (#$ . 92821)])
(defalias 'nnmaildir-request-close #[0 "\301\302\"\303\304\305\"\210\306\307!\262
\211\203\310
!\210\306\311!\262
\211\203$\310
!\210\306\312!\262
\211\2031\310
!\210\266\313\207" [nnmaildir--servers mapcar car nil mapc nnmaildir-close-server get-buffer " *nnmaildir work*" kill-buffer " *nnmaildir nov*" " *nnmaildir move*" t] 5])
(provide 'nnmaildir)