1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / gnus /
Filename : nnmaildir.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:21 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

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

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

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


(byte-code "\300\301!\204
�\302\301\303\304B\"\210\305\306!\210\305\307!\210\305\310!\210\305\311!\210\305\312!\210\305\313!\210\305\314!\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require nnheader gnus gnus-util gnus-range gnus-start gnus-int message] 4)
(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) (82 . reply) (83 . read)) (#$ . 885))
#@137 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 (#$ . 1188)])
(put 'nnmaildir--mark-to-flag 'byte-optimizer 'byte-compile-inline-expand)
#@134 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 (#$ . 1523)])
(put 'nnmaildir--flag-to-mark 'byte-optimizer 'byte-compile-inline-expand)
#@49 Ensure that FILENAME contains the suffix ":2,".
(defalias 'nnmaildir--ensure-suffix #[(filename) "\305\306\307\310\n	#,\203�\207\305P\207" [filename start string regexp inhibit-changing-match-data ":2," nil t string-match] 4 (#$ . 1846)])
#@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\n	#,\204�\312\313\"\210\314\307O\315
\307\"\316\317B\320\"!\260\321P+\207" [suffix start string regexp inhibit-changing-match-data flags "^:2," nil t string-match error "Invalid suffix `%s'" 3 append gnus-delete-duplicates sort < ":2," flags-as-list flag new-flags] 4 (#$ . 2100)])
#@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\n	#,\204�\312\313\"\210\314\307O\315
\307\"\316\"\260\317P+\207" [suffix start string regexp inhibit-changing-match-data flags "^:2," nil t string-match error "Invalid suffix `%s'" 3 append delq ":2," flags-as-list flag new-flags] 4 (#$ . 2549)])
#@107 *The filename of the most recently requested article.  This variable is set
by nnmaildir-request-article.
(defvar nnmaildir-article-file-name nil (#$ . -2971))
(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)
(defvar nnmaildir--servers (make-vector 3 0))
(defvar nnmaildir--cur-server nil)
(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]))
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--art-prefix compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-prefix (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags)) (error "%s accessing a non-%s" 'nnmaildir--art-prefix 'nnmaildir--art)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--art-prefix #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--art-tags 0 error "%s accessing a non-%s" nnmaildir--art-prefix nnmaildir--art 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--art-suffix compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-suffix (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags)) (error "%s accessing a non-%s" 'nnmaildir--art-suffix 'nnmaildir--art)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--art-suffix #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--art-tags 0 error "%s accessing a non-%s" nnmaildir--art-suffix nnmaildir--art 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--art-num compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-num (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags)) (error "%s accessing a non-%s" 'nnmaildir--art-num 'nnmaildir--art)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--art-num #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--art-tags 0 error "%s accessing a non-%s" nnmaildir--art-num nnmaildir--art 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--art-msgid compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-msgid (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags)) (error "%s accessing a non-%s" 'nnmaildir--art-msgid 'nnmaildir--art)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--art-msgid #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--art-tags 0 error "%s accessing a non-%s" nnmaildir--art-msgid nnmaildir--art 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--art-nov compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-nov (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags)) (error "%s accessing a non-%s" 'nnmaildir--art-nov 'nnmaildir--art)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--art-nov #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--art-tags 0 error "%s accessing a non-%s" nnmaildir--art-nov nnmaildir--art 5] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--art-p compiler-macro #[(_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 (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--art-p #[(cl-x) "\302!\205�G\303Y\205�\304H	>\205�\305\207" [cl-x cl-struct-nnmaildir--art-tags vectorp 6 0 t] 2])
(defalias 'copy-nnmaildir--art #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-nnmaildir--art compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\203Q�@\313>\2038�AA\211\202#�\314>A@\203G�\315\211\202#�\316\317@\"\210\202!�)\320\321\322\315\315	\n\f
&\n-\207" [#1# prefix suffix num msgid nov :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 (vector 'cl-struct-nnmaildir--art prefix suffix num msgid nov)) #:--cl-keys-- cl-whole] 12 "\n\n(fn CL-WHOLE &cl-quote &key PREFIX SUFFIX NUM MSGID NOV)"] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@41 

(fn &key PREFIX SUFFIX NUM MSGID NOV)
(defalias 'make-nnmaildir--art #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\203Q�@\313>\2038�AA\211\202#�\314>A@\203G�\315\211\202#�\316\317@\"\210\202!�)\320\321	\n\f
&-\207" [#1# prefix suffix num msgid nov :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)" vector cl-struct-nnmaildir--art #2=#:--cl-keys--] 8 (#$ . 9700)])
(byte-code "\302C\303\304\305\306#\210\303\304\307\310#\210\303\304\311\312#\210\303\304\313\314#\210\303\315\316\314#\210\303\317\316\314#\210\303\320\316\321#\210\303\322\316\314#\210\303\323\316\314#\210\303\324\316\314#\210\303\325\316\314#\210\303\326\316\314#\210\303\327\330\331#\210\332\303\327\333\334\335	!!#\210)\312\207" [cl-struct-nnmaildir--art-tags file cl-struct-nnmaildir--art put nnmaildir--art cl-struct-slots ((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-type (vector nil) cl-struct-include nil cl-struct-print t make-nnmaildir--art side-effect-free copy-nnmaildir--art nnmaildir--art-p error-free nnmaildir--art-nov nnmaildir--art-msgid nnmaildir--art-num nnmaildir--art-suffix nnmaildir--art-prefix nnmaildir--grp-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-name (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (error "%s accessing a non-%s" 'nnmaildir--grp-name 'nnmaildir--grp)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-name #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--grp-name nnmaildir--grp 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--grp-new compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-new (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (error "%s accessing a non-%s" 'nnmaildir--grp-new 'nnmaildir--grp)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-new #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--grp-new nnmaildir--grp 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--grp-cur compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-cur (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (error "%s accessing a non-%s" 'nnmaildir--grp-cur 'nnmaildir--grp)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-cur #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--grp-cur nnmaildir--grp 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--grp-min compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-min (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (error "%s accessing a non-%s" 'nnmaildir--grp-min 'nnmaildir--grp)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-min #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--grp-min nnmaildir--grp 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--grp-count compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-count (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (error "%s accessing a non-%s" 'nnmaildir--grp-count 'nnmaildir--grp)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-count #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--grp-count nnmaildir--grp 5] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--grp-nlist compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-nlist (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (error "%s accessing a non-%s" 'nnmaildir--grp-nlist 'nnmaildir--grp)) (aref cl-x 6)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-nlist #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--grp-nlist nnmaildir--grp 6] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--grp-flist compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-flist (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (error "%s accessing a non-%s" 'nnmaildir--grp-flist 'nnmaildir--grp)) (aref cl-x 7)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-flist #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--grp-flist nnmaildir--grp 7] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--grp-mlist compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-mlist (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (error "%s accessing a non-%s" 'nnmaildir--grp-mlist 'nnmaildir--grp)) (aref cl-x 8)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-mlist #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--grp-mlist nnmaildir--grp 8] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--grp-cache compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-cache (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (error "%s accessing a non-%s" 'nnmaildir--grp-cache 'nnmaildir--grp)) (aref cl-x 9)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-cache #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--grp-cache nnmaildir--grp 9] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--grp-index compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-index (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (error "%s accessing a non-%s" 'nnmaildir--grp-index 'nnmaildir--grp)) (aref cl-x 10)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-index #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--grp-index nnmaildir--grp 10] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--grp-mmth compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-mmth (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (error "%s accessing a non-%s" 'nnmaildir--grp-mmth 'nnmaildir--grp)) (aref cl-x 11)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-mmth #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--grp-mmth nnmaildir--grp 11] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--grp-p compiler-macro #[(_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 (vectorp cl-x) (>= (length cl-x) 12) (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--grp-p #[(cl-x) "\302!\205�G\303Y\205�\304H	>\205�\305\207" [cl-x cl-struct-nnmaildir--grp-tags vectorp 12 0 t] 2])
(defalias 'copy-nnmaildir--grp #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-nnmaildir--grp compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>\206�\312A@\313>\206#�\314A@\315>A@\316>A@\317>A@\320>A@\321>A@\322>A@ !!\203\203�!@\323>\203j�!AA\211!\202U�\324>A@\203y�\325\211!\202U�\326\327!@\"\210\202S�)\330\331\332\325\"\325	\n\f
 &.\207" [#1# name new cur min count :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 (vector 'cl-struct-nnmaildir--grp name new cur min count nlist flist mlist cache index mmth)) nlist flist mlist cache index mmth #:--cl-keys-- cl-whole] 18 "\n\n(fn CL-WHOLE &cl-quote &key NAME NEW CUR MIN COUNT NLIST FLIST MLIST CACHE INDEX MMTH)"] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@71 

(fn &key NAME NEW CUR MIN COUNT NLIST FLIST MLIST CACHE INDEX MMTH)
(defalias 'make-nnmaildir--grp #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>\206�\312A@\313>\206#�\314A@\315>A@\316>A@\317>A@\320>A@\321>A@\322>A@  \203\203� @\323>\203j� AA\211 \202U�\324>A@\203y�\325\211 \202U�\326\327 @\"\210\202S�)\330\331	\n\f
&\f.\207" [#1# name new cur min count :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)" vector cl-struct-nnmaildir--grp nlist flist mlist cache index mmth #2=#:--cl-keys--] 14 (#$ . 20708)])
(byte-code "\302C\303\304\305\306#\210\303\304\307\310#\210\303\304\311\312#\210\303\304\313\314#\210\303\315\316\314#\210\303\317\316\314#\210\303\320\316\321#\210\303\322\316\314#\210\303\323\316\314#\210\303\324\316\314#\210\303\325\316\314#\210\303\326\316\314#\210\303\327\316\314#\210\303\330\316\314#\210\303\331\316\314#\210\303\332\316\314#\210\303\333\316\314#\210\303\334\316\314#\210\303\335\336\337#\210\340\303\335\341\342\343	!!#\210)\312\207" [cl-struct-nnmaildir--grp-tags file cl-struct-nnmaildir--grp put nnmaildir--grp cl-struct-slots ((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 vector) (mlist nil :type vector) (cache nil :type vector) (index nil :type natnum) (mmth nil :type vector)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-nnmaildir--grp side-effect-free copy-nnmaildir--grp nnmaildir--grp-p error-free nnmaildir--grp-mmth nnmaildir--grp-index nnmaildir--grp-cache nnmaildir--grp-mlist nnmaildir--grp-flist nnmaildir--grp-nlist nnmaildir--grp-count nnmaildir--grp-min nnmaildir--grp-cur nnmaildir--grp-new nnmaildir--grp-name nnmaildir--srv-address compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-address (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (error "%s accessing a non-%s" 'nnmaildir--srv-address 'nnmaildir--srv)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-address #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-address nnmaildir--srv 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--srv-method compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-method (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (error "%s accessing a non-%s" 'nnmaildir--srv-method 'nnmaildir--srv)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-method #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-method nnmaildir--srv 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--srv-prefix compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-prefix (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (error "%s accessing a non-%s" 'nnmaildir--srv-prefix 'nnmaildir--srv)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-prefix #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-prefix nnmaildir--srv 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--srv-dir compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-dir (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (error "%s accessing a non-%s" 'nnmaildir--srv-dir 'nnmaildir--srv)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-dir #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-dir nnmaildir--srv 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--srv-ls compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-ls (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (error "%s accessing a non-%s" 'nnmaildir--srv-ls 'nnmaildir--srv)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-ls #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-ls nnmaildir--srv 5] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--srv-groups compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-groups (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (error "%s accessing a non-%s" 'nnmaildir--srv-groups 'nnmaildir--srv)) (aref cl-x 6)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-groups #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-groups nnmaildir--srv 6] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--srv-curgrp compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-curgrp (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (error "%s accessing a non-%s" 'nnmaildir--srv-curgrp 'nnmaildir--srv)) (aref cl-x 7)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-curgrp #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-curgrp nnmaildir--srv 7] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--srv-error compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-error (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (error "%s accessing a non-%s" 'nnmaildir--srv-error 'nnmaildir--srv)) (aref cl-x 8)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-error #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--srv-mtime compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-mtime (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (error "%s accessing a non-%s" 'nnmaildir--srv-mtime 'nnmaildir--srv)) (aref cl-x 9)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-mtime #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-mtime nnmaildir--srv 9] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--srv-gnm compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-gnm (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (error "%s accessing a non-%s" 'nnmaildir--srv-gnm 'nnmaildir--srv)) (aref cl-x 10)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-gnm #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-gnm nnmaildir--srv 10] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--srv-target-prefix compiler-macro #[(_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 (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (error "%s accessing a non-%s" 'nnmaildir--srv-target-prefix 'nnmaildir--srv)) (aref cl-x 11)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-target-prefix #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-target-prefix nnmaildir--srv 11] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put nnmaildir--srv-p compiler-macro #[(_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 (vectorp cl-x) (>= (length cl-x) 12) (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'nnmaildir--srv-p #[(cl-x) "\302!\205�G\303Y\205�\304H	>\205�\305\207" [cl-x cl-struct-nnmaildir--srv-tags vectorp 12 0 t] 2])
(defalias 'copy-nnmaildir--srv #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-nnmaildir--srv compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\315>A@\316>A@\317>A@\320>A@\203{�@\321>\203b�AA\211\202M�\322>A@\203q�\323\211\202M�\324\325@\"\210\202K�)\326\327\330\323\323	\n\f
&.\207" [#1# address method prefix dir ls :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 (vector 'cl-struct-nnmaildir--srv address method prefix dir ls groups curgrp error mtime gnm target-prefix)) groups curgrp mtime gnm target-prefix #:--cl-keys-- cl-whole] 18 "\n\n(fn CL-WHOLE &cl-quote &key ADDRESS METHOD PREFIX DIR LS GROUPS CURGRP ERROR MTIME GNM TARGET-PREFIX)"] "/builddir/build/BUILD/emacs-24.3/lisp/gnus/nnmaildir.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@86 

(fn &key ADDRESS METHOD PREFIX DIR LS GROUPS CURGRP ERROR MTIME GNM TARGET-PREFIX)
(defalias 'make-nnmaildir--srv #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\315>A@\316>A@\317>A@\320>A@\203{�@\321>\203b�AA\211\202M�\322>A@\203q�\323\211\202M�\324\325@\"\210\202K�)\326\327	\n\f
&\f.\207" [#1# address method prefix dir ls :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)" vector cl-struct-nnmaildir--srv groups curgrp mtime gnm target-prefix #2=#:--cl-keys--] 14 (#$ . 32513)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\210\302\325\315\313#\210\302\326\315\313#\210\302\327\315\313#\210\302\330\315\313#\210\302\331\315\313#\210\302\332\315\313#\210\302\333\315\313#\207" [cl-struct-nnmaildir--srv-tags cl-struct-nnmaildir--srv put nnmaildir--srv cl-struct-slots ((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 vector) (curgrp nil :type nnmaildir--grp) (error nil :type string) (mtime nil :type list) (gnm nil) (target-prefix nil :type string)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-nnmaildir--srv side-effect-free copy-nnmaildir--srv nnmaildir--srv-p error-free nnmaildir--srv-target-prefix nnmaildir--srv-gnm nnmaildir--srv-mtime nnmaildir--srv-error nnmaildir--srv-curgrp nnmaildir--srv-groups nnmaildir--srv-ls nnmaildir--srv-dir nnmaildir--srv-prefix nnmaildir--srv-method nnmaildir--srv-address] 4)
(defalias 'nnmaildir--article-set-flags #[(article new-suffix curdir) "\306H	>\204�\307\310\311\312#\210\313H\306H	>\204 �\307\310\314\312#\210\315H\f\nQ\f\nQ\316
!\204;�\307\317
\"\210\320
\321#\210\306H	>\204P�\307\310\314\312#\210\211\315I-\207" [article cl-struct-nnmaildir--art-tags prefix suffix curdir article-file 0 error "%s accessing a non-%s" nnmaildir--art-prefix nnmaildir--art 1 nnmaildir--art-suffix 2 file-exists-p "Couldn't find article file %s" rename-file replace new-suffix new-name #1=#:v] 5])
(defalias 'nnmaildir--expired-article #[(group article) "\306H	>\204�\307\310\311\312#\210\211\313\314I\210)\306H\f>\204$�\307\310\315\316#\210\317H\306H\f>\2045�\307\310\320\316#\210\321H\306H\f>\204F�\307\310\322\316#\210\323H\306H\f>\204W�\307\310\324\316#\210\313HS\306H	>\204i�\307\310\325\312#\210\326H\306H	>\204z�\307\310\327\312#\210\323H\314\330\314\211 !\"#$%&'(\331%!\204\306H\f>\204\251�\307\310\332\316#\210\333H \306H	>\204\274�\307\310\334\312#\210\335H\211 \211)@@)=\203\325� A\"\202 \" ! A 
 \211)@@)U\204\373� ! A \202\342� A 
&=\203!\211)@@)&\336*\306H\f>\204\"\307\310\322\316#\210\211+\323&I\210)\306H\f>\204:\307\310\324\316#\210\211,\313%I\210)\306H\f>\204R\307\310\332\316#\210\211-\333\"I\210)! \241\210\337$(\"\210\337#'\".\207" [article cl-struct-nnmaildir--art-tags #1=#:v group cl-struct-nnmaildir--grp-tags num 0 error "%s accessing a non-%s" nnmaildir--art-nov nnmaildir--art 5 nil nnmaildir--grp-flist nnmaildir--grp 7 nnmaildir--grp-mlist 8 nnmaildir--grp-min 4 nnmaildir--grp-count nnmaildir--art-prefix 1 nnmaildir--art-msgid (nil) zerop nnmaildir--grp-nlist 6 nnmaildir--art-num 3 t unintern nlist-post nlist-pre new-nlist msgid prefix count min mlist flist x inhibit-quit #2=#:v #3=#:v #4=#:v] 11])
(defalias 'nnmaildir--nlist-art #[(group num) "	\304H\n>\204�\305\306\307\310#\210	\311H\236\211\205�A)\207" [num group cl-struct-nnmaildir--grp-tags entry 0 error "%s accessing a non-%s" nnmaildir--grp-nlist nnmaildir--grp 6] 6])
(defalias 'nnmaildir--flist-art '(macro . #[(list file) "\302\303	ED\207" [file list symbol-value intern-soft] 4]))
(defalias 'nnmaildir--mlist-art '(macro . #[(list msgid) "\302\303	ED\207" [msgid list symbol-value intern-soft] 4]))
(defalias 'nnmaildir--pgname #[(server gname) "\305H	>\204�\306\307\310\311#\210\312H\211\203�\nP\202J�\313\305H	>\204,�\306\307\314\311#\210\315H\"\305H	>\204?�\306\307\310\311#\210\211\312\316!I\210))\207" [server cl-struct-nnmaildir--srv-tags prefix gname #1=#:v 0 error "%s accessing a non-%s" nnmaildir--srv-prefix nnmaildir--srv 3 gnus-group-prefixed-name nnmaildir--srv-method 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) "\300\301\215\207" [return (byte-code "\306\307H	>\204�\310\311\312\313#\210\314H!\203�\315\316\307\"\210\n\307H>\204)�\310\311\317\320#\210\n\321H\307H	>\204:�\310\311\322\313#\210\323H\211\f\324P!,\323\325\211\211\211 !\"#\211\211\326\324P!+\211\211\327\324P!+\330\331#!P!\211\"\204\232�\315\316#S\"\210\332\"8!\"A@ # \\ \323W\204\274� W\203\301�\333\310\334\"\210\330\331!P!\211\"\204\327�\315\316S\"\210!\332\"8\232\204\204�#\202\204�" [group cl-struct-nnmaildir--grp-tags server cl-struct-nnmaildir--srv-tags gname srv-dir zerop 0 error "%s accessing a non-%s" nnmaildir--grp-count nnmaildir--grp 5 throw return nnmaildir--srv-dir nnmaildir--srv 4 nnmaildir--grp-name 1 file-name-as-directory nil ".nnmaildir" "num" file-attributes number-to-string 10 signal ("Arithmetic overflow") subdir dir number-linked nlink ino-opened attr number-opened] 7)] 2])
(defalias 'nnmaildir--prepare #[(server group) "\302\211\303\304\215*\207" [groups x nil return (byte-code "\204�	\211\204%�\306\307\310\"\210\202%�\311\n\"\211\204 �\306\307\310\"\210J\211\312H>\2043�\313\314\315\316#\210\317H\211\204@�\306\307\310\"\210\312H>\204N�\313\314\320\316#\210\321H\204z\322\312H>\204c�\313\314\323\316#\210\324HP\211\211\203w�<\203w�\206X\325\"A\206X\326\232\203\213� \206>\325!\"A\206>\325\"\"A\206>#$$\203\304�\327\330$@@@$@@A@#\232\204\304�$\211A$@\210\202\241�$\211@@*\206>%&&\203\366�\327\330&\211@@)&@A@#\232\204\366�&\211A&@\210\202\322�&@)\206>'A\310\211()**\203;\331*\211A*@8\211);\204)\310\332+,)\333\334\215+\232\203)(\310\211*\204
(+\211-\203U\325\"\204U-BB-))\211\204c\306\307\310\"\210\312H>\204q\313\314\320\316#\210\211.\321
I\210)/\204\236\312H>\204\215\313\314\335\316#\210\336H\211/\204\263\306\307\310\"\210\202\263\311/\f\"\211/\204\256\306\307\310\"\210/J//\207" [server nnmaildir--cur-server nnmaildir--servers cl-struct-nnmaildir--srv-tags groups x throw return nil intern-soft 0 error "%s accessing a non-%s" nnmaildir--srv-groups nnmaildir--srv 6 nnmaildir--srv-method 2 "nnmaildir:" nnmaildir--srv-address 1 assoc "native" format "%s:%s" 4 t server-name (byte-code "\206�	\n\204�\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*�\312\313@\"\2026�\312\314@\211A@)#\211B\211\235\204V�\204V�\315@\"\204V�B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f�\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205�\n\235\204�\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) nnmaildir--srv-curgrp 7 gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result #1=#:v group] 6)] 2])
(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=\205�AA@\227\302\230\207" [err file-error "no such file or directory"] 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\314\315\215.\207" [nndir dir subdir ino-open path-link path-open "num" file-name-as-directory t 1 nil nnmaildir--mkdir return (byte-code "\306	!P\204�\f\202�\307\n!\210\310\311\312\n!\211A@\3138	\\\314W\204:�\fW\203?�\315\316\317\"\210*\f
U\203M�\315\316\320\nD\"\210\306\f!P\321\322\323\217\210\202��" [numdir number-open path-open make-new-file number-link previous-number-link number-to-string nnmaildir--mkfile nil 0 file-attributes 10 1 signal error ("Arithmetic overflow") "Corrupt internal nnmaildir data" err (byte-code "\304\305	\n\"\210\306\307\"\210)\305\207" [system-messages-locale path-open path-link number-link "C" add-name-to-file throw return] 3) ((error (byte-code "\306!\203
�\307\n\202/�\310!\203(�\311\f!\312
8
\232\204$�\n\313)\202/�\314@A\"\210\306\207" [err make-new-file number-link number-open path-link attr nnmaildir--emlink-p t nnmaildir--eexist-p file-attributes 10 0 signal ino-open] 3))) attr nlink ino-open path-link] 5) previous-number-link number-link number-open make-new-file numdir] 9 (#$ . 44486)])
(defalias 'nnmaildir--update-nov #[(server group article) "\306\307H	>\204�\310\311\312\313#\210\314H\315\316\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211 !\"#$%\317\320\215.\207" [server cl-struct-nnmaildir--srv-tags deactivate-mark numdir num old-extra binary 0 error #1="%s accessing a non-%s" nnmaildir--srv-dir nnmaildir--srv 4 1 nil return (byte-code "\306H	>\204�\307\310\311\312#\210\313H\314\n\"
\n\211\n@A\315A@P!,A\316\f\317\"\203G�A\211A\320@A\315A@P!+\202Y�A\211A\321@A\315A@P!+BC\306HD>\204k�\307\310\322\323#\210C\313HEC\306HD>\204\201�\307\310\324\323#\210C\325HFBEFQG\326G!\211H\204\245�\327C\"\210\330\331\332\"\210\333H8I\334H8HC\306HD>\204\301�\307\310\335\323#\210C\333HJA\211A\336@A\315A@P!+\211A\211A\337@A\315A@P!+\211KEPLMN\232\204\340N!Mr\341\342!q\210\343L!\204\332J\202\264J\204\264\344 \210\345L!\210\346p!J\347J!\203@JG\306U\204@OJ\306H\232\204F\332J\202\264C\306HD>\204V\307\310\350\323#\210C\351H\204zC\306HD>\204m\307\310\350\323#\210C\211P\351J\313HI\210)C\306HD>\204\212\307\310\352\323#\210C\353H\204\256C\306HD>\204\241\307\310\352\323#\210C\211Q\353J\325HI\210)J\351HJJ\203\371IJ\351H\232\203\371J\353HRMR\232\203\336J\353MI\210\330\331J\"\210M\204\351\330\331J\"\210\332\354\355M\">\204\371\330\331J\"\210\344 \210\345G!\210\356c\210eb\210\214\357\360\332\361#\203\362`d\"Se`S}\210\202!\306Seb\210\363\313!\210\364 \211J\334H\2063\306T)\365T!\204H\316\f\366\"\204HTS\367S!S\367H!\370SQS\371 U\372\216J\333H\206f\373T\374T!\210T\370SQS\375\376J\313HJ\325HJ\351HE\370#V\375\377J\201]�H\370#W*J\353H\211X\203\270XY\371 U\201^�\216\201_�\201`�Y\"+\203\303\201a�E\201b�QX\374X!\210\201c�VSWIM%JC\306HD>\204\350\307\310\350\323#\210C\351H\211Z\204\201d�A!ZC\306HD>\204\n\307\310\350\323#\210C\211[\351ZI\210)\344 \210\201e�\201c�OZXJ$p\"\210L\201f�P\211GG\326G!\203C\201g�G!\210)\201h�edG\332\201i�\332\201j�&\210)\201k�GL\201l�#\210C\306HD>\204s\307\310\352\323#\210C\211\\\353XI\210)J\207" [group cl-struct-nnmaildir--grp-tags gname server pgname srv-dir 0 error #1# nnmaildir--grp-name nnmaildir--grp 1 nnmaildir--pgname file-name-as-directory nnmaildir--param read-only "new" "cur" nnmaildir--art-prefix nnmaildir--art nnmaildir--art-suffix 2 file-attributes nnmaildir--expired-article throw return nil 5 7 nnmaildir--art-nov ".nnmaildir" "nov" copy-sequence get-buffer-create " *nnmaildir nov*" file-exists-p erase-buffer nnheader-insert-file-contents read vectorp nnmaildir--art-num 3 nnmaildir--art-msgid 4 mapcar #[(e) "	>\207" [e old-extra] 2] "\n" search-forward "\n\n" noerror count-lines delete-char nnheader-parse-naked-head zerop distrust-Lines: number-to-string "	" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) #2="" nnmaildir--tab-to-space mapconcat #[(f) "\301\206�\302!\207" [f nnmaildir--tab-to-space #2#] 2] #[(extra) "\303@!A\304	!\210\304\n!\210	\305\nQ\207" [extra field val symbol-name nnmaildir--tab-to-space ": "] 3] subdir dir msgdir article cl-struct-nnmaildir--art-tags prefix suffix file attr mtime nov novdir novfile nnmaildir--extra nnmail-extra-headers storage-version #3=#:v #4=#:v old-extra nov-mid field save-match-data-internal nov-beg nov-end msgid id num #5=#:v #6=#:v 9 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\`fake\\+none\\+.*\\+[0-9]+\\'" "<" "@nnmaildir>" vector nnmaildir--new-number prin1 ":" delete-file gmm-write-region no-message excl rename-file replace] 9) val 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] 25])
(defalias 'nnmaildir--cache-nov #[(group article nov) "\306H	>\204�\307\310\311\312#\210\313H\306H	>\204�\307\310\314\312#\210\315H\316
\306H>\2045�\307\310\317\320#\210
\321H\204{�\fH\211\203[�\n\306H>\204R�\307\310\317\320#\210\n\211\321\316I\210)\f
I\210\306H	>\204n�\307\310\314\312#\210\211\315T\fG\246I\210)
\306H>\204\212�\307\310\317\320#\210
\211\321I,\207" [group cl-struct-nnmaildir--grp-tags goner index cache article 0 error "%s accessing a non-%s" nnmaildir--grp-cache nnmaildir--grp 9 nnmaildir--grp-index 10 nil nnmaildir--art-nov 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\224	\310H&>\204)�\311\312\313\314#\210	\315HT$\n\310H'>\204>�\311\312\316\317#\210\n\320H#$\321U\203O�#\202d�#	\310H&>\204`�\311\312\322\314#\210	\323H^\"	\310H&>\204u�\311\312\324\314#\210	\325H\211\203\212�#
\211(@@)V\203\224�#\nB
B\202\263�\326
A\211\203\263�#\f\211(@@)W\203\263�\f\211A\211\204\235�\326)	\310H&>\204\305�\311\312\313\314#\210	\211*\315$I\210)	\310H&>\204\336�\311\312\322\314#\210	\211+\323\"I\210)\203\370�
#\nB\fB\241\210\202	\310H&>\204\311\312\324\314#\210	\211,\325
I\210)\327\n\310H'>\204 \311\312\330\317#\210\n\321H	\310H&>\2042\311\312\331\314#\210	\332H\"\nL\210\327\n\310H'>\204I\311\312\333\317#\210\n\323H	\310H&>\204[\311\312\334\314#\210	\335H\"\nL\210\327	\310H&>\204r\311\312\336\314#\210	\321H\310H->\204\204\311\312\337\340#\210\325H\"	L\210)\341	\n%#\210\326.\207" [server group article insert-nlist nlist-cdr nlist nnmaildir--update-nov nil 0 error "%s accessing a non-%s" nnmaildir--grp-count nnmaildir--grp 5 nnmaildir--art-num nnmaildir--art 3 1 nnmaildir--grp-min 4 nnmaildir--grp-nlist 6 t intern nnmaildir--art-prefix nnmaildir--grp-flist 7 nnmaildir--art-msgid nnmaildir--grp-mlist 8 nnmaildir--grp-name nnmaildir--srv-groups nnmaildir--srv nnmaildir--cache-nov min num count nov cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags x inhibit-quit #1=#:v #2=#:v #3=#:v cl-struct-nnmaildir--srv-tags] 8])
(defalias 'nnmaildir--group-ls #[(server pgname) "\303\304\"\206�	\305H\n>\204�\306\307\310\311#\210	\312H\207" [pgname server cl-struct-nnmaildir--srv-tags nnmaildir--param directory-files 0 error "%s accessing a non-%s" nnmaildir--srv-ls nnmaildir--srv 5] 4])
(defalias 'nnmaildir-article-number-to-file-name #[(number group-name server-address-string) "\306	\"\307\211\211\310\311\215,\207" [server-address-string group-name pgname dir article group nnmaildir--prepare nil return (byte-code "\204	�\306\307\310\"\210\311	\"\211\204�\306\307\310\"\210\312\f\"\313H>\204+�\314\315\316\317#\210\320H\211\f\211\321P!,\322
\323\"\203c�\211\324\321P!+\202u�\211\325\321P!+\211\n\313H >\204\207�\314\315\326\327#\210\n\330H\n\313H >\204\231�\314\315\331\327#\210\n\332HQ\207" [group number article nnmaildir--cur-server group-name pgname throw return nil nnmaildir--nlist-art nnmaildir--pgname 0 error "%s accessing a non-%s" nnmaildir--srv-dir nnmaildir--srv 4 file-name-as-directory nnmaildir--param read-only "new" "cur" nnmaildir--art-prefix nnmaildir--art 1 nnmaildir--art-suffix 2 cl-struct-nnmaildir--srv-tags dir gname srv-dir subdir cl-struct-nnmaildir--art-tags] 7)] 4])
(defalias 'nnmaildir-article-number-to-base-name #[(number group-name server-address-string) "\305	\"\211\2055�\306\n\"\211\2055�\n\307H\f>\204 �\310\311\312\313#\210\n\314H\n\307H\f>\2041�\310\311\315\313#\210\n\316HB)\207" [server-address-string group-name x number cl-struct-nnmaildir--art-tags nnmaildir--prepare nnmaildir--nlist-art 0 error "%s accessing a non-%s" nnmaildir--art-prefix nnmaildir--art 1 nnmaildir--art-suffix 2] 6])
(defalias 'nnmaildir-base-name-to-article-number #[(base-name group-name server-address-string) "\306	\"\211\2056�\n\307H>\204�\310\311\312\313#\210\n\314H\315\f\n\"J\211\2056�\n\307H
>\2043�\310\311\316\317#\210\n\320H)\207" [server-address-string group-name x cl-struct-nnmaildir--grp-tags base-name cl-struct-nnmaildir--art-tags nnmaildir--prepare 0 error "%s accessing a non-%s" nnmaildir--grp-flist nnmaildir--grp 7 intern-soft nnmaildir--art-num nnmaildir--art 3] 5])
(defalias 'nnmaildir--nlist-iterate #[(nlist ranges func) "\306\211\211\211\f\307=\203�\310
\211\f@@)BC\f\205T�\f@\fA\211\2035�\f@=\2035�\fA\211\204'�\247\203A�\202G�@A
\311\312\215\210\311\313\215\210\202�,\207" [nlist2 low high entry ranges nlist nil all 1 iterate-loop (byte-code "\203�\211@@)\nX\203�\303\304\305\"\210A\211\204�\305\207" [nlist2 x high throw iterate-loop nil] 4) (byte-code "\203�@A	@\nW\203�\304\305\306\"\210	A!\210\202��\306\207" [nlist2 entry low func throw iterate-loop nil] 3) x] 5])
(defalias 'nnmaildir--up2-1 #[(n) "\301!\203�\302\207\303\302\304!T\"S\207" [n zerop 1 lsh logb] 4])
(defalias 'nnmaildir--system-name #[nil "\300\211\211\301 \302\303\304$\305\306\304$\307\310\304$\207" [gnus-replace-in-string system-name "\\\\" "\\134" literal "/" "\\057" ":" "\\072"] 7])
(defalias 'nnmaildir-request-type #[(group &optional article) "\300\207" [mail] 1])
(defalias 'nnmaildir-status-message #[(&optional server) "\303\304\"\210	\305H\n>\204�\306\307\310\311#\210	\312H\207" [server nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir--prepare nil 0 error "%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8] 4])
(defalias 'nnmaildir-server-opened #[(&optional server) "\2057�	\203�	\303H\n>\204�\304\305\306\307#\210\310H\230\202�\311\2057�\303H\n>\2040�\304\305\312\307#\210\313H\2057�\311\207" [nnmaildir--cur-server server cl-struct-nnmaildir--srv-tags 0 error "%s accessing a non-%s" nnmaildir--srv-address nnmaildir--srv 1 t nnmaildir--srv-groups 6] 5])
(defalias 'nnmaildir-open-server #[(server &optional defs) "\304\211\305\306\215+\207" [server size dir x nil return (byte-code "\306	\"\211\2032�\nJ\211\203L�\n\307H>\204�\310\311\312\313#\210\n\314H\203L�\n\211\203L�\315\316\317\"\210\202L�\320\321\322\211\211\211\211\211\211\211\211\211&\f\317\323	\"\nL\210)\3244\236\2115\204r�\n\307H>\204d�\310\311\325\313#\210\n\2116\326\327I\210)\315\316\322\"\2105\211A@)5\3305!5\3315!5\3325!5\3335!\204\263�\n\307H>\204\242�\310\311\325\313#\210\n\2117\326\3345PI\210)\315\316\322\"\210\n\307H>\204\301�\310\311\335\313#\210\n\2118\3365I\210)\3374\236\211\204\342�9\203\335�\337\202\336�\340\202\211A@)\341!\204\n\307H>\204\375�\310\311\325\313#\210\n\211:\326\342\343!PI\210)\315\316\322\"\210\n\307H>\204\310\311\344\313#\210\n\211;\345I\210)5\322\346\347$G<\350<!<\3514\236\211\203hA\211\203h@\203h\n\307H>\204Y\310\311\352\313#\210\n\211=\353\317I)\203h\354\355!\210\3564\236\211\203\226\211A@)\330!\n\307H>\204\212\310\311\357\313#\210\n\211>\360I\210)\202\337\3614\236\211\203\310\211A@)\330!\332!\n\307H>\204\274\310\311\357\313#\210\n\211?\360I\210)\202\337\n\307H>\204\326\310\311\357\313#\210\n\211@\360\362I\210)\n\307H>\204\355\310\311\312\313#\210\n\211A\314\363<\307\"I\210)\n\317\207" [x nnmaildir--servers server cl-struct-nnmaildir--srv-tags nnmaildir--cur-server inhibit-quit intern-soft 0 error "%s accessing a non-%s" nnmaildir--srv-groups nnmaildir--srv 6 throw return t vector cl-struct-nnmaildir--srv nil intern directory nnmaildir--srv-error 8 "You must set \"directory\" in the select method" eval expand-file-name file-name-as-directory file-exists-p "No such directory: " nnmaildir--srv-dir 4 directory-files nnheader-directory-files-safe functionp "Not a function: " prin1-to-string nnmaildir--srv-ls 5 "\\`[^.]" nosort nnmaildir--up2-1 get-new-mail nnmaildir--srv-gnm 10 require nnmail target-prefix nnmaildir--srv-target-prefix 11 create-directory "" make-vector defs dir #1=#:v #2=#:v #3=#:v nnheader-directory-files-is-safe #4=#:v #5=#:v size #6=#:v #7=#:v #8=#:v #9=#:v #10=#:v] 14)] 3])
(defalias 'nnmaildir--parse-filename #[(file) "@\304\211\305\306\"\2030�\307\310\311\"P\211G\312Z\313\314\n\315	O!\314\n	\304O!\310\316\"$\2021�+\207" [file len timestamp prefix nil string-match "\\`\\([0-9]+\\)\\(\\..*\\)\\'" "0000" match-string 1 4 vector string-to-number 0 2] 7])
(defalias 'nnmaildir--sort-files #[(a b) "\300\301\215\207" [return (byte-code ":\203�\302\303	:\205�@	@\231\"\210	:\203�\302\303\304\"\210\305H	\305HW\203,�\302\303\304\"\210\305H	\305HV\203;�\302\303\306\"\210\307H	\307HW\203J�\302\303\304\"\210\307H	\307HV\203Y�\302\303\306\"\210\310H	\310H\231\207" [a b throw return t 0 nil 1 2] 4)] 2])
(defalias 'nnmaildir--scan #[(gname scan-msgs groups method srv-dir srv-ls) "\300\301\215\207" [return (byte-code "\306 @\307Z\310\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211@$ABCDEFGHIJKLL\211KLM\311MP!,\211I\211\312M\311MP!+H\313I!\204\204�N\314HO>\204r�\315\316\317\320#\210N\211P\321\322IPI\210)\323\324\310\"\210I\211\325M\311MP!+GI\211\326M\311MP!+FI\211\327M\311MP!+E\330F!D\330E!C\313G!\203\324�D\203\324�C\204\366�N\314HO>\204\344�\315\316\317\320#\210N\211Q\321\331IPI\210)\323\324\310\"\210\332\310L\"\333NL\"A	\203\310B\202K\334B\335\336L\310\211\337\314\310\211\211\211\314\310&\f\340H!\210\340H\211\341M\311MP!+!\210\340H\211\342M\311MP!+!\210\343A\344\"$\343A\345\"\206\\R@$\204\335\346\330G!8\211\346D8\232\203|\346C8\232\204\236N\314HO>\204\214\315\316\317\320#\210N\211S\321\347IPI\210)\323\324\310\"\210@G\350\351\352$\310T\211U\203\334U@T\330T!\211\211A@)\337V\204\316\3538@JW\203\323\354T!\210UA\211U\204\257*V\204\354B\204\354\323\324\334\"\210\355D8\211D	\314HW>\204\315\316\356\357#\210	\307H\232\203\f\310D$\203!B\204D\205F\202\260B\204+D\203\201@F\310\351\352$\310T\211U\203gU@TFTP\360\355\330!8\306 \"\203^\361E\362T!P\"\210UA\211U\204<*	\314HW>\204w\315\316\356\357#\210	\211X\307DI\210)\355\330E!8\211C	\314HW>\204\231\315\316\363\357#\210	\364H\232\203\243\310CB\204\255C\205\257E\204\271\323\324\334\"\210@\310\351\352$\365 Y\366\216\367\370
\"*B\203R\371
G!	\314HW>\204\346\315\316\372\357#\210	\211Z\373\374\f\314\"I\210)	\314HW>\204\315\316\375\357#\210	\211[\321\374\f\314\"I\210)	\314HW>\204\315\316\376\357#\210	\211\\\346\374\337\314\"I\210)\343A\377\"\211\247\203>\f\337W\203\337\202\201k�H\211\342M\311MP!+\211E\201l�M\311MP!*FE\201m�M\311MP!*E
\310]\211U\203U@\211]@]A^_^;\203\370\201n�\201o�^\"\203\370\201c�\201p�`\201q�`a\"@)!^\310bcd\334e\201r�dcb#,\203\f\201c�\201s�`\201q�`a\"@)!^\310bcd\334e\201r�dcb#,\204\f\313E_P!\203\f\313F_P!\203\fT*UA\211U\204~*	\314HW>\204+\315\316\201t�\357#\210	\211f\201u�\374\f\310\"I\210)\334g\201v�Lh\"	L\210)V\204R\323\324\334\"\210	\314HW>\204a\315\316\372\357#\210	\373H\367\201w�
\"\201x�\310
\"\367\201y�
\"\201z�
\201{�\"\211\310T\211U\203\304U@\211T:\203\234T\202\240T\364HT\335\201|�T@TA\310\211\211&\201}�N	#\210UA\211U\204\215*$\203\346	\314HW>\204\331\315\316\356\357#\210	\211i\307DI\210)\202\377	\314HW>\204\365\315\316\363\357#\210	\211j\364CI\210).\334\207" [x group flist dir num files current-time 2 nil file-name-as-directory ".nnmaildir" file-exists-p 0 error "%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8 "No such directory: " throw return "tmp" "new" "cur" file-attributes "Not a maildir: " nnmaildir--prepare nnmaildir--pgname t vector cl-struct-nnmaildir--grp 1 nnmaildir--mkdir "nov" "marks" nnmaildir--param read-only directory-files 11 "Maildir spans filesystems: " full "\\`[^.]" nosort 4 delete-file 5 nnmaildir--grp-new nnmaildir--grp time-less-p rename-file nnmaildir--ensure-suffix nnmaildir--grp-cur 3 match-data ((byte-code "\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] nnmaildir--up2-1 nnmaildir--grp-flist 7 make-vector nnmaildir--grp-mlist nnmaildir--grp-mmth nov-cache-size 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 #6=#:v #7=#:v prefix-suffix suffix prefix mark nnmaildir-flag-mark-mapping start string regexp inhibit-changing-match-data #8=#:v inhibit-quit groups #9=#:v #10=#:v 16 "tick" "read" gnus-string-prefix-p ":2," read rassq string-match tick nnmaildir--grp-cache 9 intern #[(file) "\302@	\"J?\205�\207" [file flist intern-soft] 3] delq nnmaildir--parse-filename sort nnmaildir--sort-files cl-struct-nnmaildir--art nnmaildir--grp-add-art] 19)] 2])
(defalias 'nnmaildir-request-scan #[(&optional scan-group server) "\306\211\307\306\211\211\211\211\211\211\211\211\211\211\211\211/0123456789:\310;\306\"\210<\311H=>\204D�\312\313\314\315#\210<\316H3<\311H=>\204Z�\312\313\317\315#\210<\320H2<\311H=>\204p�\312\313\321\315#\210<\322H1<\311H=>\204\206�\312\313\323\315#\210<\324H0<\311H=>\204\234�\312\313\325\315#\210<\326H/r\327\330!q\210\331 >\332\216?;\203\361�\333?\3070123&\203\347�<\311H=>\204\325�\312\313\334\315#\210<\335H\203\342\336\337\306\211?$\210\202\342\340?0\"\210\202\342\316\3412!84???4<\311H=>\204\312\313\342\315#\210<\343H\232\203&?\203\300\344\3450\"\210\202\30032\306\346\347$\350/G!\203;\f\202?\351\352\f\"\353\fG!\354\n\311\"\f\306\211@\203v@@\333?0123&\203m\355\n\"\210@A\211@\204S*\3064\344\3560\"\2104\306A\211@\203\240@@A\340A0\"\210@A\211@\204\213*<\311H=>\204\261\312\313\342\315#\210<\211B\343\316\3412!8I\210)?\203\342<\311H=>\204\325\312\313\334\315#\210<\335H\203\342\336\337\306\211#\210.\307\207" [nnheader-file-coding-system deactivate-mark seen grp-dir dirs group nil t nnmaildir--prepare 0 error "%s accessing a non-%s" nnmaildir--srv-ls nnmaildir--srv 5 nnmaildir--srv-dir 4 nnmaildir--srv-method 2 nnmaildir--srv-groups 6 nnmaildir--srv-target-prefix 11 get-buffer-create " *nnmaildir work*" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nnmaildir--scan nnmaildir--srv-gnm 10 nnmail-get-new-mail nnmaildir unintern file-attributes nnmaildir--srv-mtime 9 mapatoms #[(sym) "\305\306!\307	\n\f&\207" [sym groups method srv-dir srv-ls nnmaildir--scan symbol-name t] 7] "\\`[^.]" nosort zerop gnus-remove-if #[(dir) "G	GY\205�\302	GO	\230\207" [dir target-prefix 0] 3] nnmaildir--up2-1 make-vector intern #[(group) "\303!\304	\"?\205�\nB\211\207" [group seen x symbol-name intern-soft] 3] target-prefix groups 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 --dolist-tail-- grp #1=#:v] 18])
(defalias 'nnmaildir-request-list #[(&optional server) "\306\307\"\210\310\211\211\311\310\"\210r\fq\210\312 \210\313\314
\315H>\204(�\316\317\320\321#\210
\322H\"\210,\323\207" [server deactivate-mark ro pgname nntp-server-buffer nnmaildir--cur-server nnmaildir-request-scan find-new-groups nil nnmaildir--prepare erase-buffer mapatoms #[(group) "\306!\307\n	\"J\310	\311\"\312\313H\f>\204 �\314\315\316\317#\210\320H\321\322\323$\321\261\210\324\325\n\"
\"\210\321c\210\324\313H\f>\204E�\314\315\326\317#\210\327H
\"\210\321\203T�\330\202U�\331\332\261\207" [group pgname nnmaildir--cur-server ro cl-struct-nnmaildir--grp-tags nntp-server-buffer symbol-name nnmaildir--pgname nnmaildir--param read-only gnus-replace-in-string 0 error #1="%s accessing a non-%s" nnmaildir--grp-name nnmaildir--grp 1 " " "\\ " t princ nnmaildir--group-maxnum nnmaildir--grp-min 4 "n" "y" "\n"] 5] 0 error #1# nnmaildir--srv-groups 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~�@\307\306
\"\211\204,�\311c\210\202u�\312c\210\313	\314H>\204?�\315\316\317\320#\210	\321H\"\210\322c\210\313	\314H>\204X�\315\316\323\320#\210	\324H\"\210\322c\210\313\325	\"\"\210\322\326
\322\327\330$\331\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 0 error "%s accessing a non-%s" nnmaildir--grp-count nnmaildir--grp 5 " " nnmaildir--grp-min 4 nnmaildir--group-maxnum gnus-replace-in-string "\\ " t "\n" --dolist-tail-- cl-struct-nnmaildir--grp-tags nnmaildir--cur-server] 7])
(defalias 'nnmaildir-request-update-info #[(gname info &optional server) "\306	\"\307H\f>\204�\310\311\312\313#\210\314H	\211	\315P!,\211\316\315P!+\317\320!8\321\211\321\211\321\211\321\211\321\211 \321\211!\"\321\211#$\321\211%&\321\211'(\321\211)*\321\211+,\321\211-.\322\323\215.\207" [server gname group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags srv-dir nnmaildir--prepare 0 error #2="%s accessing a non-%s" nnmaildir--srv-dir nnmaildir--srv 4 file-name-as-directory "cur" 5 file-attributes nil return (byte-code "\204!�	\306H\n>\204�\307\310\311\312#\210	\211\313\314\fPI\210)\315\316\317\"\210\306H
>\204/�\307\310\320\321#\210\322H\323	\f\"<\306H
>\204G�\307\310\324\321#\210\325H=\326\306H
>\204[�\307\310\327\321#\210\330H!\203v�>AA\317\240\210\331>\317\332#\210\315\316>\"\210\333\334>8B\211?\332>8B?\335<\336\"\335<\337\"\306H
>\204\242�\307\310\340\321#\210\341H@\342\343@\"\211@\237@\344@\345\"@\322\346	\"BCA\347A@\"A	\306H\n>\204\330�\307\310\350\312#\210	\351H\211B\f\211C\fDB\352BDP!,\211B\211B\353DB\352BDP!+\211B\211B\354DB\352BDP!+B\355	<\"E\356\357\342\360F\"\342\361EB\317\362\363$\"\"!G\364GG!H\365H\306\"H\306H
>\204Q\307\310\366\321#\210\367HIG\317J\211K\203\247K@JB\370J!DB\352BDP!*L\317M\371\372\215\210J\333=\203\217M\202\236M\203\236JMBNBNKA\211K\204a*>AA\373A\"\240\210\331>N\332#\210\306H
>\204\312\307\310\366\321#\210\211O\367HI\210)>\207" [group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v gname cl-struct-nnmaildir--grp-tags 0 error #2# nnmaildir--srv-error nnmaildir--srv 8 "No such group: " throw return nil nnmaildir--grp-name nnmaildir--grp 1 nnmaildir--pgname nnmaildir--grp-flist 7 zerop nnmaildir--grp-count 5 gnus-info-set-entry 3 read 2 nnmaildir--param always-marks never-marks nnmaildir--grp-nlist 6 mapcar car gnus-compress-sequence always-list nnmaildir--group-maxnum gnus-range-difference nnmaildir--srv-dir 4 file-name-as-directory ".nnmaildir" "marks" nnmaildir--group-ls gnus-delete-duplicates append cdr intern "\\`[^.]" nosort nnmaildir--up2-1 make-vector nnmaildir--grp-mmth 11 symbol-name got-ranges (byte-code "	>\203�\306\307\310\"\210\n>\203�\306\307\310\"\210\311\312
!8 \313!\"@)\2040� \202T� \204:�\"\202T�\"\204D� \202T�\314 \"\"\203R�\"\202T� )#\315\316!$\"#L\210#\317\316!%\"J\232\203\201�&\236\211\203|�\fA\306\307\310\"\210\310'\313!\"@)\211(\205\354�\320\321(!P)*+\310)\322$\310,\211-\205\353�-@,\323,\324\"@.\317./\"J\2110\203\340�0\325H1>\204\327�\326\327\330\331#\2100\332H'B'*-A\211-\204\255�\310+)\204<\333
!\203<*
\310\334\322$\310.\211-\203;-@.\317./\"J\2110\20310\325H1>\204(\326\327\330\331#\2100\332H'B')-A\211-\204*\335\f\336'\337\"\")\310\207" [mark never-marks always-marks existing ranges markdir throw got-ranges nil 5 file-attributes rassq time-less-p intern symbol-name intern-soft "\\`[^.].*:2,[A-Z]*" string nosort split-string ":2," 0 error #2# nnmaildir--art-num nnmaildir--art 3 file-directory-p "\\`[^.]" gnus-add-to-range sort < markdir-mtime nnmaildir-flag-mark-mapping curdir-mtime mtime new-mmth old-mmth old-marks article-list flag regexp ls curdir filename --dolist-tail-- prefix flist article cl-struct-nnmaildir--art-tags] 6) gnus-range-add pgname flist info old-marks existing missing dir srv-dir subdir ls nnmaildir-flag-mark-mapping all-marks new-mmth old-mmth mark --dolist-tail-- markdir ranges marks #3=#:v] 11) subdir dir curdir curdir-mtime pgname flist always-marks never-marks old-marks dotfile num all-marks marks mark ranges markdir read end new-marks ls old-mmth new-mmth mtime mark-sym existing missing deactivate-mark] 5])
(defalias 'nnmaildir-request-group #[(gname &optional server fast info) "\304	\"\305\306\307\215*\207" [server gname deactivate-mark group nnmaildir--prepare nil return (byte-code "\204!�	\306H\n>\204�\307\310\311\312#\210	\211\313\314\fPI\210)\315\316\317\"\210	\306H\n>\204/�\307\310\320\312#\210	\211\321I\210) \203A�\315\316\322\"\210r!q\210\323 \210\324c\210\325\306H\">\204\\�\307\310\326\327#\210\330H!\"\210\331c\210\325\306H\">\204v�\307\310\332\327#\210\333H!\"\210\331c\210\325\334	\"!\"\210\331\335\f\331\336\322$\337\261\210)\322\207" [group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v gname #2=#:v 0 error "%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8 "No such group: " throw return nil nnmaildir--srv-curgrp 7 t erase-buffer "211 " princ nnmaildir--grp-count nnmaildir--grp 5 " " nnmaildir--grp-min 4 nnmaildir--group-maxnum gnus-replace-in-string "\\ " "\n" fast nntp-server-buffer cl-struct-nnmaildir--grp-tags] 7)] 3])
(defalias 'nnmaildir-request-create-group #[(gname &optional server args) "\301\302\"\210\303\304\215\207" [server nnmaildir--prepare nil return (byte-code "\306H	>\204�\307\310\311\312#\210\313H\314\211\211\315,G!\203<�\306H	>\204.�\307\310\316\312#\210\211-\317\320I\210)\321\322\314\"\210\323\306H,\306H=\203c�\306H	>\204U�\307\310\316\312#\210\211.\317\324I\210)\321\322\314\"\210\325 /\326\216\327\330,\"*\203\221�\306H	>\204\200�\307\310\316\312#\210\2110\317\331,PI\210)\321\322\314\"\210\306H	>\204\237�\307\310\332\312#\210\333H\334,\n\"\203\312�\306H	>\204\271�\307\310\316\312#\210\2111\317\335,PI\210)\321\322\314\"\210\306H	>\204\330�\307\310\336\312#\210\337H\340
!\203\351�\341
!\202\363�\f\342!\211
P,2\3432P!*\344!\210\344\211\3452\3432P!+!\210\344\211\3462\3432P!+!\210\344\211\3472\3432P!+!\210
\350\230\204I\351
,P\f,P\"\210\352\353!,\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags groups dir srv-dir target-prefix 0 error "%s accessing a non-%s" nnmaildir--srv-target-prefix nnmaildir--srv 11 nil zerop nnmaildir--srv-error 8 "Invalid (empty) group name" throw return "." "Group names may not start with \".\"" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "[�/	]" "Invalid characters (null, tab, or /) in group name: " nnmaildir--srv-groups 6 intern-soft "Group already exists: " nnmaildir--srv-dir 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] 5)] 3])
(defalias 'nnmaildir-request-rename-group #[(gname new-name &optional server) "\306	\"\n\307\211\211\211\211\n\f
\310\311\215.\207" [server gname nnheader-file-coding-system groups x srv-dir nnmaildir--prepare nil return (byte-code "\204!�	\306H\n>\204�\307\310\311\312#\210	\211\313\314\fPI\210)\315\316\317\"\210\320
G!\203D�	\306H\n>\2046�\307\310\311\312#\210	\211+\313\321I\210)\315\316\317\"\210\322\306H
\306H=\203j�	\306H\n>\204\\�\307\310\311\312#\210	\211,\313\323I\210)\315\316\317\"\210\324 -\325\216\326\327
\"*\203\226�	\306H\n>\204\206�\307\310\311\312#\210	\211.\313\330
PI\210)\315\316\317\"\210\f
\230\203\241�\315\316\331\"\210\332
	\306H\n>\204\261�\307\310\333\312#\210	\334H\"\203\326�	\306H\n>\204\306�\307\310\311\312#\210	\211/\313\335
PI\210)\315\316\317\"\210	\306H\n>\204\344�\307\310\336\312#\210	\337H0\340\341\342\217\210	\306H\n>\204\374�\307\310\333\312#\210	\334H1\3431G\306\"2\344\3451\"\210\346!\211\306H3>\204\"\307\310\347\350#\210\2114\351
I\210)\352
2\"L\210	\306H\n>\204A\307\310\333\312#\210	\2115\3342I\210)\331\207" [group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v gname new-name 0 error #3="%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8 "No such group: " throw return nil zerop "Invalid (empty) group name" "." "Group names may not start with \".\"" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "[�/	]" "Invalid characters (null, tab, or /) in group name: " t intern-soft nnmaildir--srv-groups 6 "Group already exists: " nnmaildir--srv-dir 4 err (byte-code "\303	P\nP\"\207" [srv-dir gname new-name rename-file] 4) ((error (byte-code "\304H	>\204�\305\306\307\310#\210\211\311\312\313!PI\210)\314\315\316\"\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #2=#:v err 0 error #3# nnmaildir--srv-error nnmaildir--srv 8 "Error renaming link: " prin1-to-string throw return nil] 6))) make-vector mapatoms #[(sym) "J	=?\205�\303\304!\n\"JL\207" [sym group groups intern symbol-name] 3] copy-sequence nnmaildir--grp-name nnmaildir--grp 1 intern #4=#:v #5=#:v save-match-data-internal #6=#:v #7=#:v srv-dir x groups cl-struct-nnmaildir--grp-tags #8=#:v #9=#:v] 7) file-coding-system-alist buffer-file-coding-system coding-system-for-write group] 7])
(defalias 'nnmaildir-request-delete-group #[(gname force &optional server) "\306	\"\307\211\211\211\211\211\n\f\310\311\215.\207" [server gname deactivate-mark ls dir target nnmaildir--prepare nil return (byte-code "\204!�	\306H\n>\204�\307\310\311\312#\210	\211\313\314\fPI\210)\315\316\317\"\210\306H
>\204/�\307\310\320\321#\210\322H\323	\f\"4	\306H\n>\204G�\307\310\324\312#\210	\325H5\3265\fP!@65\f\2117\f89\32798P!,5:\204\224�6;\204\224�	\306H\n>\204\204�\307\310\311\312#\210	\211;\313\330\fPI\210)\315\316\317\"\210	\306H\n>\204\243�\307\310\331\312#\210	\332H=\203\301�	\306H\n>\204\270�\307\310\331\312#\210	\211<\332\317I\210)\333\f	\306H\n>\204\321�\307\310\334\312#\210	\335H\"\210:\204\364�\3365!\2115=\326=!\203\360�\337=!\210)\202\252\340	4\">\3414\342\"\203Q\3435\2119\34489\32798P!+!\2105\2119\34589\32798P!+=\326=!\2038\337=!\210)\3435\2119\34689\32798P!+!\210\202\226\3475\2119\34489\32798P!+>\"\210\3475\2119\34589\32798P!+>\"\210\3475\2119\34689\32798P!+>\"\2105\2119\35089\32798P!+\2119\2119\35189\32798P!+9\2119\35289\32798P!+>9\2119\35389\32798P!+\354\355\356$BB\3178\211?\203?@8\3478>\"\210?A\211?\204\360*5\2119\35089\32798P!+\2119\357P=\326=!\203+\337=!\210)9\360P=\326=!\203>\337=!\210)\3439\2119\35389\32798P!+!\210\3439!\2106;\204g\3435!\210\202\252\3365!569\361\306H9\306H=\204\224\362	\306H\n>\204\213\307\310\324\312#\210	\325H!9P9\3439!\2105=\326=!\203\251\337=!\210)\363\207" [group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v gname cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8 "No such group: " throw return nil nnmaildir--grp-name nnmaildir--grp 1 nnmaildir--pgname nnmaildir--srv-dir 4 file-attributes file-name-as-directory "Not a symlink: " nnmaildir--srv-curgrp 7 unintern nnmaildir--srv-groups 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}" "/" file-truename t pgname grp-dir target srv-dir subdir dir force #2=#:v #3=#:v file ls --dolist-tail--] 8) grp-dir pgname group] 7])
(defalias 'nnmaildir-retrieve-headers #[(articles &optional gname server fetch-old) "\306	\"\307\211\211\211\211\211\211\211\211\211\211\211\f
\310\311\312\215.
\207" [server gname deactivate-mark insert-nov nlist2 nov nnmaildir--prepare nil #[(article) "\306	\n#\211\205[�\307	\n#\210\n\310H\f>\204�\311\312\313\314#\210\n\315H\316
\"\210\317\310H\317\n\310H\f>\204;�\311\312\320\314#\210\n\321H\317\322H\323\324\325\326\327$\330\261	\210\316
\"\210\317\331H\332\261\207" [nnmaildir--cur-server group article nov cl-struct-nnmaildir--art-tags num nnmaildir--update-nov nnmaildir--cache-nov 0 error #2="%s accessing a non-%s" nnmaildir--art-num nnmaildir--art 3 princ "	" nnmaildir--art-msgid 4 1 "	Xref: nnmaildir " gnus-replace-in-string " " "\\ " t ":" 2 "\n" nntp-server-buffer gname] 13] return (byte-code "\204)�	\306H\n>\204�\307\310\311\312#\210	\211\313\f\203 �\314\fP\202!�\315I\210)\316\317\320\"\210r
q\210\321 \210\306H!>\204?�\307\310\322\323#\210\313H\"\306H!>\204S�\307\310\324\323#\210\325H#\306H!>\204g�\307\310\326\323#\210\327H	\306H\n>\204y�\307\310\330\312#\210	\331H\211$\f\211$\f%&\332&%P!,&#\203@'\203\256�'\247\204\256�\333#\334(#\210\202@)\203@)@;\203\352�)\320*\211+\203\346�+@*\335*\"\"J\211,\203\335�(,!\210+A\211+\204\305�*\202@'\2037)@-\336)!@.-\247\203-\202	-@-.\247\203.\202.A.-'Z\211-\327W\203,\327\202.-\211-.BC)\333#)(#\210\337\327ed#\210)\340\207" [group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v gname nntp-server-buffer 0 error #2# nnmaildir--srv-error nnmaildir--srv 8 "No such group: " "No current group" throw return nil erase-buffer nnmaildir--grp-mlist nnmaildir--grp nnmaildir--grp-nlist 6 nnmaildir--grp-name 1 nnmaildir--srv-dir 4 file-name-as-directory nnmaildir--nlist-iterate all intern-soft last sort-numeric-fields nov cl-struct-nnmaildir--grp-tags mlist nlist srv-dir subdir dir fetch-old insert-nov articles msgid --dolist-tail-- article stop start] 5) stop start num article mlist nlist dir srv-dir group] 13])
(defalias 'nnmaildir-request-article #[(num-msgid &optional gname server to-buffer) "\306	\"\307\310\211\211\211\211\f
\311\312\215.\207" [server gname deactivate-mark pgname dir article nnmaildir--prepare t nil return (byte-code "\204)�	\306H\n>\204�\307\310\311\312#\210	\211\313\f\203 �\314\fP\202!�\315I\210)\316\317\320\"\210
\247\2037�\321
\"-\202\224�\306H.>\204F�\307\310\322\323#\210\313H/\324
/\"J\211-\203o�-\306H0>\204g�\307\310\325\326#\210-\327H\202s�\330\331\215\210-\204\224�	\306H\n>\204\206�\307\310\311\312#\210	\2111\313\332I\210)\316\317\320\"\210\306H.>\204\243�\307\310\333\323#\210\334H\335	\f\"2	\306H\n>\204\273�\307\310\336\312#\210	\337H\2113\f\2114\f53\34035P!,3\3412\342\"\203\362�3\2113\34353\34035P!+\2023\2113\34453\34035P!+\2113-\306H0>\204\307\310\345\326#\210-\334H-\306H0>\204+\307\310\346\326#\210-\347HQ6\3506!\204[\351-\"\210	\306H\n>\204M\307\310\311\312#\210	\2117\313\352I\210)\316\317\320\"\210r8\206c9q\210\353 \210\3546!\210)\f
B\207" [group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v gname num-msgid 0 error #2="%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8 "No such group: " "No current group" throw return nil nnmaildir--nlist-art nnmaildir--grp-mlist nnmaildir--grp intern-soft nnmaildir--art-num nnmaildir--art 3 found (byte-code "\302\303\304H	>\204�\305\306\307\310#\210\311H\"\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags mapatoms #[(group-sym) "J\211\306H\n>\204�\307\310\311\312#\210	\313H\314\f\"J\211\2056�
\306H>\204.�\307\310\315\316#\210
\317H\320\321\322\"\207" [group-sym group cl-struct-nnmaildir--grp-tags list num-msgid article 0 error #2# nnmaildir--grp-mlist nnmaildir--grp 8 intern-soft nnmaildir--art-num nnmaildir--art 3 throw found nil cl-struct-nnmaildir--art-tags] 5] 0 error #2# nnmaildir--srv-groups nnmaildir--srv 6] 6) "No such article" nnmaildir--grp-name 1 nnmaildir--pgname nnmaildir--srv-dir 4 file-name-as-directory nnmaildir--param read-only "new" "cur" nnmaildir--art-prefix nnmaildir--art-suffix 2 file-exists-p nnmaildir--expired-article "Article has expired" erase-buffer nnheader-insert-file-contents article cl-struct-nnmaildir--grp-tags list cl-struct-nnmaildir--art-tags #3=#:v pgname dir srv-dir subdir nnmaildir-article-file-name #4=#:v to-buffer nntp-server-buffer] 7) list case-fold-search group] 7])
(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\n\f
\310\311\215.\n\207" [gname nnheader-file-coding-system deactivate-mark tmpfile suffix article nnmaildir--prepare nil return (byte-code "\204!�	\306H\n>\204�\307\310\311\312#\210	\211\313\314\fPI\210)\315\316\317\"\210\320\321	\f\"\322\"\203H�	\306H\n>\2049�\307\310\311\312#\210	\211\313\323PI\210)\315\316\317\"\210	\306H\n>\204V�\307\310\324\312#\210	\325H\211*\f\211+\f,*\326*,P!,*\327-\"\211.\204\234�	\306H\n>\204\211�\307\310\311\312#\210	\211/\313\330\331-!PI\210)\315\316\317\"\210.\306H0>\204\254�\307\310\332\333#\210.\334H1.\306H0>\204\302�\307\310\335\333#\210.\336H2*\211*\337,*\326*,P!+2P3\3403!\203	\306H\n>\204\364�\307\310\311\312#\210	\2114\313\3413PI\210)\315\316\317\"\210r5q\210\342ed3\317\343\317\344&\210)\345 \210\3463*\211*\347,*\326*,P!+21Q\350#\210\351\207" [group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v gname #2=#:v 0 error "%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8 "No such group: " throw return nil nnmaildir--param nnmaildir--pgname read-only "Read-only group: " nnmaildir--srv-dir 4 file-name-as-directory nnmaildir--nlist-art "No such article: " number-to-string nnmaildir--art-suffix nnmaildir--art 2 nnmaildir--art-prefix 1 "tmp" file-exists-p "File exists: " gmm-write-region no-message excl unix-sync rename-file "cur" replace t dir srv-dir subdir number article #3=#:v cl-struct-nnmaildir--art-tags suffix file tmpfile #4=#:v buffer] 9) file dir file-coding-system-alist buffer-file-coding-system coding-system-for-write group] 10])
(defalias 'nnmaildir-request-move-article #[(article gname server accept-form &optional last move-is-internal) "\306	\"\307\211\211\211\211\n\310\311\215.\207" [server gname deactivate-mark nnmaildir--file result suffix nnmaildir--prepare nil return (byte-code "\204!�	\306H\n>\204�\307\310\311\312#\210	\211\313\314\fPI\210)\315\316\317\"\210\306H
>\204/�\307\310\320\321#\210\322H\323	\f\"+\324,\"\211,\204`�	\306H\n>\204R�\307\310\311\312#\210	\211-\313\325I\210)\315\316\317\"\210,\306H.>\204p�\307\310\326\327#\210,\330H/	\306H\n>\204\204�\307\310\331\312#\210	\332H\2110\f\2111\f23\33332P!,0\334+\335\"\203\273�0\2113\33623\33332P!+\202\315�0\2113\33723\33332P!+\2110,\306H.>\204\340�\307\310\340\327#\210,\322H/Q0\3410!\204\342,\"\210	\306H\n>\204\307\310\311\312#\210	\2114\313\343I\210)\315\316\317\"\210r\344\345!q\210\346 \210\3470!\210\3505!6)6\203K\334+\335\"\204K07\3517!\203D\3527!\210)\342,\"\2106\207" [group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v gname cl-struct-nnmaildir--grp-tags 0 error "%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8 "No such group: " throw return nil nnmaildir--grp-name nnmaildir--grp 1 nnmaildir--pgname nnmaildir--nlist-art "No such article" nnmaildir--art-suffix nnmaildir--art 2 nnmaildir--srv-dir 4 file-name-as-directory nnmaildir--param read-only "new" "cur" nnmaildir--art-prefix 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 article #2=#:v cl-struct-nnmaildir--art-tags suffix nnmaildir--file srv-dir subdir dir #3=#:v accept-form result file] 6) pgname group] 6])
(defalias 'nnmaildir-request-accept-article #[(gname &optional server last) "\306	\"\n\307\211\211\211\211\211\211\211\211\211\n\f
\310\311\215.\f\207" [server gname nnheader-file-coding-system article 24h curfile nnmaildir--prepare nil return (byte-code "\204!�	\306H\n>\204�\307\310\311\312#\210	\211\313\314\fPI\210)\315\316\317\"\210\306H
>\204/�\307\310\320\321#\210\322H\323\324	\f\"\325\"\203[�	\306H\n>\204K�\307\310\311\312#\210	\2118\313\326\fPI\210)\315\316\317\"\210	\306H\n>\204i�\307\310\327\312#\210	\330H\2119\f\2119\f:;\331;:P!,;\332 <\333\334<\"=>=\230\204\235�=>\306?<A:\203\275�<\211@AA):\203\275�=\335\336<AA@!Q==AP\211=\337\336?!Q\211=\340\341 Q=;\211;\342:;\331;:P!+=PB;\211;\343:;\331;:P!+=\344QC\345B!\203)	\306H\n>\204\307\310\311\312#\210	\211D\313\346BPI\210)\315\316\317\"\210\345C!\203O	\306H\n>\204>\307\310\311\312#\210	\211E\313\346CPI\210)\315\316\317\"\210?T?\347\350\317\351#F\317\352\353\217\210\354F!\210\355\356\357\217\210B=\360=!\203z\361=!\210)\362\363=\344\317\211\211&G\364	G#\205\246\fG\306HH>\204\241\307\310\365\366#\210G\367HB\207" [group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v gname cl-struct-nnmaildir--grp-tags 0 error #3="%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8 "No such group: " throw return nil nnmaildir--grp-name nnmaildir--grp 1 nnmaildir--param nnmaildir--pgname read-only "Read-only group: " nnmaildir--srv-dir 4 file-name-as-directory current-time format-time-string "%s." "M" number-to-string "Q" "." nnmaildir--system-name "tmp" "cur" ":2," file-exists-p "File exists: " run-with-timer 86400 #[nil "\305	!\203\f�\306	!\210)\n\307H>\204�\310\311\312\313#\210\n\211\314\315I\210)\316\317\320\"\207" [tmpfile file nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #2=#:v file-attributes delete-file 0 error #3# nnmaildir--srv-error nnmaildir--srv 8 "24-hour timer expired" throw return nil] 5] (add-name-to-file nnmaildir--file tmpfile) ((error (byte-code "\301ed\302\303\302\304&\210\305\306!\203�\306 \210\302\207" [tmpfile gmm-write-region nil no-message excl fboundp unix-sync] 8))) nnheader-cancel-timer err (add-name-to-file tmpfile curfile) ((error (byte-code "\306H	>\204�\307\310\311\312#\210\211\313\314\315!PI\210)\f\316
!\203&�\317
!\210)\320\321\322\"\207" [nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #4=#:v err tmpfile file 0 error #3# nnmaildir--srv-error nnmaildir--srv 8 "Error linking: " prin1-to-string file-attributes delete-file throw return nil] 6))) file-attributes delete-file vector cl-struct-nnmaildir--art nnmaildir--grp-add-art nnmaildir--art-num nnmaildir--art 3 #5=#:v srv-dir subdir dir time file nnmaildir--delivery-time nnmaildir--delivery-count x nnmaildir--delivery-pid tmpfile curfile #6=#:v #7=#:v 24h article cl-struct-nnmaildir--art-tags] 8) tmpfile time file dir srv-dir file-coding-system-alist buffer-file-coding-system coding-system-for-write group] 12])
(defalias 'nnmaildir-save-mail #[(group-art) "\300\301\215\207" [return (byte-code "\204	�\306\307\310\"\210\310\211\211\211\211\211&\212eb\210\311 '\312\216\313\314!\2030�\315\316!\210\317y\210\202 �+(\320H)>\204A�\321\322\323\324#\210(\325H@&A&@\326
\"\204c�\327
!\204c�\306\307\310\"\210\330
!\204n�\306\307\310\"\210(\320H)>\204~�\321\322\331\324#\210(\332H\211
\211*
+,\333,+P!,\334\310
\"\211\320H->\204\253�\321\322\335\336#\210\f\325H\211\211@A)\n\f\320H.>\204\306�\321\322\337\340#\210\f\317H\f\320H.>\204\330�\321\322\341\340#\210\f\342HQ\343\310\344\345\"\".\207" [group-art deactivate-mark nnmaildir--file groups x gname throw return nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at "From " replace-match "X-From-Line: " 1 0 error "%s accessing a non-%s" nnmaildir--srv-groups nnmaildir--srv 6 intern-soft nnmaildir-request-create-group nnmaildir-request-accept-article nnmaildir--srv-dir 4 file-name-as-directory nnmaildir--prepare nnmaildir--grp-nlist nnmaildir--grp nnmaildir--art-prefix nnmaildir--art nnmaildir--art-suffix 2 delq mapcar #[(ga) "@\303	\n\"\204�\304	!\205�\305	!\205�\207" [ga gname groups intern-soft 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)] 2])
(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\211\211\211\211\n\f
\310\311\215.\207" [force server gname deactivate-mark nnmaildir-article-file-name nnmaildir--file nnmaildir--prepare nil return (byte-code "\204+�	\306H\n>\204�\307\310\311\312#\210	\211\313\f\203 �\314\fP\202!�\315I\210)\316\317\320
!\"\210\306H)>\204:�\307\310\321\322#\210\323H\324	\f\"*\325*\326\"\203S�\316\317\320
!\"\210\325*\327\"\211+\204\210�,\203j�,\f!\206l�-\211+\330=\203z�\306+\202\210�+\247\203\210�\331+\332_!+.\203\324�+\250\204\232�\316\317\320
!\"\210\333 \211/@+\334\245Z0/\2111A@)+\334\246Z\2112\306W\203\307�2\334\\20S0/A2\240\210/0\240\210	\306H\n>\204\342�\307\310\335\312#\210	\336H\2113\f\2114\f53\33735P!,\2113\2113\34053\33735P!+3\306H)>\204\307\310\341\322#\210\342H6\343
!r\344\345!q\210\3466
\347#\210\350 \210)7\207" [group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v gname ranges 0 error #2="%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8 "No such group: " "No current group" throw return gnus-uncompress-range nnmaildir--grp-name nnmaildir--grp 1 nnmaildir--pgname nnmaildir--param read-only expire-age immediate round 86400 current-time 65536 nnmaildir--srv-dir 4 file-name-as-directory "cur" nnmaildir--grp-nlist 6 reverse get-buffer-create " *nnmaildir move*" nnmaildir--nlist-iterate #[(article) "\306H	>\204�\307\310\311\312#\210\313H\n\306H	>\204\"�\307\310\314\312#\210\315HQ\316\n!\211\2044�\317
\"\207\203\207�\320\f8\203^�\f\203^�@\f@U\203^�A\fA\202A�\203\207�\f\203\207�\321\f\"\203\207�\306H	>\204}�\307\310\322\312#\210\323H B\211 \207\n!\"?\205\230�\212\214\324#\325\"*\211$;\203\305�$#\230\204\305�\326 \210\327\n!\210\330$\331\211\332$\211%:\203\304�\333$%A\"\210)$#\232\203\345�\306H	>\204\333�\307\310\322\312#\210\323H B\211 \207\n&\316&!\203\364�\334&!\210)\317
\"\207" [article cl-struct-nnmaildir--art-tags nnmaildir--file dir time group 0 error #2# nnmaildir--art-prefix nnmaildir--art 1 nnmaildir--art-suffix 2 file-attributes nnmaildir--expired-article 5 car-less-than-car nnmaildir--art-num 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 bound-iter didnt nnmaildir-article-file-name force pgname target group-art file] 7] erase-buffer cl-struct-nnmaildir--grp-tags pgname time nnmail-expiry-wait-function nnmail-expiry-wait no-force boundary high x low dir srv-dir subdir nlist didnt] 5) didnt article stop nlist2 nlist dir target low high bound-iter boundary time pgname group no-force] 18])
(defalias 'nnmaildir-request-set-mark #[(gname actions &optional server) "\306	\"\307H\f>\204�\310\311\312\313#\210\314H	\211	\315P!,\211\316\315P!+\317\211\317\211\317\211 \317\211!\"\317\211#$\317\211%&\317\211'(\317\211)*\317\211+,\317\211-.\320\321\322\323 \324\325\215.\207" [server gname group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags srv-dir nnmaildir--prepare 0 error #1="%s accessing a non-%s" nnmaildir--srv-dir nnmaildir--srv 4 file-name-as-directory "cur" nil #[(mark) "\306H	>\204�\307\310\311\312#\210\313H\306H	>\204�\307\310\314\312#\210\315H\n\316\n\"@)\f\203<�\317\320\f
\"#\210\321\n!\322P!*\211P\211\323!\205c�\324!,\207" [article cl-struct-nnmaildir--art-tags mark nnmaildir-flag-mark-mapping flag suffix 0 error #1# nnmaildir--art-prefix nnmaildir--art 1 nnmaildir--art-suffix 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) "\302	\"\207" [del-mark todo-marks mapcar] 3] #[(article) "\301\302\"\207" [todo-marks mapcar #[(mark) "\306H	>\204�\307\310\311\312#\210\313H\306H	>\204�\307\310\314\312#\210\315H\n\316\n\"@)\f\203>�\317\320\f
\"#\202a�\321\n!\322P!*\211\323PP\324\325\326\217+\207" [article cl-struct-nnmaildir--art-tags mark nnmaildir-flag-mark-mapping flag suffix 0 error #1# nnmaildir--art-prefix nnmaildir--art 1 nnmaildir--art-suffix 2 rassq nnmaildir--article-set-flags nnmaildir--add-flag symbol-name file-name-as-directory ":" err (byte-code "\303\304	\n\")\207" [system-messages-locale permarkfile mfile "C" add-name-to-file] 3) ((error (byte-code "\305!\2069�\306!\203�\307	!\210\310\n!\210\311\n\"\207\312!\2033�\n\313P\310\f!\210\314\f\n\315#\210\311\n\")\207\316@A\"\207" [err mdir permarkfile mfile permarkfilenew nnmaildir--eexist-p nnmaildir--enoent-p nnmaildir--mkdir nnmaildir--mkfile add-name-to-file nnmaildir--emlink-p "{new}" rename-file replace signal] 4))) prefix curdir marksdir subdir dir mdir permarkfile mfile] 6]] 3] #[(article) "	!\210\303\304\n\"\207" [add-action article all-marks mapcar #[(mark) "	>?\205\n�\n!\207" [mark todo-marks del-mark] 2]] 3] return (byte-code "\204D�	\306H\n>\204�\307\310\311\312#\210	\211\313\314\fPI\210)
\315*\211+\203=�+@*\316,*@\",+A\211+\204&�*\317\320,\"\210\306H->\204S�\307\310\321\322#\210\323H.	\306H\n>\204f�\307\310\324\312#\210	\325H\211/\f\2110\f12\32621P!,\211/\2112\32712\32621P!+\211/\2112\33012\32621P!+/\306H->\204\265�\307\310\331\322#\210\332H\333	\f\"3\334	3\"\2114/\315\335\336$%\337\340\341\3425\"\341\343%\"\"!%
\315*\211+\203g+@\211*@,*AA@\2116\3157\211+\203+@7\344\3457\"\210+A\211+\204*,A\247\203$,C,\346.,*\2118A@)\347=\203;9\202\\*\2118A@)\350=\203M:\202\\*\2118A@)\351=\205\\;#\210+A\211+\204\351�*\315\207" [group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #2=#:v gname actions 0 error #1# nnmaildir--srv-error nnmaildir--srv 8 "No such group: " nil gnus-range-add throw return nnmaildir--grp-nlist nnmaildir--grp 6 nnmaildir--srv-dir 4 file-name-as-directory ".nnmaildir" "marks" nnmaildir--grp-name 1 nnmaildir--pgname nnmaildir--group-ls "\\`[^.]" nosort gnus-delete-duplicates append mapcar cdr intern add-to-list all-marks nnmaildir--nlist-iterate del add set action --dolist-tail-- ranges cl-struct-nnmaildir--grp-tags nlist marksdir srv-dir subdir dir pgname ls nnmaildir-flag-mark-mapping todo-marks mark x del-action add-action set-action] 7) subdir dir curdir nnheader-file-coding-system coding-system-for-write buffer-file-coding-system file-coding-system-alist del-mark del-action add-action set-action marksdir nlist ranges begin end article all-marks todo-marks mdir mfile pgname ls permarkfile deactivate-mark] 5])
(defalias 'nnmaildir-close-group #[(gname &optional server) "\306	\"\307\211\211\211\211\211\211-./\2110\204;�1\310H2>\204+�\311\312\313\314#\2101\2113\315\316	PI\210)\307\202\201\3171	\"/\3201/\".1\310H2>\204Z�\311\312\321\314#\2101\322H\211-	\2114	5-\323-5P!,-\324/\325\"\203\222�-\211-\3265-\323-5P!+\202\244�-\211-\3275-\323-5P!+-\211-\3305-\323-5P!+\211-\211-\3315-\323-5P!+.-\211-\3325-\323-5P!+\333\334\335$B\336\337\n\".
\307\334\335$\340\fG!\341\310\"\342 6\343\216\f\3077\2118\203(8@7\344\3457\"\210\346\347\3507\"\"\2108A\2118\204,\n\307-\2118\2038@\211-A\323-@!-\f\3077\2118\203u8@7\3517\"\204l7\352\230\204l-7P7\3537!\2108A\2118\204L*8A\2118\2043*\354.\207" [server gname dirs flist files msgdir nnmaildir--prepare nil 0 error "%s accessing a non-%s" nnmaildir--srv-error nnmaildir--srv 8 "No such group: " nnmaildir--pgname nnmaildir--group-ls nnmaildir--srv-dir 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] nnmaildir--up2-1 make-vector match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\`\\([^:]*\\)\\(:.*\\)?\\'" intern match-string 1 intern-soft ":" 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])
(defalias 'nnmaildir-close-server #[(&optional server) "\306\211\211\211\211\211\211\307\306\"\210\203:�\306\310\311H>\2042�\312\313\314\315#\210\316H\"\210.\317\207" [x file files dir dirs ls nil nnmaildir--prepare unintern 0 error "%s accessing a non-%s" nnmaildir--srv-address nnmaildir--srv 1 t flist server nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir--servers] 7])
(defalias 'nnmaildir-request-close #[nil "\303\211\304\305\n\"\210\306\307	\"\210\310\311!\211\203�\312!\210\310\313!\211\203&�\312!\210\310\314!\211\2032�\312!\210*\315\207" [buffer servers nnmaildir--servers nil mapatoms #[(server) "\302!	B\211\207" [server servers symbol-name] 2] mapc nnmaildir-close-server get-buffer " *nnmaildir work*" kill-buffer " *nnmaildir nov*" " *nnmaildir move*" t] 4])
(provide 'nnmaildir)