Gecko [ fernandoquevedodop.com ]

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

Code Editor : nnmaildir.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

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

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

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

(byte-code "\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>\203m�AA\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>\203m�AA\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\332�A\202A
@@U\204\374�A\202\347�A
=\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\205�A)\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=\205�AA@\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\256�P\211P\324VP\321PVP!+\202\300�P\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\201a�L\201b�QD\370D!\210\201c�CBAHY%E\307W!X>\204]\310\311\326WD\"\210W\350H\211\204\211\201d�P!\307W!X>\204\310\311\326WD\"\210W\211_\350I\210)\343 \210\201e�\201c�QDE$p\"\210F\201f�P\211JJ\330J!\203\266\201g�J!\210)\201h�edJ\315\201i�\315\201j�&\210)\201k�JF\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\202h�0\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\203f�34\241\210\202p�4B\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\330�D\203\330�C\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\204�B\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\201i�M\312MP!*E
\311^\211U\203HU@\211^@^A_`_;\203'\201j�\201k�_\"\203'\201l�\201m�a\201n�ab\"@)!_\311\333c\201o�#)\266\203\203;\201l�\201p�a\201n�ab\"@)!_\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\201s�L	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\201y�T@TA\311\211\211&\201z�N	#\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\201c�J!\203jKJ\320\360\361$\320^\211X\203iX@^\372^E\"\211_\203_\307_!`>\204V\310\311\377_D\"\210_\334HZBZ)XA\211X\2043*\201d�I\201e�Z\201f�\"\"\211I)0\210W\335=\203\215I\202\234I\203\234WIBHBHXA\211X\204\370*TAA\211a\201g�P\"\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\264,\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 nnheader-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] 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\305�7\203\247�7\n!\206\251�8\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\265�C@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\202P�B\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 (#$ . 92148)])
(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)

${this.title}

Code Editor : nnmaildir.elc