%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Current File : //usr/local/share/emacs/27.2/lisp/gnus/nnmaildir.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

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

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

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\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)) (#$ . 646))
#@135 Find the Maildir flag that corresponds to MARK (an atom).
Return a character, or nil if not found.
See `nnmaildir-flag-mark-mapping'.
(defalias 'nnmaildir--mark-to-flag #[(mark) "\302	\"@\207" [mark nnmaildir-flag-mark-mapping rassq] 3 (#$ . 964)])
(put 'nnmaildir--mark-to-flag 'byte-optimizer 'byte-compile-inline-expand)
#@132 Find the Gnus mark that corresponds to FLAG (a character).
Return an atom, or nil if not found.
See `nnmaildir-flag-mark-mapping'.
(defalias 'nnmaildir--flag-to-mark #[(flag) "	\236A\207" [flag nnmaildir-flag-mark-mapping] 2 (#$ . 1296)])
(put 'nnmaildir--flag-to-mark 'byte-optimizer 'byte-compile-inline-expand)
#@49 Ensure that FILENAME contains the suffix ":2,".
(defalias 'nnmaildir--ensure-suffix #[(filename) "\302\303\304\305#)\266\203\203\207\302P\207" [filename inhibit-changing-match-data ":2," nil t string-match] 7 (#$ . 1617)])
#@76 Return a copy of SUFFIX where FLAG is set.
SUFFIX should start with ":2,".
(defalias 'nnmaildir--add-flag #[(flag suffix) "\306\307\310\311#)\266\203\204\312\313\"\210\314\315\"\316\n\307\"\317\320\fB\321\"!\260\322
P+\207" [suffix inhibit-changing-match-data flags flags-as-list flag new-flags "^:2," nil t string-match error "Invalid suffix `%s'" substring 3 append gnus-delete-duplicates sort < ":2,"] 7 (#$ . 1855)])
#@80 Return a copy of SUFFIX where FLAG is cleared.
SUFFIX should start with ":2,".
(defalias 'nnmaildir--remove-flag #[(flag suffix) "\306\307\310\311#)\266\203\204\312\313\"\210\314\315\"\316\n\307\"\317\f\"\260\320
P+\207" [suffix inhibit-changing-match-data flags flags-as-list flag new-flags "^:2," nil t string-match error "Invalid suffix `%s'" substring 3 append delq ":2,"] 7 (#$ . 2296)])
#@107 The filename of the most recently requested article.
This variable is set by `nnmaildir-request-article'.
(defvar nnmaildir-article-file-name nil (#$ . 2710))
(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 (#$ . 3084))
#@21 The current server.
(defvar nnmaildir--cur-server nil (#$ . 3180))
(defvar nnmaildir--extra nil)
(defconst nnmaildir--novlen 5)
(defalias 'nnmaildir--nov-new '(macro . #[(beg mid end mtime extra) "\305	\n\f\257\207" [beg mid end mtime extra vector] 6]))
(defalias 'nnmaildir--nov-get-beg '(macro . #[(nov) "\301\302BB\207" [nov aref (0)] 3]))
(defalias 'nnmaildir--nov-get-mid '(macro . #[(nov) "\301\302BB\207" [nov aref (1)] 3]))
(defalias 'nnmaildir--nov-get-end '(macro . #[(nov) "\301\302BB\207" [nov aref (2)] 3]))
(defalias 'nnmaildir--nov-get-mtime '(macro . #[(nov) "\301\302BB\207" [nov aref (3)] 3]))
(defalias 'nnmaildir--nov-get-extra '(macro . #[(nov) "\301\302BB\207" [nov aref (4)] 3]))
(defalias 'nnmaildir--nov-set-beg '(macro . #[(nov value) "\302\303	F\207" [nov value aset 0] 4]))
(defalias 'nnmaildir--nov-set-mid '(macro . #[(nov value) "\302\303	F\207" [nov value aset 1] 4]))
(defalias 'nnmaildir--nov-set-end '(macro . #[(nov value) "\302\303	F\207" [nov value aset 2] 4]))
(defalias 'nnmaildir--nov-set-mtime '(macro . #[(nov value) "\302\303	F\207" [nov value aset 3] 4]))
(defalias 'nnmaildir--nov-set-extra '(macro . #[(nov value) "\302\303	F\207" [nov value aset 4] 4]))
#@49 compiler-macro for inlining `nnmaildir--art-p'.
(defalias 'nnmaildir--art-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-p (and (memq (type-of cl-x) cl-struct-nnmaildir--art-tags) t)) nil] 7 (#$ . 4401)])
(put 'nnmaildir--art-p 'compiler-macro 'nnmaildir--art-p--cmacro)
(defalias 'nnmaildir--art-p #[(cl-x) "\302!	>\205	\303\207" [cl-x cl-struct-nnmaildir--art-tags type-of t] 2])
(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)
#@54 compiler-macro for inlining `nnmaildir--art-prefix'.
(defalias 'nnmaildir--art-prefix--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 5024)])
(put 'nnmaildir--art-prefix 'compiler-macro 'nnmaildir--art-prefix--cmacro)
#@55 Access slot "prefix" of `nnmaildir--art' struct CL-X.
(defalias 'nnmaildir--art-prefix #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--art-tags type-of signal wrong-type-argument nnmaildir--art 1] 4 (#$ . 5453)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--art-prefix side-effect-free t] 4)
#@54 compiler-macro for inlining `nnmaildir--art-suffix'.
(defalias 'nnmaildir--art-suffix--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 5805)])
(put 'nnmaildir--art-suffix 'compiler-macro 'nnmaildir--art-suffix--cmacro)
#@55 Access slot "suffix" of `nnmaildir--art' struct CL-X.
(defalias 'nnmaildir--art-suffix #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--art-tags type-of signal wrong-type-argument nnmaildir--art 2] 4 (#$ . 6234)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--art-suffix side-effect-free t] 4)
#@51 compiler-macro for inlining `nnmaildir--art-num'.
(defalias 'nnmaildir--art-num--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 6586)])
(put 'nnmaildir--art-num 'compiler-macro 'nnmaildir--art-num--cmacro)
#@52 Access slot "num" of `nnmaildir--art' struct CL-X.
(defalias 'nnmaildir--art-num #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--art-tags type-of signal wrong-type-argument nnmaildir--art 3] 4 (#$ . 7000)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--art-num side-effect-free t] 4)
#@53 compiler-macro for inlining `nnmaildir--art-msgid'.
(defalias 'nnmaildir--art-msgid--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 7343)])
(put 'nnmaildir--art-msgid 'compiler-macro 'nnmaildir--art-msgid--cmacro)
#@54 Access slot "msgid" of `nnmaildir--art' struct CL-X.
(defalias 'nnmaildir--art-msgid #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--art-tags type-of signal wrong-type-argument nnmaildir--art 4] 4 (#$ . 7767)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--art-msgid side-effect-free t] 4)
#@51 compiler-macro for inlining `nnmaildir--art-nov'.
(defalias 'nnmaildir--art-nov--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 8116)])
(put 'nnmaildir--art-nov 'compiler-macro 'nnmaildir--art-nov--cmacro)
#@52 Access slot "nov" of `nnmaildir--art' struct CL-X.
(defalias 'nnmaildir--art-nov #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--art-tags type-of signal wrong-type-argument nnmaildir--art 5] 4 (#$ . 8530)])
(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 #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\203V@\314>\203=AA\211\202(\315>A@\203L\316\211\202(\317\320@\"\210\202&)\321\322\323\316\316	\n\f
&\n-\207" [#1# prefix suffix num msgid nov 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)) #2=#:--cl-keys-- cl-whole] 12 (#$ . 8927)])
(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 #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\203V@\314>\203=AA\211\202(\315>A@\203L\316\211\202(\317\320@\"\210\202&)\321\322	\n\f
&-\207" [#1# prefix suffix num msgid nov 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 #2=#:--cl-keys--] 8 (#$ . 9800)])
(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)
#@49 compiler-macro for inlining `nnmaildir--grp-p'.
(defalias 'nnmaildir--grp-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-p (and (memq (type-of cl-x) cl-struct-nnmaildir--grp-tags) t)) nil] 7 (#$ . 10794)])
(put 'nnmaildir--grp-p 'compiler-macro 'nnmaildir--grp-p--cmacro)
(defalias 'nnmaildir--grp-p #[(cl-x) "\302!	>\205	\303\207" [cl-x cl-struct-nnmaildir--grp-tags type-of t] 2])
(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)
#@52 compiler-macro for inlining `nnmaildir--grp-name'.
(defalias 'nnmaildir--grp-name--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 11418)])
(put 'nnmaildir--grp-name 'compiler-macro 'nnmaildir--grp-name--cmacro)
#@53 Access slot "name" of `nnmaildir--grp' struct CL-X.
(defalias 'nnmaildir--grp-name #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 1] 4 (#$ . 11838)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--grp-name side-effect-free t] 4)
#@51 compiler-macro for inlining `nnmaildir--grp-new'.
(defalias 'nnmaildir--grp-new--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 12185)])
(put 'nnmaildir--grp-new 'compiler-macro 'nnmaildir--grp-new--cmacro)
#@52 Access slot "new" of `nnmaildir--grp' struct CL-X.
(defalias 'nnmaildir--grp-new #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 2] 4 (#$ . 12600)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--grp-new side-effect-free t] 4)
#@51 compiler-macro for inlining `nnmaildir--grp-cur'.
(defalias 'nnmaildir--grp-cur--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 12944)])
(put 'nnmaildir--grp-cur 'compiler-macro 'nnmaildir--grp-cur--cmacro)
#@52 Access slot "cur" of `nnmaildir--grp' struct CL-X.
(defalias 'nnmaildir--grp-cur #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 3] 4 (#$ . 13359)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--grp-cur side-effect-free t] 4)
#@51 compiler-macro for inlining `nnmaildir--grp-min'.
(defalias 'nnmaildir--grp-min--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 13703)])
(put 'nnmaildir--grp-min 'compiler-macro 'nnmaildir--grp-min--cmacro)
#@52 Access slot "min" of `nnmaildir--grp' struct CL-X.
(defalias 'nnmaildir--grp-min #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 4] 4 (#$ . 14118)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--grp-min side-effect-free t] 4)
#@53 compiler-macro for inlining `nnmaildir--grp-count'.
(defalias 'nnmaildir--grp-count--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 14462)])
(put 'nnmaildir--grp-count 'compiler-macro 'nnmaildir--grp-count--cmacro)
#@54 Access slot "count" of `nnmaildir--grp' struct CL-X.
(defalias 'nnmaildir--grp-count #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 5] 4 (#$ . 14887)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--grp-count side-effect-free t] 4)
#@53 compiler-macro for inlining `nnmaildir--grp-nlist'.
(defalias 'nnmaildir--grp-nlist--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 15237)])
(put 'nnmaildir--grp-nlist 'compiler-macro 'nnmaildir--grp-nlist--cmacro)
#@54 Access slot "nlist" of `nnmaildir--grp' struct CL-X.
(defalias 'nnmaildir--grp-nlist #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 6] 4 (#$ . 15662)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--grp-nlist side-effect-free t] 4)
#@53 compiler-macro for inlining `nnmaildir--grp-flist'.
(defalias 'nnmaildir--grp-flist--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 16012)])
(put 'nnmaildir--grp-flist 'compiler-macro 'nnmaildir--grp-flist--cmacro)
#@54 Access slot "flist" of `nnmaildir--grp' struct CL-X.
(defalias 'nnmaildir--grp-flist #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 7] 4 (#$ . 16437)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--grp-flist side-effect-free t] 4)
#@53 compiler-macro for inlining `nnmaildir--grp-mlist'.
(defalias 'nnmaildir--grp-mlist--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 16787)])
(put 'nnmaildir--grp-mlist 'compiler-macro 'nnmaildir--grp-mlist--cmacro)
#@54 Access slot "mlist" of `nnmaildir--grp' struct CL-X.
(defalias 'nnmaildir--grp-mlist #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 8] 4 (#$ . 17212)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--grp-mlist side-effect-free t] 4)
#@53 compiler-macro for inlining `nnmaildir--grp-cache'.
(defalias 'nnmaildir--grp-cache--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 17562)])
(put 'nnmaildir--grp-cache 'compiler-macro 'nnmaildir--grp-cache--cmacro)
#@54 Access slot "cache" of `nnmaildir--grp' struct CL-X.
(defalias 'nnmaildir--grp-cache #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 9] 4 (#$ . 17987)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--grp-cache side-effect-free t] 4)
#@53 compiler-macro for inlining `nnmaildir--grp-index'.
(defalias 'nnmaildir--grp-index--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 18337)])
(put 'nnmaildir--grp-index 'compiler-macro 'nnmaildir--grp-index--cmacro)
#@54 Access slot "index" of `nnmaildir--grp' struct CL-X.
(defalias 'nnmaildir--grp-index #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 10] 4 (#$ . 18763)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--grp-index side-effect-free t] 4)
#@52 compiler-macro for inlining `nnmaildir--grp-mmth'.
(defalias 'nnmaildir--grp-mmth--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 19114)])
(put 'nnmaildir--grp-mmth 'compiler-macro 'nnmaildir--grp-mmth--cmacro)
#@53 Access slot "mmth" of `nnmaildir--grp' struct CL-X.
(defalias 'nnmaildir--grp-mmth #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags type-of signal wrong-type-argument nnmaildir--grp 11] 4 (#$ . 19535)])
(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 #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"\206\313A@\306\314\"\206(\315A@\306\316\"A@\306\317\"A@\306\320\"A@\306\321\"A@\306\322\"A@ \306\323\"A@!\"\"\203\216\"@\324>\203u\"AA\211\"\202`\325>A@\203\204\326\211\"\202`\327\330\"@\"\210\202^)\331\332\333\326#\326	\n\f
 !&.\207" [#1# name new cur min count 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)) nlist flist mlist cache index mmth #2=#:--cl-keys-- cl-whole] 18 (#$ . 19937)])
(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 #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"\206\313A@\306\314\"\206(\315A@\306\316\"A@\306\317\"A@\306\320\"A@\306\321\"A@\306\322\"A@\306\323\"A@ !!\203\216!@\324>\203u!AA\211!\202`\325>A@\203\204\326\211!\202`\327\330!@\"\210\202^)\331\332	\n\f
 &\f.\207" [#1# name new cur min count 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 nlist flist mlist cache index mmth #2=#:--cl-keys--] 14 (#$ . 21191)])
(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)
#@49 compiler-macro for inlining `nnmaildir--srv-p'.
(defalias 'nnmaildir--srv-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-p (and (memq (type-of cl-x) cl-struct-nnmaildir--srv-tags) t)) nil] 7 (#$ . 22647)])
(put 'nnmaildir--srv-p 'compiler-macro 'nnmaildir--srv-p--cmacro)
(defalias 'nnmaildir--srv-p #[(cl-x) "\302!	>\205	\303\207" [cl-x cl-struct-nnmaildir--srv-tags type-of t] 2])
(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)
#@55 compiler-macro for inlining `nnmaildir--srv-address'.
(defalias 'nnmaildir--srv-address--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 23271)])
(put 'nnmaildir--srv-address 'compiler-macro 'nnmaildir--srv-address--cmacro)
#@56 Access slot "address" of `nnmaildir--srv' struct CL-X.
(defalias 'nnmaildir--srv-address #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 1] 4 (#$ . 23706)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--srv-address side-effect-free t] 4)
#@54 compiler-macro for inlining `nnmaildir--srv-method'.
(defalias 'nnmaildir--srv-method--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 24062)])
(put 'nnmaildir--srv-method 'compiler-macro 'nnmaildir--srv-method--cmacro)
#@55 Access slot "method" of `nnmaildir--srv' struct CL-X.
(defalias 'nnmaildir--srv-method #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 2] 4 (#$ . 24492)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--srv-method side-effect-free t] 4)
#@54 compiler-macro for inlining `nnmaildir--srv-prefix'.
(defalias 'nnmaildir--srv-prefix--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 24845)])
(put 'nnmaildir--srv-prefix 'compiler-macro 'nnmaildir--srv-prefix--cmacro)
#@55 Access slot "prefix" of `nnmaildir--srv' struct CL-X.
(defalias 'nnmaildir--srv-prefix #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 3] 4 (#$ . 25275)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--srv-prefix side-effect-free t] 4)
#@51 compiler-macro for inlining `nnmaildir--srv-dir'.
(defalias 'nnmaildir--srv-dir--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 25628)])
(put 'nnmaildir--srv-dir 'compiler-macro 'nnmaildir--srv-dir--cmacro)
#@52 Access slot "dir" of `nnmaildir--srv' struct CL-X.
(defalias 'nnmaildir--srv-dir #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 4] 4 (#$ . 26043)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--srv-dir side-effect-free t] 4)
#@50 compiler-macro for inlining `nnmaildir--srv-ls'.
(defalias 'nnmaildir--srv-ls--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 26387)])
(put 'nnmaildir--srv-ls 'compiler-macro 'nnmaildir--srv-ls--cmacro)
#@51 Access slot "ls" of `nnmaildir--srv' struct CL-X.
(defalias 'nnmaildir--srv-ls #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 5] 4 (#$ . 26797)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--srv-ls side-effect-free t] 4)
#@54 compiler-macro for inlining `nnmaildir--srv-groups'.
(defalias 'nnmaildir--srv-groups--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 27138)])
(put 'nnmaildir--srv-groups 'compiler-macro 'nnmaildir--srv-groups--cmacro)
#@55 Access slot "groups" of `nnmaildir--srv' struct CL-X.
(defalias 'nnmaildir--srv-groups #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 6] 4 (#$ . 27568)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--srv-groups side-effect-free t] 4)
#@54 compiler-macro for inlining `nnmaildir--srv-curgrp'.
(defalias 'nnmaildir--srv-curgrp--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 27921)])
(put 'nnmaildir--srv-curgrp 'compiler-macro 'nnmaildir--srv-curgrp--cmacro)
#@55 Access slot "curgrp" of `nnmaildir--srv' struct CL-X.
(defalias 'nnmaildir--srv-curgrp #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 7] 4 (#$ . 28351)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--srv-curgrp side-effect-free t] 4)
#@53 compiler-macro for inlining `nnmaildir--srv-error'.
(defalias 'nnmaildir--srv-error--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 28704)])
(put 'nnmaildir--srv-error 'compiler-macro 'nnmaildir--srv-error--cmacro)
#@54 Access slot "error" of `nnmaildir--srv' struct CL-X.
(defalias 'nnmaildir--srv-error #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 8] 4 (#$ . 29129)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--srv-error side-effect-free t] 4)
#@53 compiler-macro for inlining `nnmaildir--srv-mtime'.
(defalias 'nnmaildir--srv-mtime--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 29479)])
(put 'nnmaildir--srv-mtime 'compiler-macro 'nnmaildir--srv-mtime--cmacro)
#@54 Access slot "mtime" of `nnmaildir--srv' struct CL-X.
(defalias 'nnmaildir--srv-mtime #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 9] 4 (#$ . 29904)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--srv-mtime side-effect-free t] 4)
#@51 compiler-macro for inlining `nnmaildir--srv-gnm'.
(defalias 'nnmaildir--srv-gnm--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 30254)])
(put 'nnmaildir--srv-gnm 'compiler-macro 'nnmaildir--srv-gnm--cmacro)
#@52 Access slot "gnm" of `nnmaildir--srv' struct CL-X.
(defalias 'nnmaildir--srv-gnm #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 10] 4 (#$ . 30670)])
(byte-code "\300\301\302\303#\300\207" [function-put nnmaildir--srv-gnm side-effect-free t] 4)
#@61 compiler-macro for inlining `nnmaildir--srv-target-prefix'.
(defalias 'nnmaildir--srv-target-prefix--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x 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] 7 (#$ . 31015)])
(put 'nnmaildir--srv-target-prefix 'compiler-macro 'nnmaildir--srv-target-prefix--cmacro)
#@62 Access slot "target-prefix" of `nnmaildir--srv' struct CL-X.
(defalias 'nnmaildir--srv-target-prefix #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 11] 4 (#$ . 31481)])
(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 #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\306\317\"A@\306\320\"A@\306\321\"A@\203\206@\322>\203mAA\211\202X\323>A@\203|\324\211\202X\325\326@\"\210\202V)\327\330\331\324 \324	\n\f
&.\207" [#1# address method prefix dir ls 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)) groups curgrp mtime gnm target-prefix #2=#:--cl-keys-- cl-whole] 18 (#$ . 31910)])
(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 #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\306\317\"A@\306\320\"A@\306\321\"A@\203\206@\322>\203mAA\211\202X\323>A@\203|\324\211\202X\325\326@\"\210\202V)\327\330	\n\f
&\f.\207" [#1# address method prefix dir ls 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 groups curgrp mtime gnm target-prefix #2=#:--cl-keys--] 14 (#$ . 33217)])
(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)
(defalias 'nnmaildir--article-set-flags #[(article new-suffix curdir) "\306!	>\204\307\310\311D\"\210\312H\306!	>\204\"\307\310\311D\"\210\313H\f\nQ\f\nQ\314
!\204=\315\316
\"\210\317
\320#\210\306!	>\204S\307\310\311D\"\210\211\313I-\207" [article cl-struct-nnmaildir--art-tags prefix suffix curdir article-file type-of signal wrong-type-argument nnmaildir--art 1 2 file-exists-p error "Couldn't find article file %s" rename-file replace new-suffix new-name #1=#:v] 5])
(defalias 'nnmaildir--expired-article #[(group article) "\306!	>\204\307\310\311D\"\210\211\312\313I\210)\306!\f>\204&\307\310\314D\"\210\315H\306!\f>\2048\307\310\314D\"\210\316H\306!\f>\204J\307\310\314D\"\210\317H\306!\f>\204\\\307\310\314D\"\210\312HS\306!	>\204o\307\310\311D\"\210\320H\306!	>\204\201\307\310\311D\"\210\317H\313\321\313\211\322U\204\306!\f>\204\261\307\310\314D\"\210\323H\306!	>\204\305\307\310\311D\"\210\324H\211@@=\203\332A\202A
@@U\204\374A\202\347A
=\203@@\325 \306!\f>\204 \307\310\314D\"\210\211!\317I\210)\306!\f>\2049\307\310\314D\"\210\211\"\312I\210)\306!\f>\204R\307\310\314D\"\210\211#\323I\210)\241\210\326\"\210\326\".\207" [article cl-struct-nnmaildir--art-tags #1=#:v group cl-struct-nnmaildir--grp-tags num type-of signal wrong-type-argument nnmaildir--art 5 nil nnmaildir--grp 7 8 4 1 (nil) 0 6 3 t remhash nlist-post nlist-pre new-nlist msgid prefix count min mlist flist inhibit-quit #2=#:v #3=#:v #4=#:v] 11])
(defalias 'nnmaildir--nlist-art #[(group num) "\304	!\n>\204\305\306\307	D\"\210	\310H\236\211\205A)\207" [num group cl-struct-nnmaildir--grp-tags entry type-of signal wrong-type-argument nnmaildir--grp 6] 6])
(defalias 'nnmaildir--flist-art '(macro . #[(list file) "\302	E\207" [file list gethash] 3]))
(defalias 'nnmaildir--mlist-art '(macro . #[(list msgid) "\302	E\207" [msgid list gethash] 3]))
(defalias 'nnmaildir--pgname #[(server gname) "\305!	>\204\306\307\310D\"\210\311H\211\203\nP\202M\312\305!	>\204.\306\307\310D\"\210\313H\"\305!	>\204B\306\307\310D\"\210\211\311\314!I\210))\207" [server cl-struct-nnmaildir--srv-tags prefix gname #1=#:v type-of signal wrong-type-argument nnmaildir--srv 3 gnus-group-prefixed-name 2 gnus-group-real-prefix] 7])
(defalias 'nnmaildir--param #[(pgname param) "\302	\303#\304	!\203	\305H\306	!\207" [pgname param gnus-group-find-parameter allow-list vectorp 0 eval] 4])
(defalias 'nnmaildir--with-nntp-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer nntp-server-buffer] 3]))
(put 'nnmaildir--with-nntp-buffer 'edebug-form-spec '(body))
(defalias 'nnmaildir--with-work-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (get-buffer-create " *nnmaildir work*")] 3]))
(put 'nnmaildir--with-work-buffer 'edebug-form-spec '(body))
(defalias 'nnmaildir--with-nov-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (get-buffer-create " *nnmaildir nov*")] 3]))
(put 'nnmaildir--with-nov-buffer 'edebug-form-spec '(body))
(defalias 'nnmaildir--with-move-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (get-buffer-create " *nnmaildir move*")] 3]))
(put 'nnmaildir--with-move-buffer 'edebug-form-spec '(body))
(defalias 'nnmaildir--subdir #[(dir subdir) "\302	P!\207" [dir subdir file-name-as-directory] 3])
(put 'nnmaildir--subdir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--srvgrp-dir #[(srv-dir gname) "	\304\nP!*\207" [srv-dir gname subdir dir file-name-as-directory] 3])
(put 'nnmaildir--srvgrp-dir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--tmp #[(dir) "\302\303	P!*\207" [dir subdir "tmp" file-name-as-directory] 3])
(put 'nnmaildir--tmp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--new #[(dir) "\302\303	P!*\207" [dir subdir "new" file-name-as-directory] 3])
(put 'nnmaildir--new 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--cur #[(dir) "\302\303	P!*\207" [dir subdir "cur" file-name-as-directory] 3])
(put 'nnmaildir--cur 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--nndir #[(dir) "\302\303	P!*\207" [dir subdir ".nnmaildir" file-name-as-directory] 3])
(put 'nnmaildir--nndir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--nov-dir #[(dir) "\302\303	P!*\207" [dir subdir "nov" file-name-as-directory] 3])
(put 'nnmaildir--nov-dir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--marks-dir #[(dir) "\302\303	P!*\207" [dir subdir "marks" file-name-as-directory] 3])
(put 'nnmaildir--marks-dir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--num-dir #[(dir) "\302\303	P!*\207" [dir subdir "num" file-name-as-directory] 3])
(put 'nnmaildir--num-dir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--unlink '(macro . #[(file-arg) "\301\302DC\303BB\207" [file-arg let file ((if (file-attributes file) (delete-file file)))] 3]))
(defalias 'nnmaildir--mkdir #[(dir) "\301\302!!\206
\303\304!!\207" [dir file-exists-p file-name-as-directory make-directory-internal directory-file-name] 3])
(defalias 'nnmaildir--mkfile #[(file) "\301\302\303\303\304%\207" [file write-region "" nil no-message] 6])
(defalias 'nnmaildir--delete-dir-files #[(dir ls) "\302!\205\303\304	\305\306\307$\"\210\310!\207" [dir ls file-attributes mapc delete-file full "\\`[^.]" nosort delete-directory] 7])
(defalias 'nnmaildir--group-maxnum #[(server group) "\3062\344\307!	>\204\310\311\312D\"\210\313H\314U\203 \315\306\314\"\210\307\n!>\204/\310\311\316\nD\"\210\n\317H\307!	>\204A\310\311\312D\"\210\320H\211\f\321P!,\320\322\211\211\211\211\211\323\321P!+\211\211\324\321P!+\325\326!P!\211\204\241\315\306S\"\210\3278\262\211A@\262\\\325\326!P!\211\204\320\315\306S\"\210\3278\262\232\204\213\202\213\207" [group cl-struct-nnmaildir--grp-tags server cl-struct-nnmaildir--srv-tags gname srv-dir 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 subdir dir number-linked nlink ino-opened attr number-opened] 7])
(defalias 'nnmaildir--prepare #[(server group) "\3062\204	\211\204)\307\306\310\"\210\202)\311\n\310\211\312%\211\204'\307\306\310\"\210\313!>\2048\314\315\316D\"\210\317H\211\205\f\320!\321U\262?\205\313!>\204[\314\315\316D\"\210\322H\204\341\313!>\204p\314\315\316D\"\210\211\322\323\313!>\204\204\314\315\316D\"\210\324HP\211\203\225\211<\203\225\211\206\325\325*\"A\206\325\211\326\232\203\251+\206\276\325,\"A\206\276\325-\"A\206\276.\211\203\332\327\330@@@@@A@#\232\204\332\211A\266\202\202\275\211@@\262\206\276/\211\203\377\327\330@@@A@#\232\204\377\211A\266\202\202\344\211@\262\206\2760A\310\211\203\274\211A\262\242\3318\262\262;\204\310\332C\3332\255\211\242\2063+\240\210\204K\334\335\336\337\340\341!\342\"\331\343%*\"\210,-D\211\203n\211@\334\335\336\344\340\341!\345\"\331\343%\"\210A\266\202\202P\210\211\242A@\346\235\203\201\327\347\242@\"\202\213\327\330\242@\242A@#\211\242B\211*\235\204\251\204\251\325@*\"\204\251\211*B*\266\2020\266\204\232\203\262\310\262\202\266\202\211\203\322\325*\"\204\322B*B*\211\262\262\206\336\307\306\310\"I\210)1\204\373\313!>\204\365\314\315\316D\"\210\350H\202\3511\f\")0\207" [server nnmaildir--cur-server nnmaildir--servers cl-struct-nnmaildir--srv-tags groups #1=#:v 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-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" 7 gethash gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist group] 21])
(defalias 'nnmaildir--tab-to-space #[(string) "\302\303\304	#\203	\302\224\305I\210\302\225\202)	\207" [pos string 0 string-match "	" 32] 4])
(defalias 'nnmaildir--condcase '(macro . #[(errsym body &rest handler) "\303\304\305	E\306\nBF\207" [errsym body handler condition-case let ((system-messages-locale "C")) error] 5]))
(put 'nnmaildir--condcase 'edebug-form-spec '(sexp form body))
(defalias 'nnmaildir--emlink-p #[(err) "@\301=\205AA@\227\302\230\207" [err file-error "too many links"] 2])
(defalias 'nnmaildir--enoent-p #[(err) "@\301=\207" [err file-missing] 2])
(defalias 'nnmaildir--eexist-p #[(err) "@\301=\207" [err file-already-exists] 2])
#@74 Allocate a new article number by atomically creating a file under NNDIR.
(defalias 'nnmaildir--new-number #[(nndir) "\211\306\307	\nP!+\310\311\312\211\211\211\211\313!\210\3142\326\315!P\204=\202G\316
!\210\312\317\320
!\211 \211A@\262! \3218\262!\\*U\203s\322\323\324
D\"\210\315!P\3251\221\326\"\327
\f\"\210\330\314\")0\202\322#\331#!\203\245\310\211\202\321\332#!\203\311\320\f!\211 \3218\262\232?\205\305\317\211)\202\321\322#@#A\")\210\202).\207" [nndir dir subdir ino-open path-link path-open "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 previous-number-link number-link number-open make-new-file numdir attr nlink system-messages-locale err] 9 (#$ . 43795)])
(defalias 'nnmaildir--update-nov #[(server group article) "\306\307!	>\204\310\311\312D\"\210\313H\314\315\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211@ABCDEFGHIJKLMNOPQRS\3162\366\307T!U>\204k\310\311\317TD\"\210T\314HO\320O\"NROO\211ROVP\321PVP!,P\322N\323\"\203\256P\211P\324VP\321PVP!+\202\300P\211P\325VP\321PVP!+M\307W!X>\204\324\310\311\326WD\"\210W\314HL\307W!X>\204\354\310\311\326WD\"\210W\327HKMLKQJ\330J!\211I\204\331TW\"\210\332\316\315\"\210I\3338\262HI\3348\262I\307W!X>\2045\310\311\326WD\"\210W\333HEP\211P\335VP\321PVP!+\211P\211P\336VP\321PVP!+\211GLPFYZ\232\204v\337Z!Yr\340\341!q\210\342F!\204\211\315E\2020E\2040\343 \210\344F!\210\345p!E\346E!\203\264EG\347U\204\264QE\347H\232\204\272\315E\2020\307W!X>\204\314\310\311\326WD\"\210W\350H\204\362\307W!X>\204\345\310\311\326WD\"\210W\211[\350E\314HI\210)\307W!X>\204\310\311\326WD\"\210W\313H\204*\307W!X>\204\310\311\326WD\"\210W\211\\\313E\327HI\210)E\350HEE\203sHE\350H\232\203sE\313HY\f\232\203XE\313YI\210\332\316E\"\210Y\204c\332\316E\"\210\315\351\352Y\">\204s\332\316E\"\210\343 \210\344J!\210\353c\210eb\210\214\354\355\315\356#\203\230\357`d\"Be`S}\210\202\233\347Beb\210\360\314!\210\361 \211E\334H\206\255\347@)@\347U\204\303\322N\362\"\204\303@B\363B!B\363I!\364BQB\365 ]\366\216E\333H\206\341\367@\370@!\210@\364BQB\371\372E\314HE\327HE\350HE\364#C\371\373E\374H\364#A*E\313H\211D\203+D^\365 ]\375\216\376\377^\"+\2036\201aL\201bQD\370D!\210\201cCBAHY%E\307W!X>\204]\310\311\326WD\"\210W\350H\211\204\211\201dP!\307W!X>\204\310\311\326WD\"\210W\211_\350I\210)\343 \210\201e\201cQDE$p\"\210F\201fP\211JJ\330J!\203\266\201gJ!\210)\201hedJ\315\201i\315\201j&\210)\201kJF\201l#\210\307W!X>\204\350\310\311\326WD\"\210W\211`\313DI\210)E0.\207" [server cl-struct-nnmaildir--srv-tags deactivate-mark num old-extra val undecided type-of signal wrong-type-argument nnmaildir--srv 4 1 nil return nnmaildir--grp 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 get-buffer-create " *nnmaildir nov*" file-exists-p erase-buffer nnheader-insert-file-contents read vectorp 0 3 mapcar #[(e) "	>\207" [e old-extra] 2] "\n" search-forward "\n\n" noerror count-lines delete-char nnheader-parse-naked-head distrust-Lines: number-to-string "	" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] #1="" nnmaildir--tab-to-space mapconcat #[(f) "\301\206\302!\207" [f nnmaildir--tab-to-space #1#] 2] #[(extra) "\303@!A\304	!\210\304\n!\210	\305\nQ\207" [extra field val symbol-name nnmaildir--tab-to-space ": "] 3] 9 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\\`fake\\+none\\+.*\\+[0-9]+\\'" field nov-end nov-mid nov-beg msgid nov novfile novdir mtime attr file suffix prefix msgdir pgname gname dir storage-version srv-dir nnheader-file-coding-system group cl-struct-nnmaildir--grp-tags subdir article cl-struct-nnmaildir--art-tags nnmaildir--extra nnmail-extra-headers #2=#:v #3=#:v save-match-data-internal id #4=#:v #5=#:v "<" "@nnmaildir>" vector nnmaildir--new-number prin1 ":" delete-file write-region no-message excl rename-file replace] 25])
(defalias 'nnmaildir--cache-nov #[(group article nov) "\306!	>\204\307\310\311D\"\210\312H\306!	>\204!\307\310\311D\"\210\313H\314\306
!>\2048\307\310\315
D\"\210
\316H\204\200\fH\211\203_\306\n!>\204V\307\310\315\nD\"\210\n\211\316\314I\210)\f
I\210\306!	>\204s\307\310\311D\"\210\211\313T\fG\246I\210)\306
!>\204\220\307\310\315
D\"\210
\211\316I,\207" [group cl-struct-nnmaildir--grp-tags goner index cache article type-of signal wrong-type-argument nnmaildir--grp 9 10 nil nnmaildir--art 5 cl-struct-nnmaildir--art-tags #1=#:v #2=#:v #3=#:v nov] 6])
(defalias 'nnmaildir--grp-add-art #[(server group article) "\306	\n#\307\211\211\211\211\211\211\205\226\310	!>\204*\311\312\313	D\"\210	\314HT\310\n!>\204@\311\312\315\nD\"\210\n\316H\317U\203Q\202g\310	!>\204c\311\312\313	D\"\210	\320H^\310	!>\204y\311\312\313	D\"\210	\321H\211\203\212
@@V\203\224\nB
B\202\257\322
A\211\203\257\f@@W\203\257\f\211A\211\204\235\322\310	!>\204\302\311\312\313	D\"\210	\211\314I\210)\310	!>\204\334\311\312\313	D\"\210	\211 \320I\210)\203\366
\nB\fB\241\210\202\310	!>\204\311\312\313	D\"\210	\211!\321
I\210)\323\310\n!>\204 \311\312\315\nD\"\210\n\317H\n\310	!>\2044\311\312\313	D\"\210	\324H#\210\323\310\n!>\204J\311\312\315\nD\"\210\n\320H\n\310	!>\204^\311\312\313	D\"\210	\325H#\210\323\310	!>\204t\311\312\313	D\"\210	\317H	\310!\">\204\210\311\312\326D\"\210\321H#\210)\327	\n#\210\322.\207" [server group article insert-nlist nlist-cdr nlist 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 min num count nov cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags inhibit-quit #1=#:v #2=#:v #3=#:v cl-struct-nnmaildir--srv-tags] 8])
(defalias 'nnmaildir--group-ls #[(server pgname) "\303\304\"\206\305	!\n>\204\306\307\310	D\"\210	\311H\207" [pgname server cl-struct-nnmaildir--srv-tags nnmaildir--param directory-files type-of signal wrong-type-argument nnmaildir--srv 5] 4])
(defalias 'nnmaildir-article-number-to-file-name #[(number group-name server-address-string) "\306	\"\307\211\211\3102\250
\204\311\310\307\"\210\312
\"\211\204'\311\310\307\"\210\313	\"\314!>\204?\315\316\317D\"\210\320H\211	\211\321P!,\322\n\323\"\203p\211\324\321P!+\202~\211\325\321P!+\211\314\f!>\204\220\315\316\326\fD\"\210\f\327H\314\f!>\204\243\315\316\326\fD\"\210\f\330HQ0,\207" [server-address-string group-name pgname dir article group 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 number nnmaildir--cur-server cl-struct-nnmaildir--srv-tags gname srv-dir subdir cl-struct-nnmaildir--art-tags] 7])
(defalias 'nnmaildir-article-number-to-base-name #[(number group-name server-address-string) "\305	\"\211\2057\306\n\"\211\2057\307\n!\f>\204!\310\311\312\nD\"\210\n\313H\307\n!\f>\2043\310\311\312\nD\"\210\n\314HB)\207" [server-address-string group-name x number cl-struct-nnmaildir--art-tags nnmaildir--prepare nnmaildir--nlist-art type-of signal wrong-type-argument nnmaildir--art 1 2] 6])
(defalias 'nnmaildir-base-name-to-article-number #[(base-name group-name server-address-string) "\306	\"\211\2057\307\n!>\204\310\311\312\nD\"\210\n\313H\314\f\n\"\211\2057\307\n!
>\2044\310\311\315\nD\"\210\n\316H)\207" [server-address-string group-name x cl-struct-nnmaildir--grp-tags base-name cl-struct-nnmaildir--art-tags nnmaildir--prepare type-of signal wrong-type-argument nnmaildir--grp 7 gethash nnmaildir--art 3] 5])
(defalias 'nnmaildir--nlist-iterate #[(nlist ranges func) "\306\211\211\211\f\307=\203\310
@@BC\f\205\214\f@\fA\211\2031\f@=\2031\fA\211\204#\247\203=\202C@A
\3112c\205b@@\nX\203Z\312\311\306\"\210A\211\204M\3060\210\3112\210\205\207@A@	W\203~\312\311\306\"\210A!\210\202h0\210\202,\207" [nlist2 low high entry ranges nlist nil all 1 iterate-loop throw func] 5])
(defalias 'nnmaildir--system-name #[nil "\300\301\302\300\303\304\300\305\306\307 \310\311%\310\311%\310\311%\207" [replace-regexp-in-string ":" "\\072" "/" "\\057" "\\\\" "\\134" system-name nil literal] 12])
(defalias 'nnmaildir-request-type #[(_group &optional _article) "\300\207" [mail] 1])
(defalias 'nnmaildir-status-message #[(&optional server) "\303\304\"\210\305	!\n>\204\306\307\310	D\"\210	\311H\207" [server nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir--prepare nil type-of signal wrong-type-argument nnmaildir--srv 8] 4])
(defalias 'nnmaildir-server-opened #[(&optional server) "\2059	\203	\303!\n>\204\304\305\306D\"\210\307H\230\202 \310\2059\303!\n>\2042\304\305\306D\"\210\311H\2059\310\207" [nnmaildir--cur-server server cl-struct-nnmaildir--srv-tags type-of signal wrong-type-argument nnmaildir--srv 1 t 6] 5])
(defalias 'nnmaildir-open-server #[(server-string &optional defs) "\306	\307\211\310%\307\211\211\3112#
\203;\312
!0>\204&\313\314\315
D\"\210
\316H\203t
\2111\203t\317\311\320\"\210\202t\321\315\307\211\211\211\211\211\211\211\211\211&\f\3202\322	\310#3
43\203f34\241\210\202p4B\2113	B4\210+\3235\236\211\204\233\312
!0>\204\215\313\314\315
D\"\210
\2116\324\325I\210)\317\311\307\"\210\fA@\326\f!\327\f!\330\f!\331\f!\204\321\312
!0>\204\301\313\314\315
D\"\210
\2117\324\332\fPI\210)\317\311\307\"\210\312
!0>\204\341\313\314\315
D\"\210
\2118\333\fI\210)\3345\236\211\2049\203\374\334\202\375\335\202-\nA@\336\n!\204-\312
!0>\204\313\314\315
D\"\210
\211:\324\337\340\n!PI\210)\317\311\307\"\210\312
!0>\204=\313\314\315
D\"\210
\211;\341\nI\210)\n\f\307\342\343$G\3445\236\211\203\202\nA\211\203\202\n@\203\202\312
!0>\204s\313\314\315
D\"\210
\211<\345\320I)\203\202\346\347!\210\3505\236\211\203\257\nA@\326\n!\312
!0>\204\243\313\314\315
D\"\210
\211=\351\nI\210)\202\371\3525\236\211\203\340\nA@\326\n!\330\n!\312
!0>\204\324\313\314\315
D\"\210
\211>\351\nI\210)\202\371\312
!0>\204\360\313\314\315
D\"\210
\211?\351\353I\210)\312
!0>\204	\313\314\315
D\"\210
\211@\316\354\355\206\356\357\310$)I\210)
1\3200,\207" [server-string nnmaildir--servers x size dir server 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 cl-struct-nnmaildir--srv-tags nnmaildir--cur-server inhibit-quit #1=#:p #2=#:v defs #3=#:v #4=#:v #5=#:v nnheader-directory-files-is-safe #6=#:v #7=#:v #8=#:v #9=#:v #10=#:v #11=#:v #12=#:v] 14])
(defalias 'nnmaildir--parse-filename #[(file) "@\304\211\305\306\"\2031\307\310\311\"P\211G\312Z\313\314\315\n\316	#!\314\315\n	\"!\310\317\"$\2022+\207" [file len timestamp prefix nil string-match "\\`\\([0-9]+\\)\\(\\..*\\)\\'" "0000" match-string 1 4 vector string-to-number substring 0 2] 7])
(defalias 'nnmaildir--sort-files #[(a b) "\3022e:\203\303\302	:\205@	@\231\"\210	:\203!\303\302\304\"\210\305H	\305HW\2030\303\302\304\"\210\305H	\305HV\203?\303\302\306\"\210\307H	\307HW\203N\303\302\304\"\210\307H	\307HV\203]\303\302\306\"\210\310H	\310H\2310\207" [a b return throw t 0 nil 1 2] 4])
(defalias 'nnmaildir--scan #[(gname scan-msgs groups _method srv-dir srv-ls) "\30625\307\310!\311\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211@$ABCDEFGHIJKLL\211KLM\312MP!,\211I\211\313M\312MP!+H\314I!\204\210\315N!O>\204v\316\317\320ND\"\210N\211P\321\322IPI\210)\323\306\311\"\210I\211\324M\312MP!+GI\211\325M\312MP!+FI\211\326M\312MP!+E\327F!D\327E!C\314G!\203\330D\203\330C\204\374\315N!O>\204\352\316\317\320ND\"\210N\211Q\321\330IPI\210)\323\306\311\"\210\331\311L\"\332NL\"A	\203\311B\202Q\333B\334\335L\311\211\336\337\311\211\211\211\337\311&\f\340H!\210\340H\211\341M\312MP!+!\210\340H\211\342M\312MP!+!\210\343A\344\"$\343A\345\"\206bR@$\204\361\327G!\3468\262\211D\3468\262\232\203\213C\3468\262\232\204\257\315N!O>\204\235\316\317\320ND\"\210N\211S\321\347IPI\210)\323\306\311\"\210@G\350\351\352$\311T\211U\203\360U@T\327T!\211\211A@\262\336V\204\342\353\3548\262J\"\203\347\355T!\210UA\211U\204\300*V\204B\204\323\306\333\"\210D\3568\262\211D\315	!W>\204\316\317\335	D\"\210	\357H\232\203$\311D$\2039B\2043D\2055F\202\317B\204CD\203\234@F\311\351\352$\311T\211U\203\201U@TFTP\353\327!\3568\262\311\"\203x\360E\361T!P\"\210UA\211U\204T*\315	!W>\204\222\316\317\335	D\"\210	\211X\357DI\210)\327E!\3568\262\211C\315	!W>\204\270\316\317\335	D\"\210	\362H\232\203\302\311CB\204\314C\205\316E\204\330\323\306\333\"\210@\311\351\352$\363 Y\364\216\365\366
\"*B\203\201
G\315	!W>\204\316\317\335	D\"\210	\211Z\367\f[\370\371[\206\372\373\374$)I\210)\315	!W>\204+\316\317\335	D\"\210	\211\\\321\f[\370\371[\206;\372\373\374$)I\210)\315	!W>\204R\316\317\335	D\"\210	\211]\346\336[\370\371[\206b\372\373\374$)I\210)\343A\375\"\211\247\203\f\336W\203I\336\202I\376H\211\342M\312MP!+\211E\377M\312MP!*FE\201iM\312MP!*E
\311^\211U\203HU@\211^@^A_`_;\203'\201j\201k_\"\203'\201l\201ma\201nab\"@)!_\311\333c\201o#)\266\203\203;\201l\201pa\201nab\"@)!_\311\333c\201o#)\266\203\204;\314E`P!\203;\314F`P!\203>\fT*UA\211U\204\273*\315	!W>\204Y\316\317\335	D\"\210	\211d\201q\201r\f\311\"I\210)\333e\201sL	f#\210)V\204\201\323\306\333\"\210\315	!W>\204\221\316\317\335	D\"\210	\367H\365\201t
\"\201u\311
\"\365\201v
\"\201w
\201x\"\211\311T\211U\203\364U@\211T:\203\314T\202\320T\362HT\334\201yT@TA\311\211\211&\201zN	#\210UA\211U\204\275*$\203\315	!W>\204\n\316\317\335	D\"\210	\211g\357DI\210)\2021\315	!W>\204'\316\317\335	D\"\210	\211h\362CI\210).\3330\207" [x group flist dir num files 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 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] mapcar #[(f) "\301\302\"\210\303\304\"\303\305\"B\207" [f string-match "\\`\\([^:]*\\)\\(\\(:.*\\)?\\)\\'" match-string 1 2] 4] 7 make-hash-table :size 300 :test equal nov-cache-size 16 "tick" ls pgname isnew cattr nattr cdir ndir tdir nndir absdir 36h-ago srv-dir gname subdir nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v #2=#:v srv-ls #3=#:v file --dolist-tail-- scan-msgs cl-struct-nnmaildir--grp-tags #4=#:v save-match-data-internal #5=#:v size #6=#:v #7=#:v prefix-suffix suffix prefix mark nnmaildir-flag-mark-mapping inhibit-changing-match-data #8=#:v inhibit-quit groups #9=#:v #10=#:v "read" string-prefix-p ":2," string read rassq string-match tick 9 make-vector puthash #[(file) "\302@	\"?\205\n\207" [file flist gethash] 3] delq nnmaildir--parse-filename sort nnmaildir--sort-files nnmaildir--art nnmaildir--grp-add-art] 19])
(defalias 'nnmaildir-request-scan #[(&optional scan-group server) "\306\211\307\306\211\211\211\211\211\211\211\211\211\211%&'()*+,-.\310/\306\"\210\3110!1>\204@\312\313\3140D\"\2100\315H'\3110!1>\204X\312\313\3140D\"\2100\316H&\3110!1>\204p\312\313\3140D\"\2100\317H%\3110!1>\204\210\312\313\3140D\"\2100\320H\3110!1>\204\237\312\313\3140D\"\2100\321Hr\322\323!q\210\324 2\325\2163;\203\363\3263\307
%&'&\203\352\3110!1>\204\330\312\313\3140D\"\2100\327H\203\344\330\331\306\2113$\210\202\344\3323
\"\210\202\344\333&!\3158\262(3?3(\3110!1>\204\312\313\3140D\"\2100\334H\232\203,3\203\300\335\336
\"\210\202\300'&\306\337\340$\fG\341U\203@\202D\342\343\"\211\3064\2115\203s5@4\32643
%&'&\203j4\nB5A\2115\204O*\306(\335\344
\"\210(\3066\2115\203\2335@6\3326
\"\2105A\2115\204\207*\3110!1>\204\256\312\313\3140D\"\2100\2117\334\333&!\3158\262I\210)3\203\344\3110!1>\204\327\312\313\3140D\"\2100\327H\203\344\330\331\306\211#\210.\307\207" [nnheader-file-coding-system deactivate-mark seen dirs target-prefix groups nil t nnmaildir--prepare type-of signal wrong-type-argument nnmaildir--srv 5 4 2 6 11 get-buffer-create " *nnmaildir work*" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] nnmaildir--scan 10 nnmail-get-new-mail nnmaildir remhash file-attributes 9 maphash #[(group-name _group) "\305\306	\n\f&\207" [group-name groups method srv-dir srv-ls nnmaildir--scan t] 7] "\\`[^.]" nosort 0 seq-remove #[(dir) "G	GY\205\302\303	G#	\230\207" [dir target-prefix substring 0] 4] #[(gname _group) "	\235?\205\f\nB\211\207" [gname seen x] 2] method srv-dir srv-ls x nnmaildir-active-file nnmaildir-group-alist nnmaildir-get-new-mail file-coding-system-alist buffer-file-coding-system coding-system-for-write server nnmaildir--cur-server cl-struct-nnmaildir--srv-tags save-match-data-internal scan-group grp-dir --dolist-tail-- grp #1=#:v] 16])
(defalias 'nnmaildir-request-list #[(&optional server) "\306\307\"\210\310\211\211\311\310\"\210r\fq\210\312 \210\313\314\315
!>\204)\316\317\320
D\"\210
\321H\"\210,\322\207" [server deactivate-mark ro pgname nntp-server-buffer nnmaildir--cur-server nnmaildir-request-scan find-new-groups nil nnmaildir--prepare erase-buffer maphash #[(gname group) "\306	\"\307\n\310\"\311\312\313\314\f!
>\204\315\316\317\fD\"\210\f\320H\321\322%\312\261\210\323\324\f\"\"\210\312c\210\323\314\f!
>\204B\315\316\317\fD\"\210\f\325H\"\210\312\203R\326\202S\327\330\261\207" [nnmaildir--cur-server gname pgname ro group cl-struct-nnmaildir--grp-tags nnmaildir--pgname nnmaildir--param read-only replace-regexp-in-string " " "\\ " type-of signal wrong-type-argument nnmaildir--grp 1 nil t princ nnmaildir--group-maxnum 4 "n" "y" "\n" nntp-server-buffer] 7] type-of signal wrong-type-argument nnmaildir--srv 6 t cl-struct-nnmaildir--srv-tags] 6])
(defalias 'nnmaildir-request-newgroups #[(_date &optional server) "\301!\207" [server nnmaildir-request-list] 2])
(defalias 'nnmaildir-retrieve-groups #[(groups &optional server) "\306\211\307\n\306\"\210rq\210\310 \210\f\306\211\203\201@\307\306
\"\211\204,\311c\210\202x\312c\210\313\314	!>\204@\315\316\317	D\"\210	\320H\"\210\321c\210\313\314	!>\204Z\315\316\317	D\"\210	\322H\"\210\321c\210\313\323	\"\"\210\321\324\321\325
\306\326%\327\261\210A\211\204-\301\207" [deactivate-mark group server nntp-server-buffer groups gname 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 replace-regexp-in-string "\\ " t "\n" --dolist-tail-- cl-struct-nnmaildir--grp-tags nnmaildir--cur-server] 8])
(defalias 'nnmaildir-request-update-info #[(gname info &optional server) "\306	\"\307!\f>\204\310\311\312D\"\210\313H	\211	@A\314A@P!,\211A\315@A\314A@P!+B\316B!\3178\262C\320\211DE\320\211 !\320\211FA\320\211GH\320\211IJ\320\211K\320\211LM\320\211NO\320\211PQ\3212\353\n\204\242\307!\f>\204\222\310\311\312D\"\210\211R\322\323	PI\210)\324\321\320\"\210\307\n!S>\204\262\310\311\325\nD\"\210\n\326H\327	\"D\307\n!S>\204\314\310\311\325\nD\"\210\n\330HE\307\n!S>\204\341\310\311\325\nD\"\210\n\317H\331U\203TAA\211U\320\240\210)T\320\332\211\203\333\334\"\210\334\233\211\240\266\324\321T\"\210\335\336T8B\211F\334T8BF\337D\340\" \337D\341\"!\307\n!S>\204=\310\311\325\nD\"\210\n\342HO\343\344O\"\211O\237O\345O\346\"O\326\347\n\"BCP\350PO\"P\307!\f>\204t\310\311\312D\"\210\313H\211A	\211	@A\314A@P!,\211A\211A\351@A\314A@P!+\211A\211A\352@A\314A@P!+A\353D\"K\354\355\343\356V\"\343\357KA\320\360\361$\"\"!G\362\363GG\"M\307\n!S>\204\350\310\311\325\nD\"\210\n\364HLG\320W\211X\203\245X@WA\365W!@A\314A@P!*J\320I\3662~W!>\203%\324\366\320\"\210W >\2036OI\324\366\320\"\210\316J!\3178\262YWW\367WV\"@)\204UY\202yY\204_C\202yC\204iY\202y\370YC\"\203wC\202yY)N\371WNM#\210N\372WL\"\232\203\246WF\236\211I\203\241IAI\324\366\320\"\210\320ZWW\367WV\"@)\211[\205\373\374[!P\\KB\320\\\361$\320]\211X\205X@]\375]\376\"@^\372^E\"\211_\203	\307_!`>\204\310\311\377_D\"\210_\334HZBZ*XA\211X\204\325\320+)\204j\201cJ!\203jKJ\320\360\361$\320^\211X\203iX@^\372^E\"\211_\203_\307_!`>\204V\310\311\377_D\"\210_\334HZBZ)XA\211X\2043*\201dI\201eZ\201f\"\"\211I)0\210W\335=\203\215I\202\234I\203\234WIBHBHXA\211X\204\370*TAA\211a\201gP\"\240\210)TH\332\211\203\306\333\334\"\210\334\233\211\240\266\307\n!S>\204\336\310\311\325\nD\"\210\n\211b\364MI\210)T0.\207" [server gname group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags srv-dir 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 subdir dir curdir curdir-mtime pgname flist old-marks all-marks marks ranges markdir ls old-mmth new-mmth mtime existing missing deactivate-mark #1=#:v cl-struct-nnmaildir--grp-tags info #2=#:c nnmaildir-flag-mark-mapping mark --dolist-tail-- markdir-mtime article-list flag regexp filename prefix article cl-struct-nnmaildir--art-tags #3=#:c #4=#:v file-directory-p gnus-add-to-range sort < gnus-range-add] 11])
(defalias 'nnmaildir-request-group #[(gname &optional server fast _info) "\306	\"\307\3102\251\204.\311\f!
>\204\312\313\314\fD\"\210\f\211\315\316	PI\210)\317\310\307\"\210\311\f!
>\204=\312\313\314\fD\"\210\f\211\320I\210)\203P\317\310\321\"\210r q\210\322 \210\323c\210\324\311!!>\204l\312\313\325D\"\210\326H \"\210\327c\210\324\311!!>\204\207\312\313\325D\"\210\330H \"\210\327c\210\324\331\f\" \"\210\327\332\327\333	\307\321%\334\261\210)\3210*\207" [server gname deactivate-mark group 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 7 t erase-buffer "211 " princ nnmaildir--grp 5 " " 4 nnmaildir--group-maxnum replace-regexp-in-string "\\ " "\n" #1=#:v #2=#:v fast nntp-server-buffer cl-struct-nnmaildir--grp-tags] 8])
(defalias 'nnmaildir-request-create-group #[(gname &optional server _args) "\306\307\"\210\3102Z\311	!\n>\204\312\313\314	D\"\210	\315H\307\211)G\316U\203E\311	!\n>\2047\312\313\314	D\"\210	\211*\317\320I\210)\321\310\307\"\210\322\316H)\316H=\203m\311	!\n>\204_\312\313\314	D\"\210	\211+\317\323I\210)\321\310\307\"\210\324 ,\325\216\326\327)\"*\203\234\311	!\n>\204\213\312\313\314	D\"\210	\211-\317\330)PI\210)\321\310\307\"\210\331)\311	!\n>\204\256\312\313\314	D\"\210	\332H\"\203\325\311	!\n>\204\304\312\313\314	D\"\210	\211.\317\333)PI\210)\321\310\307\"\210\311	!\n>\204\344\312\313\314	D\"\210	\334H\335
!\203\365\336
!\202\377\f\337!\211
P)/\340/P!*\341!\210\341\211\342/\340/P!+!\210\341\211\343/\340/P!+!\210\341\211\344/\340/P!+!\210
\345\230\204U\346
)P\f)P\"\210\347\350!+0\207" [server nnmaildir--cur-server cl-struct-nnmaildir--srv-tags dir srv-dir target-prefix nnmaildir--prepare nil return type-of signal wrong-type-argument nnmaildir--srv 11 0 8 "Invalid (empty) group name" throw "." "Group names may not start with \".\"" match-data #[nil "\301\302\"\207" [save-match-data-internal 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 gname #1=#:v #2=#:v save-match-data-internal #3=#:v #4=#:v subdir] 7])
(defalias 'nnmaildir-request-rename-group #[(gname new-name &optional server) "\306	\"\n\307\211\211\211\211./01\3102\3361\204A\3112!3>\2040\312\313\3142D\"\2102\2114\315\316	PI\210)\317\310\307\"\2105G\320U\203j\3112!3>\204[\312\313\3142D\"\2102\2116\315\321I\210)\317\310\307\"\210\322\320H5\320H=\203\226\3112!3>\204\207\312\313\3142D\"\2102\2117\315\323I\210)\317\310\307\"\210\324 8\325\216\326\3275\"*\203\311\3112!3>\204\267\312\313\3142D\"\2102\2119\315\3305PI\210)\317\310\307\"\210	5\230\203\325\317\310\331\"\210\3325\3112!3>\204\352\312\313\3142D\"\2102\333H\"\203\3112!3>\204\312\313\3142D\"\2102\211:\315\3345PI\210)\317\310\307\"\210\3112!3>\204(\312\313\3142D\"\2102\335H\3361>\337
	P
5P\"0\202f;\3112!3>\204R\312\313\3142D\"\2102\211<\315\340\341;!PI\210)\317\310\307\")\210\3112!3>\204y\312\313\3142D\"\2102\333H\342\f!=\343\344=\206\213\345\346\347$)\350\351\f\"\210\3521!1\3111!>>\204\255\312\313\3531D\"\2101\211?\3545I\210)\35551#\210\3112!3>\204\322\312\313\3142D\"\2102\211@\333I\210)\3310.\207" [server gname nnheader-file-coding-system groups x srv-dir nnmaildir--prepare nil return type-of signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw 0 "Invalid (empty) group name" "." "Group names may not start with \".\"" match-data #[nil "\301\302\"\207" [save-match-data-internal 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 #[(gname g) "	=?\205\f\304\n#\207" [g group gname groups puthash] 4] copy-sequence nnmaildir--grp 1 puthash file-coding-system-alist buffer-file-coding-system coding-system-for-write group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v new-name #2=#:v #3=#:v save-match-data-internal #4=#:v #5=#:v err #6=#:v size cl-struct-nnmaildir--grp-tags #7=#:v #8=#:v] 8])
(defalias 'nnmaildir-request-delete-group #[(gname force &optional server) "\306	\"\307\211\211\211\211\211123\3102\2653\204@\3114!5>\204/\312\313\3144D\"\2104\2116\315\316	PI\210)\317\310\307\"\210\3113!7>\204R\312\313\3203D\"\2103\321H\3224	\"2\3114!5>\204p\312\313\3144D\"\2104\323H1\3241	P!@1	\2118	9\325\f9P!,1:\204\277
;\204\277\3114!5>\204\256\312\313\3144D\"\2104\211;\315\326	PI\210)\317\310\307\"\2103\3114!5>\204\323\312\313\3144D\"\2104\327H=\203\367\3114!5>\204\355\312\313\3144D\"\2104\211<\327\307I\210)\330	\3114!5>\204\312\313\3144D\"\2104\331H\"\210:\204/\3321!\2111=\324=!\203+\333=!\210)\202\263\33442\"\3352\336\"\203\203\3371\211\3409\325\f9P!+!\2101\211\3419\325\f9P!+=\324=!\203m\333=!\210)\3371\211\3429\325\f9P!+!\210\202\274\3431\211\3409\325\f9P!+\"\210\3431\211\3419\325\f9P!+\"\210\3431\211\3429\325\f9P!+\"\2101\211\3449\325\f9P!+\211\211\3459\325\f9P!+\f\211\3469\325\f9P!+\f\211\3479\325\f9P!+\350\351\352$BB\3079\211>\203>@9\3439\"\210>A\211>\204*1\211\3449\325\f9P!+\211\353P=\324=!\203<\333=!\210)\f\354P=\324=!\203N\333=!\210)\337\f\211\3479\325\f9P!+!\210\337\f!\210
;\204q\3371!\210\202\263\3321!1
\355\356H\f\356H=\204\236\357\3114!5>\204\226\312\313\3144D\"\2104\323H!\fP\337\f!\2101=\324=!\203\262\333=!\210)\3600.\207" [server gname deactivate-mark ls dir target 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 file-truename t grp-dir pgname group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v cl-struct-nnmaildir--grp-tags srv-dir subdir force #2=#:v #3=#:v file --dolist-tail--] 8])
(defalias 'nnmaildir-retrieve-headers #[(articles &optional gname server fetch-old) "\306	\"\307\211\211\211\211\211\211\211\211 \310\3112K \204S\312!!\">\204:\313\314\315!D\"\210!\211#\316	\203J\317	P\202K\320I\210)\321\311\307\"\210r$q\210\322 \210\312 !%>\204m\313\314\323 D\"\210 \316H\312 !%>\204\205\313\314\323 D\"\210 \324H\312 !%>\204\235\313\314\323 D\"\210 \325H\203B&\203\274&\247\204\274\326\327#\210\202B'\203B'@;\203\366'\307(\211)\203\362)@(\330(\"\211\203\351!\210)A\211)\204\323*\202B&\203:'@\331'!@
\247\203
\202
@\247\203\202 A
&Z\211\325W\2031\325\2022
\211BC'\326'#\210\332\325ed#\210)\3040.\n\207" [server gname deactivate-mark insert-nov nov stop nnmaildir--prepare nil #[(article) "\306	\n#\211\205^\307	\n#\210\310\n!\f>\204\311\312\313\nD\"\210\n\314H\315
\"\210\316\317H\316\310\n!\f>\204=\311\312\313\nD\"\210\n\320H\316\321H\322\323\324\325\326\327%\330\261	\210\315
\"\210\316\331H\332\261\207" [nnmaildir--cur-server group article nov cl-struct-nnmaildir--art-tags num nnmaildir--update-nov nnmaildir--cache-nov type-of signal wrong-type-argument nnmaildir--art 3 princ "	" 0 4 1 "	Xref: nnmaildir " replace-regexp-in-string " " "\\ " nil t ":" 2 "\n" nntp-server-buffer gname] 14] 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 start num article mlist nlist group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v nntp-server-buffer cl-struct-nnmaildir--grp-tags fetch-old articles msgid --dolist-tail--] 11])
(defalias 'nnmaildir-request-article #[(num-msgid &optional gname server to-buffer) "\306	\"\307\310\211\211\211\211*+,\3112\270,\204H\312-!.>\204/\313\314\315-D\"\210-\211/\316	\203?\317	P\202@\320I\210)\321\311\310\"\2100\247\203X\322,0\"\202\327\312,!1>\204j\313\314\323,D\"\210,\316H*\3240*\"\211\203\223\312
!2>\204\213\313\314\325
D\"\210
\326H0\202\262\3272\261\330\331\312-!.>\204\253\313\314\315-D\"\210-\332H\"0\210
\204\327\312-!.>\204\310\313\314\315-D\"\210-\2113\316\333I\210)\321\311\310\"\210\312,!1>\204\351\313\314\323,D\"\210,\334H\335-	\"\312-!.>\204\313\314\315-D\"\210-\336H\211	\2114	5\337\f5P!,\340\341\"\2035\f\211\3425\337\f5P!+\202C\f\211\3435\337\f5P!+\211\312
!2>\204U\313\314\325
D\"\210
\334H\312
!2>\204h\313\314\325
D\"\210
\344HQ6\3456!\204\234\346,
\"\210\312-!.>\204\215\313\314\315-D\"\210-\2117\316\347I\210)\321\311\310\"\210r8\206\2449q\210\350 \210:;\3516!\210*	0B0.\207" [server gname deactivate-mark pgname dir article 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 #[(_gname group) "\306!	>\204\307\310\311D\"\210\312H\313\n\"\211\2053\306\f!
>\204+\307\310\314\fD\"\210\f\315H\316\317\320\"\207" [group cl-struct-nnmaildir--grp-tags list num-msgid article cl-struct-nnmaildir--art-tags type-of signal wrong-type-argument nnmaildir--grp 8 gethash nnmaildir--art 3 throw found nil] 5] 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 list case-fold-search group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v num-msgid cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags #2=#:v srv-dir subdir nnmaildir-article-file-name #3=#:v to-buffer nntp-server-buffer mm-text-coding-system coding-system-for-read] 8])
(defalias 'nnmaildir-request-post #[(&optional _server) "\302	 )\207" [message-required-mail-headers message-send-mail-function nil] 1])
(defalias 'nnmaildir-request-replace-article #[(number gname buffer) "\306\307\"	\307\211\211\211\211\211\211\211()*+,-\3102u-\204I\311.!/>\2048\312\313\314.D\"\210.\2110\315\316PI\210)\317\310\307\"\210\320\321.\"\322\"\203x\311.!/>\204f\312\313\314.D\"\210.\2111\315\323-PI\210)\317\310\307\"\210\311.!/>\204\212\312\313\314.D\"\210.\324H\211)\21123)\325)3P!,)\326-4\"\211\204\326\311.!/>\204\302\312\313\314.D\"\210.\2115\315\327\3304!PI\210)\317\310\307\"\210\311
!6>\204\346\312\313\331
D\"\210
\332H\311
!6>\204\372\312\313\331
D\"\210
\333H()\211)\3343)\325)3P!+(P\335!\203>\311.!/>\204-\312\313\314.D\"\210.\2117\315\336PI\210)\317\310\307\"\210r8q\210\337ed\307\340\307\341&\210)\342\343!\203X\343 \210\344)\211)\3453)\325)3P!+(\fQ\346#\210\3470.\n\207" [gname nnheader-file-coding-system deactivate-mark tmpfile suffix article 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 file dir file-coding-system-alist buffer-file-coding-system coding-system-for-write group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v #2=#:v srv-dir subdir number #3=#:v cl-struct-nnmaildir--art-tags #4=#:v buffer] 11])
(defalias 'nnmaildir-request-move-article #[(article gname server accept-form &optional _last _move-is-internal) "\306	\"\307\211\211\211\211'(\3102x(\204=\311)!*>\204,\312\313\314)D\"\210)\211+\315\316	PI\210)\317\310\307\"\210\311(!,>\204O\312\313\320(D\"\210(\321H\322)	\"'\323(-\"\211-\204\210\311)!*>\204y\312\313\314)D\"\210)\211.\315\324I\210)\317\310\307\"\210\311-!/>\204\232\312\313\325-D\"\210-\326H\311)!*>\204\261\312\313\314)D\"\210)\327H\211	\2110	12\33021P!,\331'\332\"\203\346\2112\33312\33021P!+\202\367\2112\33412\33021P!+\211\311-!/>\204\312\313\325-D\"\210-\321H
Q\335!\204@\336(-\"\210\311)!*>\2041\312\313\314)D\"\210)\2113\315\337I\210)\317\310\307\"\210r\340\341!q\210\342 \210\343!\210\3444!)\f\203v\331'\332\"\204v5\3455!\203n\3465!\210)\336(-\"\210\f0.\207" [server gname deactivate-mark nnmaildir--file result suffix 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" get-buffer-create " *nnmaildir move*" erase-buffer nnheader-insert-file-contents eval file-attributes delete-file pgname group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v cl-struct-nnmaildir--grp-tags article #2=#:v cl-struct-nnmaildir--art-tags srv-dir subdir dir #3=#:v accept-form file] 7])
(defalias 'nnmaildir-request-accept-article #[(gname &optional server _last) "\306	\"\n\307\211\211\211\211\211\211\211\211\211:;<=>?@AB\31024B\204P\311C!D>\204?\312\313\314CD\"\210C\211E\315\316	PI\210)\317\310\307\"\210\311B!F>\204b\312\313\320BD\"\210B\321H\322\323C	\"\324\"\203\225\311C!D>\204\204\312\313\314CD\"\210C\211G\315\325	PI\210)\317\310\307\"\210\311C!D>\204\247\312\313\314CD\"\210C\326H\211>	\211>	H=\327=HP!,=\330 ;\331\332;\"<I<\230\204\334<I\333J<\331\334;\"P\211<KP\211<\335\336J!Q\211<\337\340 Q<=\211=\341H=\327=HP!+<P:=\211=\342H=\327=HP!+<\343Q\344:!\203U\311C!D>\204C\312\313\314CD\"\210C\211L\315\345:PI\210)\317\310\307\"\210\344
!\203~\311C!D>\204m\312\313\314CD\"\210C\211M\315\345
PI\210)\317\310\307\"\210JTJ\346\347\307\350#\3511\227\352N:\"0\202\254\210\353ed:\307\354\307\355&\210\356\357!\203\255\357 \210\360\f!\210\3611\276\352:
\"0\202\367O\311C!D>\204\322\312\313\314CD\"\210C\211P\315\362\363O!PI\210):<\364<!\203\361\365<!\210)\317\310\307\")\210:<\364<!\203\365<!\210)\366\367<\343\307\211\211&\370CB#\2053	\311!Q>\204/\312\313\367D\"\210\371HB0.\f\207" [server gname nnheader-file-coding-system article 24h curfile 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 #[nil "\305	!\203\f\306	!\210)\307\n!>\204\310\311\312\nD\"\210\n\211\313\314I\210)\315\316\317\"\207" [tmpfile file nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v file-attributes delete-file type-of signal wrong-type-argument nnmaildir--srv 8 "24-hour timer expired" throw return nil] 5] (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 tmpfile time file dir srv-dir file-coding-system-alist buffer-file-coding-system coding-system-for-write group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #2=#:v cl-struct-nnmaildir--grp-tags #3=#:v subdir nnmaildir--delivery-time nnmaildir--delivery-count nnmaildir--delivery-pid #4=#:v #5=#:v nnmaildir--file err #6=#:v cl-struct-nnmaildir--art-tags] 13])
(defalias 'nnmaildir-save-mail #[(group-art) "\3062\357\204
\307\306\310\"\210\310\211\211\211\211\211!\212eb\210\311 \"\312\216\313\314!\2034\315\316!\210\317y\210\202$+\320#!$>\204G\321\322\323#D\"\210#\324H@!A!@\325
\"\204i\326
!\204i\307\306\310\"\210\327
!\204t\307\306\310\"\210\320#!$>\204\206\321\322\323#D\"\210#\330H\211
\211%
&'\331'&P!,\332\310
\"\320\f!(>\204\264\321\322\333\fD\"\210\f\324H\211@A\n\320\f!)>\204\315\321\322\334\fD\"\210\f\317H\320\f!)>\204\340\321\322\334\fD\"\210\f\335HQ\336\310\337\340\"\".0\207" [group-art deactivate-mark nnmaildir--file groups x gname return throw nil match-data #[nil "\301\302\"\207" [save-match-data-internal 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 #[(ga) "@\303	\n\"\204\304	!\205\305	!\205\207" [ga gname groups gethash nnmaildir-request-create-group nnmaildir-request-accept-article] 3] ga save-match-data-internal nnmaildir--cur-server cl-struct-nnmaildir--srv-tags srv-dir subdir dir cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags] 7])
(defalias 'nnmaildir-active-number #[(_gname) "\300\207" [0] 1])
(defalias 'nnmaildir-request-expire-articles #[(ranges &optional gname server force) "?\306	\n\"\307\211\211\211\211\211\211\211\211\211\211\211'()*+,-./01\3102Q0\204b\3112!3>\204F\312\313\3142D\"\2102\2114\315\n\203V\316\nP\202W\317I\210)\320\310\3215!\"\210\3110!6>\204t\312\313\3220D\"\2100\323H\3242\n\"/\325/\326\"\203\220\320\310\3215!\"\210\325/\327\"\211.\204\3057\203\2477\n!\206\2518\211.\330=\203\267\331.\202\305.\247\203\305\332.\333_!.1\203\336.\250\204\330\320\310\3215!\"\210\334.!-\3112!3>\204\360\312\313\3142D\"\2102\335H\211)\n\2119\n:)\336):P!,\211)\211)\337:)\336):P!+)\3110!6>\2040\312\313\3220D\"\2100\340H(\3415!5r\342\343!q\210\344(5\345#\210\346 \210)'0.\207" [force server gname deactivate-mark nnmaildir-article-file-name nnmaildir--file 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 get-buffer-create " *nnmaildir move*" nnmaildir--nlist-iterate #[(article) "\306!	>\204\307\310\311D\"\210\312H\n\306!	>\204$\307\310\311D\"\210\313HQ\314\n!\211\2046\315
\"\207\203a\316\f\3178\262\"\203a\306!	>\204W\307\310\311D\"\210\320HB\211\207\n?\205r\212\214\321\322\"*\211 ;\203\237 \230\204\237\323 \210\324\n!\210\325 \326\211\327$\211!:\203\236\330 !A\"\210) \232\203\300\306!	>\204\266\307\310\311D\"\210\320HB\211\207\n\"\314\"!\203\317\331\"!\210)\315
\"\207" [article cl-struct-nnmaildir--art-tags nnmaildir--file dir time group 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 no-force boundary didnt nnmaildir-article-file-name force pgname target group-art file] 7] erase-buffer didnt nlist dir target low high boundary time pgname group no-force nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v ranges cl-struct-nnmaildir--grp-tags nnmail-expiry-wait-function nnmail-expiry-wait srv-dir subdir] 15])
(defalias 'nnmaildir-request-set-mark #[(gname actions &optional server) "\306	\"\307!\f>\204\310\311\312D\"\210\313H	\211	*+\314+*P!,\211+\315*+\314+*P!+,-.\316\211/0\316\21112\316\21134\316\21156\316\21178\316\2119:\316;\317<\320=\321>\322?\3232\346\n\204\274\307!\f>\204\210\310\311\312D\"\210\211@\324\325	PI\210)A\316B\211C\203\265C@B\3263B@\"3CA\211C\204\236*\327\3233\"\210\307\n!D>\204\314\310\311\330\nD\"\210\n\331H2\307!\f>\204\340\310\311\312D\"\210\313H\2111	\211	*+\314+*P!,\2111\211+\332*+\314+*P!+\2111\211+\333*+\314+*P!+1\307\n!D>\204/\310\311\330\nD\"\210\n\334H\335	\"8\3368\"\21191\316\337\340$4\341\342\343\344E\"\343\3454\"\"!4A\316B\211C\203\343C@\211B@3BAA@\2115\316F\211C\203\237C@\211F4\235\203\2174\202\224F4B4CA\211C\204~*3A\247\203\2543C3\34623BA@\347=\203\277=\202\330BA@\350=\203\315>\202\330BA@\351=\205\330?#\210CA\211C\204d*\3160.\207" [server gname group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags srv-dir nnmaildir--prepare type-of signal wrong-type-argument nnmaildir--srv 4 file-name-as-directory "cur" nil #[(mark) "\306!	>\204\307\310\311D\"\210\312H\306!	>\204!\307\310\311D\"\210\313H\n\314\n\"@)\f\203>\315\316\f
\"#\210\317\n!\320P!*\211P\211\321!\205e\322!,\207" [nnmaildir--article cl-struct-nnmaildir--art-tags mark nnmaildir-flag-mark-mapping flag suffix 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 prefix curdir marksdir subdir dir mfile file] 6] #[(article) "\304\n\")\207" [article nnmaildir--article del-mark todo-marks mapcar] 3] #[(article) "\301\302\"\207" [todo-marks mapcar #[(mark) "\306!	>\204\307\310\311D\"\210\312H\306!	>\204!\307\310\311D\"\210\313H\n\314\n\"@)\f\203@\315\316\f
\"#\202\301\317\n! !\320! P!*\211\"\321P#\"P$\3221q\323%\324#$\")0\202\301&\325&!\206\300\326&!\203\224\327\"!\210\330#!\210\324#$\"\202\300\331&!\203\270#\332P'\330'!\210\333'#\334#\210\324#$\")\202\300\307&@&A\")+\207" [article cl-struct-nnmaildir--art-tags mark nnmaildir-flag-mark-mapping flag suffix 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 prefix curdir marksdir subdir dir mdir permarkfile mfile system-messages-locale err permarkfilenew] 6]] 3] #[(article) "	!\210	\304\305\")\207" [add-action article nnmaildir--article all-marks mapcar #[(mark) "	>?\205\n\n!\207" [mark todo-marks del-mark] 2]] 3] 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 subdir dir curdir nnheader-file-coding-system coding-system-for-write buffer-file-coding-system file-coding-system-alist marksdir nlist ranges all-marks todo-marks mdir mfile pgname ls permarkfile deactivate-mark del-mark del-action add-action set-action #1=#:v actions action --dolist-tail-- cl-struct-nnmaildir--grp-tags nnmaildir-flag-mark-mapping mark] 7])
(defalias 'nnmaildir-close-group #[(gname &optional server) "\306	\"\307\211\211\211\211\211\211'()\211*\204=\310+!,>\204-\311\312\313+D\"\210+\211-\314\315	PI\210)\307\202x\316+	\")\317+)\"(\310+!,>\204^\311\312\313+D\"\210+\320H\211'	\211.	/'\321'/P!,'\322)\323\"\203\226'\211'\324/'\321'/P!+\202\250'\211'\325/'\321'/P!+'\211'\326/'\321'/P!+\211'\211'\327/'\321'/P!+('\211'\330/'\321'/P!+\331\332\333$B\334\335\n\"(
\307\332\333$\336 0\337\216\f\3071\2112\203!2@1\340\3411\"\210\342\3431\"B2A\2112\204,\n\307'\2112\203v2@\211'A\321'@!'\f\3071\2112\203l2@\2111\235\204c1\344\230\204c'1P1\3451!\2102A\2112\204E*2A\2112\204,*\346.\207" [server gname dirs flist files msgdir nnmaildir--prepare nil 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 #[(dir) "	\302\303\304$B\207" [dir ls nil "\\`[^.]" nosort] 6] match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\\`\\([^:]*\\)\\(:.*\\)?\\'" match-string 1 ":" delete-file t dir ls pgname group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v srv-dir subdir save-match-data-internal file --dolist-tail--] 9])
#@46 Close SERVER, or the current maildir server.
(defalias 'nnmaildir-close-server #[(&optional server _defs) "\306\307\"\203T	\307\310!\n>\204\311\312\313D\"\210\314H\315\f\316#\317\"\204G
\203;
\241\210\202PB\211\fB\202P
\203P\320
\f\"\210+\321\207" [server nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:k nnmaildir--servers #2=#:p nnmaildir--prepare nil type-of signal wrong-type-argument nnmaildir--srv 1 assoc equal eql delq t #3=#:v] 4 (#$ . 92191)])
(defalias 'nnmaildir-request-close #[nil "\303\304\"\305\306\307\n\"\210\310\311!\211\203\312	!\210\310\313!\211\203$\312	!\210\310\314!\211\2030\312	!\210*\315\207" [nnmaildir--servers buffer servers mapcar car nil mapc nnmaildir-close-server get-buffer " *nnmaildir work*" kill-buffer " *nnmaildir nov*" " *nnmaildir move*" t] 4])
(provide 'nnmaildir)
Zerion Mini Shell 1.0