ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/nnmaildir.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [require nnheader gnus gnus-util gnus-range gnus-start gnus-int message nnmail] 2)
(defconst nnmaildir-version "Gnus")
#@207 Alist mapping Maildir filename flags to Gnus marks.
Maildir filenames are of the form "unique-id:2,FLAGS",
where FLAGS are a string of characters in ASCII order.
Some of the FLAGS correspond to Gnus marks.
(defconst nnmaildir-flag-mark-mapping '((70 . tick) (80 . forward) (82 . reply) (83 . read)) (#$ . 648))
#@135 Find the Maildir flag that corresponds to MARK (an atom).
Return a character, or nil if not found.
See `nnmaildir-flag-mark-mapping'.
(defalias 'nnmaildir--mark-to-flag #[(mark) "\302 \"@\207" [mark nnmaildir-flag-mark-mapping rassq] 3 (#$ . 966)])
(put 'nnmaildir--mark-to-flag 'byte-optimizer 'byte-compile-inline-expand)
#@132 Find the Gnus mark that corresponds to FLAG (a character).
Return an atom, or nil if not found.
See `nnmaildir-flag-mark-mapping'.
(defalias 'nnmaildir--flag-to-mark #[(flag) " \236A\207" [flag nnmaildir-flag-mark-mapping] 2 (#$ . 1298)])
(put 'nnmaildir--flag-to-mark 'byte-optimizer 'byte-compile-inline-expand)
#@49 Ensure that FILENAME contains the suffix ":2,".
(defalias 'nnmaildir--ensure-suffix #[(filename) "\302\303\304\305#)\266\203\203 \207\302P\207" [filename inhibit-changing-match-data ":2," nil t string-match] 7 (#$ . 1619)])
#@76 Return a copy of SUFFIX where FLAG is set.
SUFFIX should start with ":2,".
(defalias 'nnmaildir--add-flag #[(flag suffix) "\306\307\310\311#)\266\203\204 \312\313\"\210\314\307O\315\n\307\"\316\317\f B\320\"!\260 \321
P+\207" [suffix inhibit-changing-match-data flags flags-as-list flag new-flags "^:2," nil t string-match error "Invalid suffix `%s'" 3 append gnus-delete-duplicates sort < ":2,"] 7 (#$ . 1857)])
#@80 Return a copy of SUFFIX where FLAG is cleared.
SUFFIX should start with ":2,".
(defalias 'nnmaildir--remove-flag #[(flag suffix) "\306\307\310\311#)\266\203\204 \312\313\"\210\314\307O\315\n\307\"\316\f \"\260 \317
P+\207" [suffix inhibit-changing-match-data flags flags-as-list flag new-flags "^:2," nil t string-match error "Invalid suffix `%s'" 3 append delq ":2,"] 7 (#$ . 2287)])
#@107 *The filename of the most recently requested article. This variable is set
by nnmaildir-request-article.
(defvar nnmaildir-article-file-name nil (#$ . -2690))
(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]))
(defalias 'nnmaildir--art-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags) t)) nil] 7])
(put 'nnmaildir--art-p 'compiler-macro 'nnmaildir--art-p--cmacro)
(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])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put nnmaildir--art-p side-effect-free error-free put nnmaildir--art cl-deftype-satisfies] 4)
(defalias 'nnmaildir--art-prefix--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-prefix (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags)) (signal 'wrong-type-argument (list 'nnmaildir--art cl-x))) (aref cl-x 1)) nil] 7])
(put 'nnmaildir--art-prefix 'compiler-macro 'nnmaildir--art-prefix--cmacro)
(defalias 'nnmaildir--art-prefix #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--art-tags 0 signal wrong-type-argument nnmaildir--art 1] 4])
(function-put 'nnmaildir--art-prefix 'side-effect-free t)
(defalias 'nnmaildir--art-suffix--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-suffix (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags)) (signal 'wrong-type-argument (list 'nnmaildir--art cl-x))) (aref cl-x 2)) nil] 7])
(put 'nnmaildir--art-suffix 'compiler-macro 'nnmaildir--art-suffix--cmacro)
(defalias 'nnmaildir--art-suffix #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--art-tags 0 signal wrong-type-argument nnmaildir--art 2] 4])
(function-put 'nnmaildir--art-suffix 'side-effect-free t)
(defalias 'nnmaildir--art-num--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-num (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags)) (signal 'wrong-type-argument (list 'nnmaildir--art cl-x))) (aref cl-x 3)) nil] 7])
(put 'nnmaildir--art-num 'compiler-macro 'nnmaildir--art-num--cmacro)
(defalias 'nnmaildir--art-num #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--art-tags 0 signal wrong-type-argument nnmaildir--art 3] 4])
(function-put 'nnmaildir--art-num 'side-effect-free t)
(defalias 'nnmaildir--art-msgid--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-msgid (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags)) (signal 'wrong-type-argument (list 'nnmaildir--art cl-x))) (aref cl-x 4)) nil] 7])
(put 'nnmaildir--art-msgid 'compiler-macro 'nnmaildir--art-msgid--cmacro)
(defalias 'nnmaildir--art-msgid #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--art-tags 0 signal wrong-type-argument nnmaildir--art 4] 4])
(function-put 'nnmaildir--art-msgid 'side-effect-free t)
(defalias 'nnmaildir--art-nov--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--art-nov (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--art-tags)) (signal 'wrong-type-argument (list 'nnmaildir--art cl-x))) (aref cl-x 5)) nil] 7])
(put 'nnmaildir--art-nov 'compiler-macro 'nnmaildir--art-nov--cmacro)
(defalias 'nnmaildir--art-nov #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--art-tags 0 signal wrong-type-argument nnmaildir--art 5] 4])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put nnmaildir--art-nov side-effect-free t defalias copy-nnmaildir--art copy-sequence] 4)
#@60
(fn CL-WHOLE &cl-quote &key PREFIX SUFFIX NUM MSGID NOV)
(defalias 'make-nnmaildir--art--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@ \306\313\"A@ \203V @\314>\203= AA\211\202( \315>A@\203L \316\211\202( \317\320@\"\210\202& )\321\322\323\316\316 \n \f
&\n-\207" [#1# prefix suffix num msgid nov plist-member :prefix :suffix :num :msgid :nov (:prefix :suffix :num :msgid :nov :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:prefix :suffix :num :msgid :nov)" cl--defsubst-expand (prefix suffix num msgid nov) (cl-block make-nnmaildir--art "Constructor for objects of type `nnmaildir--art'." (declare (side-effect-free t)) (vector 'cl-struct-nnmaildir--art prefix suffix num msgid nov)) #2=#:--cl-keys-- cl-whole] 12 (#$ . 8254)])
(put 'make-nnmaildir--art 'compiler-macro 'make-nnmaildir--art--cmacro)
#@90 Constructor for objects of type `nnmaildir--art'.
(fn &key PREFIX SUFFIX NUM MSGID NOV)
(defalias 'make-nnmaildir--art #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@ \306\313\"A@ \203V @\314>\203= AA\211\202( \315>A@\203L \316\211\202( \317\320@\"\210\202& )\321\322 \n \f
&-\207" [#1# prefix suffix num msgid nov plist-member :prefix :suffix :num :msgid :nov (:prefix :suffix :num :msgid :nov :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:prefix :suffix :num :msgid :nov)" vector cl-struct-nnmaildir--art #2=#:--cl-keys--] 8 (#$ . 9170)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-nnmaildir--art side-effect-free t cl-struct-define nnmaildir--art nil cl-structure-object ((cl-tag-slot) (prefix nil :type string) (suffix nil :type string) (num nil :type natnum) (msgid nil :type string) (nov nil :type vector)) cl-struct-nnmaildir--art-tags cl-struct-nnmaildir--art] 10)
(defalias 'nnmaildir--grp-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 12) (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags) t)) nil] 7])
(put 'nnmaildir--grp-p 'compiler-macro 'nnmaildir--grp-p--cmacro)
(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])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put nnmaildir--grp-p side-effect-free error-free put nnmaildir--grp cl-deftype-satisfies] 4)
(defalias 'nnmaildir--grp-name--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 1)) nil] 7])
(put 'nnmaildir--grp-name 'compiler-macro 'nnmaildir--grp-name--cmacro)
(defalias 'nnmaildir--grp-name #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 signal wrong-type-argument nnmaildir--grp 1] 4])
(function-put 'nnmaildir--grp-name 'side-effect-free t)
(defalias 'nnmaildir--grp-new--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-new (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 2)) nil] 7])
(put 'nnmaildir--grp-new 'compiler-macro 'nnmaildir--grp-new--cmacro)
(defalias 'nnmaildir--grp-new #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 signal wrong-type-argument nnmaildir--grp 2] 4])
(function-put 'nnmaildir--grp-new 'side-effect-free t)
(defalias 'nnmaildir--grp-cur--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-cur (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 3)) nil] 7])
(put 'nnmaildir--grp-cur 'compiler-macro 'nnmaildir--grp-cur--cmacro)
(defalias 'nnmaildir--grp-cur #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 signal wrong-type-argument nnmaildir--grp 3] 4])
(function-put 'nnmaildir--grp-cur 'side-effect-free t)
(defalias 'nnmaildir--grp-min--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-min (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 4)) nil] 7])
(put 'nnmaildir--grp-min 'compiler-macro 'nnmaildir--grp-min--cmacro)
(defalias 'nnmaildir--grp-min #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 signal wrong-type-argument nnmaildir--grp 4] 4])
(function-put 'nnmaildir--grp-min 'side-effect-free t)
(defalias 'nnmaildir--grp-count--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-count (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 5)) nil] 7])
(put 'nnmaildir--grp-count 'compiler-macro 'nnmaildir--grp-count--cmacro)
(defalias 'nnmaildir--grp-count #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 signal wrong-type-argument nnmaildir--grp 5] 4])
(function-put 'nnmaildir--grp-count 'side-effect-free t)
(defalias 'nnmaildir--grp-nlist--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-nlist (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 6)) nil] 7])
(put 'nnmaildir--grp-nlist 'compiler-macro 'nnmaildir--grp-nlist--cmacro)
(defalias 'nnmaildir--grp-nlist #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 signal wrong-type-argument nnmaildir--grp 6] 4])
(function-put 'nnmaildir--grp-nlist 'side-effect-free t)
(defalias 'nnmaildir--grp-flist--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-flist (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 7)) nil] 7])
(put 'nnmaildir--grp-flist 'compiler-macro 'nnmaildir--grp-flist--cmacro)
(defalias 'nnmaildir--grp-flist #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 signal wrong-type-argument nnmaildir--grp 7] 4])
(function-put 'nnmaildir--grp-flist 'side-effect-free t)
(defalias 'nnmaildir--grp-mlist--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-mlist (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 8)) nil] 7])
(put 'nnmaildir--grp-mlist 'compiler-macro 'nnmaildir--grp-mlist--cmacro)
(defalias 'nnmaildir--grp-mlist #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 signal wrong-type-argument nnmaildir--grp 8] 4])
(function-put 'nnmaildir--grp-mlist 'side-effect-free t)
(defalias 'nnmaildir--grp-cache--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-cache (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 9)) nil] 7])
(put 'nnmaildir--grp-cache 'compiler-macro 'nnmaildir--grp-cache--cmacro)
(defalias 'nnmaildir--grp-cache #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 signal wrong-type-argument nnmaildir--grp 9] 4])
(function-put 'nnmaildir--grp-cache 'side-effect-free t)
(defalias 'nnmaildir--grp-index--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-index (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 10)) nil] 7])
(put 'nnmaildir--grp-index 'compiler-macro 'nnmaildir--grp-index--cmacro)
(defalias 'nnmaildir--grp-index #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 signal wrong-type-argument nnmaildir--grp 10] 4])
(function-put 'nnmaildir--grp-index 'side-effect-free t)
(defalias 'nnmaildir--grp-mmth--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--grp-mmth (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--grp-tags)) (signal 'wrong-type-argument (list 'nnmaildir--grp cl-x))) (aref cl-x 11)) nil] 7])
(put 'nnmaildir--grp-mmth 'compiler-macro 'nnmaildir--grp-mmth--cmacro)
(defalias 'nnmaildir--grp-mmth #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--grp-tags 0 signal wrong-type-argument nnmaildir--grp 11] 4])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put nnmaildir--grp-mmth side-effect-free t defalias copy-nnmaildir--grp copy-sequence] 4)
#@90
(fn CL-WHOLE &cl-quote &key NAME NEW CUR MIN COUNT NLIST FLIST MLIST CACHE INDEX MMTH)
(defalias 'make-nnmaildir--grp--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"\206 \313A@ \306\314\"\206( \315A@ \306\316\"A@ \306\317\"A@ \306\320\"A@ \306\321\"A@ \306\322\"A@ \306\323\"A@ ! \"\"\203\216 \"@\324>\203u \"AA\211\"\202` \325>A@\203\204 \326\211\"\202` \327\330\"@\"\210\202^ )\331\332\333\326#\326 \n \f
!&. \207" [#1# name new cur min count plist-member :name :new :cur :min (nil 1) :count (nil 0) :nlist :flist :mlist :cache :index :mmth (:name :new :cur :min :count :nlist :flist :mlist :cache :index :mmth :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :new :cur :min :count :nlist :flist :mlist :cache :index :mmth)" cl--defsubst-expand (name new cur min count nlist flist mlist cache index mmth) (cl-block make-nnmaildir--grp "Constructor for objects of type `nnmaildir--grp'." (declare (side-effect-free t)) (vector 'cl-struct-nnmaildir--grp name new cur min count nlist flist mlist cache index mmth)) nlist flist mlist cache index mmth #2=#:--cl-keys-- cl-whole] 18 (#$ . 17978)])
(put 'make-nnmaildir--grp 'compiler-macro 'make-nnmaildir--grp--cmacro)
#@120 Constructor for objects of type `nnmaildir--grp'.
(fn &key NAME NEW CUR MIN COUNT NLIST FLIST MLIST CACHE INDEX MMTH)
(defalias 'make-nnmaildir--grp #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"\206 \313A@ \306\314\"\206( \315A@ \306\316\"A@ \306\317\"A@ \306\320\"A@ \306\321\"A@ \306\322\"A@ \306\323\"A@ !!\203\216 !@\324>\203u !AA\211!\202` \325>A@\203\204 \326\211!\202` \327\330!@\"\210\202^ )\331\332 \n \f
&\f. \207" [#1# name new cur min count plist-member :name :new :cur :min (nil 1) :count (nil 0) :nlist :flist :mlist :cache :index :mmth (:name :new :cur :min :count :nlist :flist :mlist :cache :index :mmth :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :new :cur :min :count :nlist :flist :mlist :cache :index :mmth)" vector cl-struct-nnmaildir--grp nlist flist mlist cache index mmth #2=#:--cl-keys--] 14 (#$ . 19275)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-nnmaildir--grp side-effect-free t cl-struct-define nnmaildir--grp nil cl-structure-object ((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-nnmaildir--grp-tags cl-struct-nnmaildir--grp] 10)
(defalias 'nnmaildir--srv-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 12) (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags) t)) nil] 7])
(put 'nnmaildir--srv-p 'compiler-macro 'nnmaildir--srv-p--cmacro)
(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])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put nnmaildir--srv-p side-effect-free error-free put nnmaildir--srv cl-deftype-satisfies] 4)
(defalias 'nnmaildir--srv-address--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-address (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 1)) nil] 7])
(put 'nnmaildir--srv-address 'compiler-macro 'nnmaildir--srv-address--cmacro)
(defalias 'nnmaildir--srv-address #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 1] 4])
(function-put 'nnmaildir--srv-address 'side-effect-free t)
(defalias 'nnmaildir--srv-method--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-method (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 2)) nil] 7])
(put 'nnmaildir--srv-method 'compiler-macro 'nnmaildir--srv-method--cmacro)
(defalias 'nnmaildir--srv-method #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 2] 4])
(function-put 'nnmaildir--srv-method 'side-effect-free t)
(defalias 'nnmaildir--srv-prefix--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-prefix (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 3)) nil] 7])
(put 'nnmaildir--srv-prefix 'compiler-macro 'nnmaildir--srv-prefix--cmacro)
(defalias 'nnmaildir--srv-prefix #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 3] 4])
(function-put 'nnmaildir--srv-prefix 'side-effect-free t)
(defalias 'nnmaildir--srv-dir--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-dir (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 4)) nil] 7])
(put 'nnmaildir--srv-dir 'compiler-macro 'nnmaildir--srv-dir--cmacro)
(defalias 'nnmaildir--srv-dir #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 4] 4])
(function-put 'nnmaildir--srv-dir 'side-effect-free t)
(defalias 'nnmaildir--srv-ls--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-ls (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 5)) nil] 7])
(put 'nnmaildir--srv-ls 'compiler-macro 'nnmaildir--srv-ls--cmacro)
(defalias 'nnmaildir--srv-ls #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 5] 4])
(function-put 'nnmaildir--srv-ls 'side-effect-free t)
(defalias 'nnmaildir--srv-groups--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-groups (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 6)) nil] 7])
(put 'nnmaildir--srv-groups 'compiler-macro 'nnmaildir--srv-groups--cmacro)
(defalias 'nnmaildir--srv-groups #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 6] 4])
(function-put 'nnmaildir--srv-groups 'side-effect-free t)
(defalias 'nnmaildir--srv-curgrp--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-curgrp (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 7)) nil] 7])
(put 'nnmaildir--srv-curgrp 'compiler-macro 'nnmaildir--srv-curgrp--cmacro)
(defalias 'nnmaildir--srv-curgrp #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 7] 4])
(function-put 'nnmaildir--srv-curgrp 'side-effect-free t)
(defalias 'nnmaildir--srv-error--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-error (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 8)) nil] 7])
(put 'nnmaildir--srv-error 'compiler-macro 'nnmaildir--srv-error--cmacro)
(defalias 'nnmaildir--srv-error #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 8] 4])
(function-put 'nnmaildir--srv-error 'side-effect-free t)
(defalias 'nnmaildir--srv-mtime--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-mtime (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 9)) nil] 7])
(put 'nnmaildir--srv-mtime 'compiler-macro 'nnmaildir--srv-mtime--cmacro)
(defalias 'nnmaildir--srv-mtime #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 9] 4])
(function-put 'nnmaildir--srv-mtime 'side-effect-free t)
(defalias 'nnmaildir--srv-gnm--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-gnm (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 10)) nil] 7])
(put 'nnmaildir--srv-gnm 'compiler-macro 'nnmaildir--srv-gnm--cmacro)
(defalias 'nnmaildir--srv-gnm #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 10] 4])
(function-put 'nnmaildir--srv-gnm 'side-effect-free t)
(defalias 'nnmaildir--srv-target-prefix--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block nnmaildir--srv-target-prefix (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-nnmaildir--srv-tags)) (signal 'wrong-type-argument (list 'nnmaildir--srv cl-x))) (aref cl-x 11)) nil] 7])
(put 'nnmaildir--srv-target-prefix 'compiler-macro 'nnmaildir--srv-target-prefix--cmacro)
(defalias 'nnmaildir--srv-target-prefix #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 11] 4])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put nnmaildir--srv-target-prefix side-effect-free t defalias copy-nnmaildir--srv copy-sequence] 4)
#@105
(fn CL-WHOLE &cl-quote &key ADDRESS METHOD PREFIX DIR LS GROUPS CURGRP ERROR MTIME GNM TARGET-PREFIX)
(defalias 'make-nnmaildir--srv--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@ \306\313\"A@ \306\314\"A@ \306\315\"A@ \306\316\"A@ \306\317\"A@ \306\320\"A@ \306\321\"A@ \203\206 @\322>\203m AA\211 \202X \323>A@\203| \324\211 \202X \325\326 @\"\210\202V )\327\330\331\324 \324 \n \f
&. \207" [#1# address method prefix dir ls plist-member :address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix (:address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix)" cl--defsubst-expand (address method prefix dir ls groups curgrp error mtime gnm target-prefix) (cl-block make-nnmaildir--srv "Constructor for objects of type `nnmaildir--srv'." (declare (side-effect-free t)) (vector 'cl-struct-nnmaildir--srv address method prefix dir ls groups curgrp error mtime gnm target-prefix)) groups curgrp mtime gnm target-prefix #2=#:--cl-keys-- cl-whole] 18 (#$ . 28624)])
(put 'make-nnmaildir--srv 'compiler-macro 'make-nnmaildir--srv--cmacro)
#@135 Constructor for objects of type `nnmaildir--srv'.
(fn &key ADDRESS METHOD PREFIX DIR LS GROUPS CURGRP ERROR MTIME GNM TARGET-PREFIX)
(defalias 'make-nnmaildir--srv #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@ \306\313\"A@ \306\314\"A@ \306\315\"A@ \306\316\"A@ \306\317\"A@ \306\320\"A@ \306\321\"A@ \203\206 @\322>\203m AA\211 \202X \323>A@\203| \324\211 \202X \325\326 @\"\210\202V )\327\330 \n \f
&\f. \207" [#1# address method prefix dir ls plist-member :address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix (:address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:address :method :prefix :dir :ls :groups :curgrp :error :mtime :gnm :target-prefix)" vector cl-struct-nnmaildir--srv groups curgrp mtime gnm target-prefix #2=#:--cl-keys--] 14 (#$ . 29974)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-nnmaildir--srv side-effect-free t cl-struct-define nnmaildir--srv nil cl-structure-object ((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-nnmaildir--srv-tags cl-struct-nnmaildir--srv] 10)
(defalias 'nnmaildir--article-set-flags #[(article new-suffix curdir) "\306H >\204 \307\310\311D\"\210\312H\306H >\204\" \307\310\311D\"\210\313H\f\n Q \f\nQ \314
!\204= \315\316
\"\210\317
\320#\210\306H >\204S \307\310\311D\"\210\211 \313I-\207" [article cl-struct-nnmaildir--art-tags prefix suffix curdir article-file 0 signal wrong-type-argument nnmaildir--art 1 2 file-exists-p error "Couldn't find article file %s" rename-file replace new-suffix new-name #1=#:v] 5])
(defalias 'nnmaildir--expired-article #[(group article) "\306H >\204 \307\310\311D\"\210\211\312\313I\210) \306H\f>\204& \307\310\314 D\"\210 \315H \306H\f>\2048 \307\310\314 D\"\210 \316H \306H\f>\204J \307\310\314 D\"\210 \317H \306H\f>\204\\ \307\310\314 D\"\210 \312HS\306H >\204o \307\310\311D\"\210\320H\306H >\204\201 \307\310\311D\"\210\317H\313\321\313\211 \306U\204 \306H\f>\204\261 \307\310\314 D\"\210 \322H\306H >\204\305 \307\310\311D\"\210\323H\211@@=\203\332 A\202A
@@U\204\374 A\202\347 A
=\203@@ \324 \306H\f>\204 \307\310\314 D\"\210 \211 \317 I\210) \306H\f>\2049\307\310\314 D\"\210 \211 !\312I\210) \306H\f>\204R\307\310\314 D\"\210 \211 \"\322I\210)\241\210\325 \"\210\325 \". \207" [article cl-struct-nnmaildir--art-tags #1=#:v group cl-struct-nnmaildir--grp-tags num 0 signal wrong-type-argument nnmaildir--art 5 nil nnmaildir--grp 7 8 4 1 (nil) 6 3 t unintern nlist-post nlist-pre new-nlist msgid prefix count min mlist flist inhibit-quit #2=#:v #3=#:v #4=#:v] 11])
(defalias 'nnmaildir--nlist-art #[(group num) " \304H\n>\204 \305\306\307 D\"\210 \310H\236\211\205 A)\207" [num group cl-struct-nnmaildir--grp-tags entry 0 signal wrong-type-argument 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\310D\"\210\311H\211\203 \n P\202M \312 \305H >\204. \306\307\310D\"\210\313H\"\305H >\204B \306\307\310D\"\210\211 \311\314 !I\210) )\207" [server cl-struct-nnmaildir--srv-tags prefix gname #1=#:v 0 signal wrong-type-argument nnmaildir--srv 3 gnus-group-prefixed-name 2 gnus-group-real-prefix] 7])
(defalias 'nnmaildir--param #[(pgname param) "\302 \303#\304 !\203 \305H\306 !\207" [pgname param gnus-group-find-parameter allow-list vectorp 0 eval] 4])
(defalias 'nnmaildir--with-nntp-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer nntp-server-buffer] 3]))
(put 'nnmaildir--with-nntp-buffer 'edebug-form-spec '(body))
(defalias 'nnmaildir--with-work-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (get-buffer-create " *nnmaildir work*")] 3]))
(put 'nnmaildir--with-work-buffer 'edebug-form-spec '(body))
(defalias 'nnmaildir--with-nov-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (get-buffer-create " *nnmaildir nov*")] 3]))
(put 'nnmaildir--with-nov-buffer 'edebug-form-spec '(body))
(defalias 'nnmaildir--with-move-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (get-buffer-create " *nnmaildir move*")] 3]))
(put 'nnmaildir--with-move-buffer 'edebug-form-spec '(body))
(defalias 'nnmaildir--subdir #[(dir subdir) "\302 P!\207" [dir subdir file-name-as-directory] 3])
(put 'nnmaildir--subdir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--srvgrp-dir #[(srv-dir gname) " \304 \nP!*\207" [srv-dir gname subdir dir file-name-as-directory] 3])
(put 'nnmaildir--srvgrp-dir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--tmp #[(dir) "\302\303 P!*\207" [dir subdir "tmp" file-name-as-directory] 3])
(put 'nnmaildir--tmp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--new #[(dir) "\302\303 P!*\207" [dir subdir "new" file-name-as-directory] 3])
(put 'nnmaildir--new 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--cur #[(dir) "\302\303 P!*\207" [dir subdir "cur" file-name-as-directory] 3])
(put 'nnmaildir--cur 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--nndir #[(dir) "\302\303 P!*\207" [dir subdir ".nnmaildir" file-name-as-directory] 3])
(put 'nnmaildir--nndir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--nov-dir #[(dir) "\302\303 P!*\207" [dir subdir "nov" file-name-as-directory] 3])
(put 'nnmaildir--nov-dir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--marks-dir #[(dir) "\302\303 P!*\207" [dir subdir "marks" file-name-as-directory] 3])
(put 'nnmaildir--marks-dir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--num-dir #[(dir) "\302\303 P!*\207" [dir subdir "num" file-name-as-directory] 3])
(put 'nnmaildir--num-dir 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnmaildir--unlink '(macro . #[(file-arg) "\301\302DC\303BB\207" [file-arg let file ((if (file-attributes file) (delete-file file)))] 3]))
(defalias 'nnmaildir--mkdir #[(dir) "\301\302!!\206
\303\304!!\207" [dir file-exists-p file-name-as-directory make-directory-internal directory-file-name] 3])
(defalias 'nnmaildir--mkfile #[(file) "\301\302\303\303\304%\207" [file write-region "" nil no-message] 6])
(defalias 'nnmaildir--delete-dir-files #[(dir ls) "\302!\205 \303\304 \305\306\307$\"\210\310!\207" [dir ls file-attributes mapc delete-file full "\\`[^.]" nosort delete-directory] 7])
(defalias 'nnmaildir--group-maxnum #[(server group) "\3062\357 \307H >\204 \310\311\312D\"\210\313H\307U\203 \314\306\307\"\210\n\307H >\204/ \310\311\315\nD\"\210\n\316H\307H >\204A \310\311\312D\"\210\317H \211 \f \320P!,\317\321\211\211\211 \211 \211 \322 \320P!+\211\211 \323 \320P!+\324\325 !P!\211 \204\241 \314\306 S\"\210\326 8 A@ \\ \317W\204\303 W\203\310 \310\327\330\"\210\324\325!P!\211 \204\336 \314\306S\"\210 \326 8\232\204\213 \202\213 \207" [group cl-struct-nnmaildir--grp-tags server cl-struct-nnmaildir--srv-tags gname srv-dir return 0 signal wrong-type-argument nnmaildir--grp 5 throw nnmaildir--srv 4 1 file-name-as-directory nil ".nnmaildir" "num" file-attributes number-to-string 10 error ("Arithmetic overflow") subdir dir number-linked nlink ino-opened attr number-opened] 7])
(defalias 'nnmaildir--prepare #[(server group) "\3062\364\204 \211\204) \307\306\310\"\210\202) \311\n\"\211\204$ \307\306\310\"\210J\211\312H >\2048 \313\314\315D\"\210\316H\211 \205\362\312H >\204O \313\314\315D\"\210\317H\204\322\312H >\204d \313\314\315D\"\210\211 \317\320\312H >\204x \313\314\315D\"\210\321HP\211\203\212 <\203\212 \206\307\322 \"A\206\307\323\232\203\236 \206\255\322!\"A\206\255\322\"\"A\206\255# $$\203\326 \324\325$@@@$@@A@#\232\204\326 $\211A$\210\202\264 $@@)\206\255% &&\203\324\325&@@&@A@#\232\204&\211A&\210\202\342 &@)\206\255'A\310\211 ( ) **\203\252\326*\211A*\2428\211);\204)\310\327 + , )\3302\232)\206? ),\204L\331\332 \"\210\331\333!\"D\"\210)A@\334\235\203g\324\335)@\"\202q\324\325)@)A@#\211 -)B\211 . \235\204\226+\204\226\322.@ \"\204\226. B -*0+\232\203)(\310\211*\204(+\211 /\203\304\322 \"\204\304/B B /))\206\317\307\306\310\"I\210)0\204\354\312H >\204\346\313\314\315D\"\210\336H\202\362\3110\f\"J)0\207" [server nnmaildir--cur-server nnmaildir--servers cl-struct-nnmaildir--srv-tags groups #1=#:v return throw nil intern-soft 0 signal wrong-type-argument nnmaildir--srv 6 2 "nnmaildir:" 1 assoc "native" format "%s:%s" 4 t server-name 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 "") "%s" 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 name name-method result group] 8])
(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\3142\342 \315 !P \204= \202G \316
!\210\312 \317 \320
!\211 !A@ \"\321!8 \"\\ \"\311W\204l \"W\203q \322\323\324\"\210* U\203\201 \322\323\325
D\"\210 \315 !P\3261\237 \327 #\330
\f\"\210\331\314 \")0\202\336 $\332$!\203\263 \310 \211 \202\335 \333$!\203\325 \320\f! !\321!8 \232?\205\321 \317\211 )\202\335 \322$@$A\")\210\202) .\207" [nndir dir subdir ino-open path-link path-open "num" file-name-as-directory t 1 nil nnmaildir--mkdir return number-to-string nnmaildir--mkfile 0 file-attributes 10 signal error ("Arithmetic overflow") "Corrupt internal nnmaildir data" (error) "C" add-name-to-file throw nnmaildir--emlink-p nnmaildir--eexist-p previous-number-link number-link number-open make-new-file numdir attr nlink system-messages-locale err] 9 (#$ . 40593)])
(defalias 'nnmaildir--update-nov #[(server group article) "\306\307H >\204 \310\311\312D\"\210\313H\314\315\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211 @ A B C D E F G H I J K L M N O P Q R S\3162\356T\307HU>\204k \310\311\317TD\"\210T\314HO\320O\"NRO O\211 RO V P\321PVP!,P\322N\323\"\203\256 P\211 P\324 V P\321PVP!+\202\300 P\211 P\325 V P\321PVP!+MW\307HX>\204\324 \310\311\326WD\"\210W\314HLW\307HX>\204\354 \310\311\326WD\"\210W\327HKMLKQJ\330J!\211I\204\331TW\"\210\332\316\315\"\210\333I8H\334I8IW\307HX>\204/\310\311\326WD\"\210W\333HEP\211 P\335 V P\321PVP!+\211P\211 P\336 V P\321PVP!+\211GLPFYZ\232\204p\337Z!Yr\340\341!q\210\342F!\204\203\315E\202*E\204*\343 \210\344F!\210\345p!E\346E!\203\256EG\307U\204\256QE\307H\232\204\264\315E\202*W\307HX>\204\306\310\311\326WD\"\210W\347H\204\354W\307HX>\204\337\310\311\326WD\"\210W\211 [\347E\314HI\210)W\307HX>\204\376\310\311\326WD\"\210W\313H\204$W\307HX>\204\310\311\326WD\"\210W\211 \\\313E\327HI\210)E\347HEE\203mHE\347H\232\203mE\313HY\f\232\203RE\313YI\210\332\316E\"\210Y\204]\332\316E\"\210\315\350\351Y\">\204m\332\316E\"\210\343 \210\344J!\210\352c\210eb\210\214\353\354\315\355#\203\222\356`d\"Be`S}\210\202\225\307Beb\210\357\314!\210\360 \211E\334H\206\247\307@)@\307U\204\275\322N\361\"\204\275@B\362B!B\362I!\363BQB\364 ]\365\216E\333H\206\333\366@\367@!\210@\363BQB\370\371E\314HE\327HE\347HE\363#C\370\372E\373H\363#A*E\313H\211D\203%D ^\364 ]\374\216\375\376^\"+\203.\377L\201a QD\367D!\210\201b CBAHY%EW\307HX>\204U\310\311\326WD\"\210W\347H\211\204\201\201c P!W\307HX>\204w\310\311\326WD\"\210W\211 _\347 I\210)\343 \210\201d \201b Q DE$p\"\210F\201e P\211J J\330J!\203\256\201f J!\210)\201g edJ\315\201h \315\201i &\210)\201j JF\201k #\210W\307HX>\204\340\310\311\326WD\"\210W\211 `\313DI\210)E0.\207" [server cl-struct-nnmaildir--srv-tags deactivate-mark num old-extra val binary 0 signal wrong-type-argument nnmaildir--srv 4 1 nil return nnmaildir--grp nnmaildir--pgname file-name-as-directory nnmaildir--param read-only "new" "cur" nnmaildir--art 2 file-attributes nnmaildir--expired-article throw 5 7 ".nnmaildir" "nov" copy-sequence get-buffer-create " *nnmaildir nov*" file-exists-p erase-buffer nnheader-insert-file-contents read vectorp 3 mapcar #[(e) " >\207" [e old-extra] 2] "\n" search-forward "\n\n" noerror count-lines delete-char nnheader-parse-naked-head distrust-Lines: number-to-string " " match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] #1="" nnmaildir--tab-to-space mapconcat #[(f) "\301\206 \302!\207" [f nnmaildir--tab-to-space #1#] 2] #[(extra) "\303@!A\304 !\210\304\n!\210 \305\nQ\207" [extra field val symbol-name nnmaildir--tab-to-space ": "] 3] 9 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\\`fake\\+none\\+.*\\+[0-9]+\\'" "<" field nov-end nov-mid nov-beg msgid nov novfile novdir mtime attr file suffix prefix msgdir pgname gname dir storage-version srv-dir nnheader-file-coding-system group cl-struct-nnmaildir--grp-tags subdir article cl-struct-nnmaildir--art-tags nnmaildir--extra nnmail-extra-headers #2=#:v #3=#:v save-match-data-internal id #4=#:v #5=#:v "@nnmaildir>" vector nnmaildir--new-number prin1 ":" delete-file gmm-write-region no-message excl rename-file replace] 25])
(defalias 'nnmaildir--cache-nov #[(group article nov) "\306H >\204 \307\310\311D\"\210\312H\306H >\204! \307\310\311D\"\210\313H\314
\306H>\2048 \307\310\315
D\"\210
\316H\204\200 \f H\211\203_ \n\306H>\204V \307\310\315\nD\"\210\n\211 \316\314I\210)\f
I\210\306H >\204s \307\310\311D\"\210\211 \313 T\fG\246I\210)
\306H>\204\220 \307\310\315
D\"\210
\211 \316I,\207" [group cl-struct-nnmaildir--grp-tags goner index cache article 0 signal wrong-type-argument nnmaildir--grp 9 10 nil nnmaildir--art 5 cl-struct-nnmaildir--art-tags #1=#:v #2=#:v #3=#:v nov] 6])
(defalias 'nnmaildir--grp-add-art #[(server group article) "\306 \n#\307\211\211\211\211\211 \211 \205\231 \310H >\204* \311\312\313 D\"\210 \314HT\n\310H >\204@ \311\312\315\nD\"\210\n\316H\317U\203Q \202g \310H >\204c \311\312\313 D\"\210 \320H^ \310H >\204y \311\312\313 D\"\210 \321H\211\203\212
@@V\203\224 \nB
B\202\257 \322
A\211\203\257 \f@@W\203\257 \f\211A\211\204\235 \322 \310H >\204\302 \311\312\313 D\"\210 \211 \314I\210) \310H >\204\334 \311\312\313 D\"\210 \211 \320I\210) \203\366
\nB\fB\241\210\202 \310H >\204\311\312\313 D\"\210 \211 !\321
I\210)\323\n\310H >\204 \311\312\315\nD\"\210\n\317H \310H >\2043\311\312\313 D\"\210 \324H\"\nL\210\323\n\310H >\204K\311\312\315\nD\"\210\n\320H \310H >\204^\311\312\313 D\"\210 \325H\"\nL\210\323 \310H >\204v\311\312\313 D\"\210 \317H\310H\">\204\211\311\312\326D\"\210\321H\" L\210)\327 \n#\210\322.\207" [server group article insert-nlist nlist-cdr nlist nnmaildir--update-nov nil 0 signal wrong-type-argument nnmaildir--grp 5 nnmaildir--art 3 1 4 6 t intern 7 8 nnmaildir--srv nnmaildir--cache-nov min num count nov cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags inhibit-quit #1=#:v #2=#:v #3=#:v cl-struct-nnmaildir--srv-tags] 8])
(defalias 'nnmaildir--group-ls #[(server pgname) "\303\304\"\206 \305H\n>\204 \306\307\310 D\"\210 \311H\207" [pgname server cl-struct-nnmaildir--srv-tags nnmaildir--param directory-files 0 signal wrong-type-argument nnmaildir--srv 5] 4])
(defalias 'nnmaildir-article-number-to-file-name #[(number group-name server-address-string) "\306 \"\307\211\211 \3102\250
\204 \311\310\307\"\210\312
\"\211\204' \311\310\307\"\210\313 \"\314H>\204? \315\316\317D\"\210\320H\211 \211 \321 P!,\322\n\323\"\203p \211\324 \321 P!+\202~ \211\325 \321 P!+\211\f\314H >\204\220 \315\316\326\fD\"\210\f\327H\f\314H >\204\243 \315\316\326\fD\"\210\f\330HQ0,\207" [server-address-string group-name pgname dir article group nnmaildir--prepare nil return throw nnmaildir--nlist-art nnmaildir--pgname 0 signal wrong-type-argument nnmaildir--srv 4 file-name-as-directory nnmaildir--param read-only "new" "cur" nnmaildir--art 1 2 number nnmaildir--cur-server cl-struct-nnmaildir--srv-tags gname srv-dir subdir cl-struct-nnmaildir--art-tags] 7])
(defalias 'nnmaildir-article-number-to-base-name #[(number group-name server-address-string) "\305 \"\211\2057 \306\n \"\211\2057 \n\307H\f>\204! \310\311\312\nD\"\210\n\313H\n\307H\f>\2043 \310\311\312\nD\"\210\n\314HB)\207" [server-address-string group-name x number cl-struct-nnmaildir--art-tags nnmaildir--prepare nnmaildir--nlist-art 0 signal wrong-type-argument nnmaildir--art 1 2] 6])
(defalias 'nnmaildir-base-name-to-article-number #[(base-name group-name server-address-string) "\306 \"\211\2058 \n\307H >\204 \310\311\312\nD\"\210\n\313H\314\f\n\"J\211\2058 \n\307H
>\2045 \310\311\315\nD\"\210\n\316H)\207" [server-address-string group-name x cl-struct-nnmaildir--grp-tags base-name cl-struct-nnmaildir--art-tags nnmaildir--prepare 0 signal wrong-type-argument nnmaildir--grp 7 intern-soft nnmaildir--art 3] 5])
(defalias 'nnmaildir--nlist-iterate #[(nlist ranges func) "\306\211\211\211\f\307=\203 \310
@@BC\f\205\214 \f@\fA\211\2031 \f@=\2031 \fA\211\204# \247\203= \202C @ A
\3112c \205b @@\nX\203Z \312\311\306\"\210A\211\204M \3060\210\3112\210 \205\207 @A @ W\203~ \312\311\306\"\210 A!\210\202h 0\210\202 ,\207" [nlist2 low high entry ranges nlist nil all 1 iterate-loop throw func] 5])
(defalias 'nnmaildir--up2-1 #[(n) "\301U\203 \302\207\303\302\304!T\"S\207" [n 0 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 D\"\210 \311H\207" [server nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir--prepare nil 0 signal wrong-type-argument nnmaildir--srv 8] 4])
(defalias 'nnmaildir-server-opened #[(&optional server) "\2059 \203 \303H\n>\204 \304\305\306D\"\210\307H\230\202 \310\2059 \303H\n>\2042 \304\305\306D\"\210\311H\2059 \310\207" [nnmaildir--cur-server server cl-struct-nnmaildir--srv-tags 0 signal wrong-type-argument nnmaildir--srv 1 t 6] 5])
(defalias 'nnmaildir-open-server #[(server &optional defs) "\306\211\3072\371\310 \f\"\211\203> J\211\203Y \311H
>\204) \312\313\314D\"\210\315H\203Y \211.\203Y \316\307\317\"\210\202Y \320\321 \306\211\211\211\211\211\211\211\211\211&\f\317 /\322 \f\"L\210)\3230\236\211\204 \311H
>\204q \312\313\314D\"\210\211 1\324\325I\210)\316\307\306\"\210\nA@\326\n!\327\n!\330\n!\331\n!\204\264 \311H
>\204\244 \312\313\314D\"\210\211 2\324\332\nPI\210)\316\307\306\"\210\311H
>\204\303 \312\313\314D\"\210\211 3\333\nI\210)\3340\236\211\204\343 4\203\336 \334\202\337 \335\202 A@\336 !\204\311H
>\204\374 \312\313\314D\"\210\211 5\324\337\340 !PI\210)\316\307\306\"\210\311H
>\204 \312\313\314D\"\210\211 6\341 I\210) \n\306\342\343$G\344 !\3450\236\211\203e A\211\203e @\203e\311H
>\204V\312\313\314D\"\210\211 7\346\317I)\203e\347\350!\210\3510\236\211\203\221 A@\326 !\311H
>\204\205\312\313\314D\"\210\211 8\352 I\210)\202\331\3530\236\211\203\301 A@\326 !\330 !\311H
>\204\265\312\313\314D\"\210\211 9\352 I\210)\202\331\311H
>\204\320\312\313\314D\"\210\211 :\352\354I\210)\311H
>\204\350\312\313\314D\"\210\211 ;\315\355 \311\"I\210).\3170+\207" [server size dir x nnmaildir--servers cl-struct-nnmaildir--srv-tags nil return intern-soft 0 signal wrong-type-argument nnmaildir--srv 6 throw t vector cl-struct-nnmaildir--srv intern directory 8 "You must set \"directory\" in the select method" eval expand-file-name file-name-as-directory file-exists-p "No such directory: " 4 directory-files nnheader-directory-files-safe functionp "Not a function: " prin1-to-string 5 "\\`[^.]" nosort nnmaildir--up2-1 get-new-mail 10 require nnmail target-prefix 11 create-directory "" make-vector nnmaildir--cur-server inhibit-quit defs #1=#:v #2=#:v #3=#:v nnheader-directory-files-is-safe #4=#:v #5=#:v #6=#:v #7=#:v #8=#:v #9=#:v #10=#:v] 14])
(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) "\3022e :\203 \303\302 :\205 @ @\231\"\210 :\203! \303\302\304\"\210\305H \305HW\2030 \303\302\304\"\210\305H \305HV\203? \303\302\306\"\210\307H \307HW\203N \303\302\304\"\210\307H \307HV\203] \303\302\306\"\210\310H \310H\2310\207" [a b return throw t 0 nil 1 2] 4])
(defalias 'nnmaildir--scan #[(gname scan-msgs groups _method srv-dir srv-ls) "\3062\366\307 @\310Z\311\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211 @ # A B C D E F G H I JKL L\211 KL M\312 MP!,\211I\211\313 M\312 MP!+H\314I!\204\212 N\315HO>\204x \316\317\320ND\"\210N\211 P\321\322IPI\210)\323\306\311\"\210I\211\324 M\312 MP!+GI\211\325 M\312 MP!+FI\211\326 M\312 MP!+E\327F!D\327E!C\314G!\203\332 D\203\332 C\204\376 N\315HO>\204\354 \316\317\320ND\"\210N\211 Q\321\330IPI\210)\323\306\311\"\210\331\311L\"\332NL\"A \203\311B\202S\333B\334\335L\311\211\336\315\311\211\211\211\315\311&\f\337H!\210\337H\211\340 M\312 MP!+!\210\337H\211\341 M\312 MP!+!\210\342A\343\"#\342A\344\"\206dR@#\204\344\345\327G!8\211\345D8\232\203\204\345C8\232\204\250N\315HO>\204\226\316\317\320ND\"\210N\211 S\321\346IPI\210)\323\306\311\"\210@G\347\350\351$\311 T\211 U\203\343U@T\327T!\211A@\336V\204\325\3528@JW\203\332\353T!\210UA\211U\204\271*V\204\363B\204\363\323\306\333\"\210\354D8\211D \315HW>\204\n\316\317\355 D\"\210 \310H\232\203\311D#\203)B\204#D\205%F\202\272B\2043D\203\212@F\311\350\351$\311 T\211 U\203oU@TFTP\356\354\327!8\307 \"\203f\357E\360T!P\"\210UA\211U\204D* \315HW>\204\200\316\317\355 D\"\210 \211 X\310DI\210)\354\327E!8\211C \315HW>\204\243\316\317\355 D\"\210 \361H\232\203\255\311CB\204\267C\205\271E \204\303\323\306\333\"\210@ \311\350\351$\362 Y\363\216\364\365
\"*B\203B\366
G! \315HW>\204\361\316\317\355 D\"\210 \211 Z\367\370\f\315\"I\210) \315HW>\204
\316\317\355 D\"\210 \211 [\321\370\f\315\"I\210) \315HW>\204)\316\317\355 D\"\210 \211 \\\345\370\336\315\"I\210)\342A\371\"\211\247\203K\f\336W\203 \336\202 \372H\211\341 M\312 MP!+\211E\373 M\312 MP!*FE\374 M\312 MP!*E
\311 ]\211 U\203\nU@\211]@]A ^ _^;\203\351\375\376^\"\203\351\377\201h `\201i `a\"@)!^\311\333 b\201j #)\266\203\203\375\377\201k `\201i `a\"@)!^\311\333 b\201j #)\266\203\204\375\314E_P!\203\375\314F_P!\203 \fT*UA\211U\204\205* \315HW>\204\316\317\355 D\"\210 \211 c\201l \370\f\311\"I\210)\333 d\201m Le\" L\210)V\204B\323\306\333\"\210 \315HW>\204R\316\317\355 D\"\210 \367H\364\201n
\"\201o \311
\"\364\201p
\"\201q
\201r \"\211\311 T\211 U\203\265U@\211T:\203\215T\202\221T\361HT\334\201s T@TA\311\211\211&\201t N #\210UA\211U\204~*#\203\330 \315HW>\204\313\316\317\355 D\"\210 \211 f\310DI\210)\202\362 \315HW>\204\350\316\317\355 D\"\210 \211 g\361CI\210).\3330\207" [x group flist dir num files return current-time 2 nil file-name-as-directory ".nnmaildir" file-exists-p 0 signal wrong-type-argument nnmaildir--srv 8 "No such directory: " throw "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 time-less-p rename-file nnmaildir--ensure-suffix 3 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] mapcar #[(f) "\301\302\"\210\303\304\"\303\305\"B\207" [f string-match "\\`\\([^:]*\\)\\(\\(:.*\\)?\\)\\'" match-string 1 2] 4] nnmaildir--up2-1 7 make-vector nov-cache-size 16 "tick" "read" gnus-string-prefix-p ":2," string 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 inhibit-changing-match-data #8=#:v inhibit-quit groups #9=#:v #10=#:v read rassq string-match tick 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])
(defalias 'nnmaildir-request-scan #[(&optional scan-group server) "\306\211\307\306\211\211\211\211\211\211\211\211\211\211 ' ( ) * + , - . / 0\3101\306\"\2102\311H3>\204@ \312\313\3142D\"\2102\315H)2\311H3>\204X \312\313\3142D\"\2102\316H(2\311H3>\204p \312\313\3142D\"\2102\317H'2\311H3>\204\210 \312\313\3142D\"\2102\320H2\311H3>\204\237 \312\313\3142D\"\2102\321Hr\322\323!q\210\324 4\325\2165;\203\363 \3265\307
'()&\203\352 2\311H3>\204\330 \312\313\3142D\"\2102\327H\203\351\330\331\306\2115$\210\202\351\3325
\"\210\202\351\315\333(!8*5?5*2\311H3>\204\312\313\3142D\"\2102\334H\232\203)5\203\305\335\336
\"\210\202\305)(\306\337\340$\fG\311U\203= \202A\341\342 \"\343 G!\344\n\311\" \306 6\211 7\203{7@6\32665
'()&\203r\3456\n\"\2107A\2117\204V*\306*\335\346
\"\210*\306 8\211 7\203\2437@8\3328
\"\2107A\2117\204\217*2\311H3>\204\266\312\313\3142D\"\2102\211 9\334\315\333(!8I\210)5\203\3512\311H3>\204\334\312\313\3142D\"\2102\327H\203\351\330\331\306\211#\210.\307\207" [nnheader-file-coding-system deactivate-mark seen dirs target-prefix groups nil t nnmaildir--prepare 0 signal wrong-type-argument nnmaildir--srv 5 4 2 6 11 get-buffer-create " *nnmaildir work*" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] nnmaildir--scan 10 nnmail-get-new-mail nnmaildir unintern file-attributes 9 mapatoms #[(sym) "\305\306!\307 \n \f&\207" [sym groups method srv-dir srv-ls nnmaildir--scan symbol-name t] 7] "\\`[^.]" nosort 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] method srv-dir srv-ls x nnmaildir-active-file nnmaildir-group-alist nnmaildir-get-new-mail file-coding-system-alist buffer-file-coding-system coding-system-for-write server nnmaildir--cur-server cl-struct-nnmaildir--srv-tags save-match-data-internal scan-group grp-dir --dolist-tail-- grp #1=#:v] 16])
(defalias 'nnmaildir-request-list #[(&optional server) "\306\307\"\210\310\211\211\311\310\"\210r\fq\210\312 \210\313\314
\315H>\204) \316\317\320
D\"\210
\321H\"\210,\322\207" [server deactivate-mark ro pgname nntp-server-buffer nnmaildir--cur-server nnmaildir-request-scan find-new-groups nil nnmaildir--prepare erase-buffer mapatoms #[(group) "\306!\307\n \"J\310 \311\"\312\313H\f>\204! \314\315\316D\"\210\317H\320\321\322$\320\261\210\323\324\n\"
\"\210\320c\210\323\313H\f>\204G \314\315\316D\"\210\325H
\"\210\320 \203V \326\202W \327\330\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 signal wrong-type-argument nnmaildir--grp 1 " " "\\ " t princ nnmaildir--group-maxnum 4 "n" "y" "\n"] 5] 0 signal wrong-type-argument nnmaildir--srv 6 t cl-struct-nnmaildir--srv-tags] 6])
(defalias 'nnmaildir-request-newgroups #[(_date &optional server) "\301!\207" [server nnmaildir-request-list] 2])
(defalias 'nnmaildir-retrieve-groups #[(groups &optional server) "\306\211\307\n\306\"\210r q\210\310 \210\f\306 \211 \203\200 @\307\306
\"\211\204, \311c\210\202w \312c\210\313 \314H>\204@ \315\316\317 D\"\210 \320H \"\210\321c\210\313 \314H>\204Z \315\316\317 D\"\210 \322H \"\210\321c\210\313\323 \" \"\210\321\324
\321\325\326$\327\261\210A\211\204 -\301\207" [deactivate-mark group server nntp-server-buffer groups gname nil nnmaildir--prepare erase-buffer "411 no such news group\n" "211 " princ 0 signal wrong-type-argument nnmaildir--grp 5 " " 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 D\"\210 \313H \211 @ A\314A@P!,\211 A\315 @ A\314A@P!+ B\316\317B!8 C\320\211 D E\320\211 \320\211 F A\320\211 G H\320\211 I J\320\211 K\320\211 L M\320\211 N O\320\211 P Q\3212\311\n\204\237 \307H\f>\204\217 \310\311\312 D\"\210 \211 R\322\323 PI\210)\324\321\320\"\210\n\307HS>\204\257 \310\311\325\nD\"\210\n\326H\327 \"D\n\307HS>\204\311 \310\311\325\nD\"\210\n\330HE\n\307HS>\204\336 \310\311\325\nD\"\210\n\316H\307U\203\372 TAA\320\240\210\331T\320\332#\210\324\321T\"\210\333\334T8B\211F\332T8BF\335D\336\" \335D\337\" \n\307HS>\204(\310\311\325\nD\"\210\n\340HO\341\342O\"\211O\237O\343O\344\"O\326\345 \n\"BCP\346PO\"P \307H\f>\204_\310\311\312 D\"\210 \313H\211A \211 @ A\314A@P!,\211A\211 A\347 @ A\314A@P!+\211A\211 A\350 @ A\314A@P!+A\351 D\"K\352\353\341\354U\"\341\355KA\320\356\357$\"\"!G\360GG!M\361M\307\"M\n\307HS>\204\331\310\311\325\nD\"\210\n\362HLG\320 V\211 W\203\225W@VA\363V! @ A\314A@P!*J\320I\3642nV >\203\324\364\320\"\210V >\203'OI\324\364\320\"\210\316\317J!8 XV V\365VU\"@)\204CX\202gX\204MC\202gC\204WX\202g\366XC\"\203eC\202gX)N\355\363V!M\"NL\210N\367\363V!L\"J\232\203\232VF\236\211I\203\225IAI\324\364\320\"\210\320 YV V\365VU\"@)\211 Z\205\n\370\371Z!P [KB\320[\357$\320 \\\211 W\205 W@\\\372\\\373\"@ ]\367]E\"J\211 ^\203\376^\307H_>\204\365\310\311\374^D\"\210^\332HYBY*WA\211W\204\311\320+)\204^\375J!\203^KJ\320\356\357$\320 ]\211 W\203]W@]\367]E\"J\211 ^\203S^\307H_>\204J\310\311\374^D\"\210^\332HYBY)WA\211W\204&*\376I\377Y\201a \"\"\211I)0\210V\333=\203}I\202\214I\203\214VIBHBHWA\211W\204\351*TAA\201b P\"\240\210\331TH\332#\210\n\307HS>\204\274\310\311\325\nD\"\210\n\211 `\362MI\210)T0.\207" [server gname group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags srv-dir nnmaildir--prepare 0 signal wrong-type-argument nnmaildir--srv 4 file-name-as-directory "cur" 5 file-attributes nil return 8 "No such group: " throw nnmaildir--grp 1 nnmaildir--pgname 7 gnus-info-set-entry 3 read 2 nnmaildir--param always-marks never-marks 6 mapcar car gnus-compress-sequence always-list nnmaildir--group-maxnum gnus-range-difference ".nnmaildir" "marks" nnmaildir--group-ls gnus-delete-duplicates append cdr intern "\\`[^.]" nosort nnmaildir--up2-1 make-vector 11 symbol-name got-ranges rassq time-less-p intern-soft "\\`[^.].*:2,[A-Z]*" string split-string ":2," nnmaildir--art file-directory-p gnus-add-to-range sort subdir dir curdir curdir-mtime pgname flist old-marks all-marks marks ranges markdir ls old-mmth new-mmth mtime existing missing deactivate-mark #1=#:v cl-struct-nnmaildir--grp-tags info nnmaildir-flag-mark-mapping mark --dolist-tail-- markdir-mtime article-list flag regexp filename prefix article cl-struct-nnmaildir--art-tags #2=#:v < gnus-range-add] 11])
(defalias 'nnmaildir-request-group #[(gname &optional server fast _info) "\306 \"\307\3102\250 \204. \f\311H
>\204 \312\313\314\fD\"\210\f\211 \315\316 PI\210)\317\310\307\"\210\f\311H
>\204= \312\313\314\fD\"\210\f\211 \320 I\210) \203P \317\310\321\"\210r q\210\322 \210\323c\210\324 \311H!>\204l \312\313\325 D\"\210 \326H \"\210\327c\210\324 \311H!>\204\207 \312\313\325 D\"\210 \330H \"\210\327c\210\324\331\f \" \"\210\327\332 \327\333\321$\334\261\210)\3210*\207" [server gname deactivate-mark group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags nnmaildir--prepare nil return 0 signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw 7 t erase-buffer "211 " princ nnmaildir--grp 5 " " 4 nnmaildir--group-maxnum gnus-replace-in-string "\\ " "\n" #1=#:v #2=#:v fast nntp-server-buffer cl-struct-nnmaildir--grp-tags] 7])
(defalias 'nnmaildir-request-create-group #[(gname &optional server _args) "\306\307\"\210\3102d \311H\n>\204 \312\313\314 D\"\210 \315H\307\211\211 ()G\311U\203H \311H\n>\204: \312\313\314 D\"\210 \211 *\316\317I\210)\320\310\307\"\210\321\311H)\311H=\203p \311H\n>\204b \312\313\314 D\"\210 \211 +\316\322I\210)\320\310\307\"\210\323 ,\324\216\325\326)\"*\203\237 \311H\n>\204\216 \312\313\314 D\"\210 \211 -\316\327)PI\210)\320\310\307\"\210 \311H\n>\204\256 \312\313\314 D\"\210 \330H\331) \"\203\332 \311H\n>\204\311 \312\313\314 D\"\210 \211 .\316\332)PI\210)\320\310\307\"\210 \311H\n>\204\351 \312\313\314 D\"\210 \333H\334(!\203\374 \335(!\202
\336\f!\211(P\f) / \337\f/P!*\340\f!\210\340\f\211 \341 / \337\f/P!+!\210\340\f\211 \342 / \337\f/P!+!\210\340\f\211 \343 / \337\f/P!+!\210(\344\230\204_\345()P
)P\"\210\346\347!,0\207" [server nnmaildir--cur-server cl-struct-nnmaildir--srv-tags groups dir srv-dir nnmaildir--prepare nil return 0 signal wrong-type-argument nnmaildir--srv 11 8 "Invalid (empty) group name" throw "." "Group names may not start with \".\"" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "[ / ]" "Invalid characters (null, tab, or /) in group name: " 6 intern-soft "Group already exists: " 4 file-name-absolute-p expand-file-name file-truename file-name-as-directory nnmaildir--mkdir "tmp" "new" "cur" "" make-symbolic-link nnmaildir-request-scan find-new-groups target-prefix gname #1=#:v #2=#:v save-match-data-internal #3=#:v #4=#:v subdir] 5])
(defalias 'nnmaildir-request-rename-group #[(gname new-name &optional server) "\306 \"\n\307\211\211\211\211 ( ) * +\3102\322+\204A ,\311H->\2040 \312\313\314,D\"\210,\211 .\315\316 PI\210)\317\310\307\"\210/G\311U\203j ,\311H->\204[ \312\313\314,D\"\210,\211 0\315\320I\210)\317\310\307\"\210\321\311H/\311H=\203\226 ,\311H->\204\207 \312\313\314,D\"\210,\211 1\315\322I\210)\317\310\307\"\210\323 2\324\216\325\326/\"*\203\311 ,\311H->\204\267 \312\313\314,D\"\210,\211 3\315\327/PI\210)\317\310\307\"\210 /\230\203\325 \317\310\330\"\210\331/,\311H->\204\352 \312\313\314,D\"\210,\332H\"\203,\311H->\204\312\313\314,D\"\210,\211 4\315\333/PI\210)\317\310\307\"\210,\311H->\204(\312\313\314,D\"\210,\334H\3351>\336
P
/P\"0\202f 5,\311H->\204R\312\313\314,D\"\210,\211 6\315\337\3405!PI\210)\317\310\307\")\210,\311H->\204y\312\313\314,D\"\210,\332H\341\fG\311\"\342\343\f\"\210\344+!\211+\311H7>\204\240\312\313\345+D\"\210+\211 8\346/I\210)\347/ \"+L\210,\311H->\204\306\312\313\314,D\"\210,\211 9\332 I\210)\3300.\207" [server gname nnheader-file-coding-system groups x srv-dir nnmaildir--prepare nil return 0 signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw "Invalid (empty) group name" "." "Group names may not start with \".\"" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "[ / ]" "Invalid characters (null, tab, or /) in group name: " t intern-soft 6 "Group already exists: " 4 (error) rename-file "Error renaming link: " prin1-to-string make-vector mapatoms #[(sym) "J =?\205 \303\304!\n\"JL\207" [sym group groups intern symbol-name] 3] copy-sequence nnmaildir--grp 1 intern file-coding-system-alist buffer-file-coding-system coding-system-for-write group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v new-name #2=#:v #3=#:v save-match-data-internal #4=#:v #5=#:v err #6=#:v cl-struct-nnmaildir--grp-tags #7=#:v #8=#:v] 8])
(defalias 'nnmaildir-request-delete-group #[(gname force &optional server) "\306 \"\307\211\211\211\211\211 0 1 2\3102\2652\204@ 3\311H4>\204/ \312\313\3143D\"\2103\211 5\315\316 PI\210)\317\310\307\"\2102\311H6>\204R \312\313\3202D\"\2102\321H\3223 \"13\311H4>\204p \312\313\3143D\"\2103\323H0\3240 P!@0 \211 7 8 \325\f8P!,09\204\277
;\204\277 3\311H4>\204\256 \312\313\3143D\"\2103\211 :\315\326 PI\210)\317\310\307\"\21023\311H4>\204\323 \312\313\3143D\"\2103\327H=\203\367 3\311H4>\204\355 \312\313\3143D\"\2103\211 ;\327\307I\210)\330 3\311H4>\204 \312\313\3143D\"\2103\331H\"\2109\204/\3320!\2110 <\324<!\203+\333<!\210)\202\263\33431\"\3351\336\"\203\203\3370\211 \340 8 \325\f8P!+!\2100\211 \341 8 \325\f8P!+ <\324<!\203m\333<!\210)\3370\211 \342 8 \325\f8P!+!\210\202\274\3430\211 \340 8 \325\f8P!+ \"\210\3430\211 \341 8 \325\f8P!+ \"\210\3430\211 \342 8 \325\f8P!+ \"\2100\211 \344 8 \325\f8P!+\211\211 \345 8 \325\f8P!+\f\211 \346 8 \325\f8P!+ \f\211 \347 8 \325\f8P!+\350\351\352$BB\307 8\211 =\203=@8\3438 \"\210=A\211=\204*0\211 \344 8 \325\f8P!+\211\353P <\324<!\203<\333<!\210)\f\354P <\324<!\203N\333<!\210)\337\f\211 \347 8 \325\f8P!+!\210\337\f!\210
;\204q\3370!\210\202\263\3320!0
\355\311H\f\311H=\204\236\3563\311H4>\204\226\312\313\3143D\"\2103\323H!\fP\337\f!\2100 <\324<!\203\262\333<!\210)\3570.\207" [server gname deactivate-mark ls dir target nnmaildir--prepare nil return 0 signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw nnmaildir--grp 1 nnmaildir--pgname 4 file-attributes file-name-as-directory "Not a symlink: " 7 unintern 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 grp-dir pgname group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v cl-struct-nnmaildir--grp-tags srv-dir subdir force #2=#:v #3=#:v file --dolist-tail--] 8])
(defalias 'nnmaildir-retrieve-headers #[(articles &optional gname server fetch-old) "\306 \"\307\211\211\211\211\211\211\211\211 \310\3112L \204S !\312H\">\204: \313\314\315!D\"\210!\211 #\316 \203J \317 P\202K \320I\210)\321\311\307\"\210r$q\210\322 \210 \312H%>\204m \313\314\323 D\"\210 \316H \312H%>\204\205 \313\314\323 D\"\210 \324H \312H%>\204\235 \313\314\323 D\"\210 \325H \203C&\203\274 &\247\204\274 \326 \327 #\210\202C'\203C'@;\203\367 '\307 (\211 )\203\363 )@(\330( \"J\211 \203\352 !\210)A\211)\204\323 *\202C&\203;'@\331'!@
\247\203
\202
@\247\203 \202!A
&Z\211\325W\2032\325\2023
\211BC'\326 ' #\210\332\325ed#\210)\3040.\n\207" [server gname deactivate-mark insert-nov nov stop nnmaildir--prepare nil #[(article) "\306 \n#\211\205] \307 \n #\210\n\310H\f>\204 \311\312\313\nD\"\210\n\314H\315
\"\210\316 \310H\316\n\310H\f>\204= \311\312\313\nD\"\210\n\317H\316 \320H\321\322\323\324\325$\326\261 \210\315
\"\210\316 \327H\330\261\207" [nnmaildir--cur-server group article nov cl-struct-nnmaildir--art-tags num nnmaildir--update-nov nnmaildir--cache-nov 0 signal wrong-type-argument nnmaildir--art 3 princ " " 4 1 " Xref: nnmaildir " gnus-replace-in-string " " "\\ " t ":" 2 "\n" nntp-server-buffer gname] 13] return 0 signal wrong-type-argument nnmaildir--srv 8 "No such group: " "No current group" throw erase-buffer nnmaildir--grp 6 1 nnmaildir--nlist-iterate all intern-soft last sort-numeric-fields start num article mlist nlist group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v nntp-server-buffer cl-struct-nnmaildir--grp-tags fetch-old articles msgid --dolist-tail--] 11])
(defalias 'nnmaildir-request-article #[(num-msgid &optional gname server to-buffer) "\306 \"\307\310\211\211\211\211 * + ,\3112\265,\204H -\312H.>\204/ \313\314\315-D\"\210-\211 /\316 \203? \317 P\202@ \320I\210)\321\311\310\"\2100\247\203X \322,0\"\202\330 ,\312H1>\204j \313\314\323,D\"\210,\316H*\3240*\"J\211\203\224
\312H2>\204\214 \313\314\325
D\"\210
\326H0\202\263 \3272\262 \330\331-\312H.>\204\254 \313\314\315-D\"\210-\332H\"0\210
\204\330 -\312H.>\204\311 \313\314\315-D\"\210-\211 3\316\333I\210)\321\311\310\"\210,\312H1>\204\352 \313\314\323,D\"\210,\334H\335- \"-\312H.>\204\313\314\315-D\"\210-\336H\211 \211 4 5 \337\f5P!,\340 \341\"\2036\f\211 \342 5 \337\f5P!+\202D\f\211 \343 5 \337\f5P!+\211
\312H2>\204V\313\314\325
D\"\210
\334H
\312H2>\204i\313\314\325
D\"\210
\344HQ6\3456!\204\235\346,
\"\210-\312H.>\204\216\313\314\315-D\"\210-\211 7\316\347I\210)\321\311\310\"\210r8\206\2459q\210\350 \210\3516!\210) 0B0.\207" [server gname deactivate-mark pgname dir article nnmaildir--prepare t nil return 0 signal wrong-type-argument nnmaildir--srv 8 "No such group: " "No current group" throw nnmaildir--nlist-art nnmaildir--grp intern-soft nnmaildir--art 3 found mapatoms #[(group-sym) "J\211\306H\n>\204 \307\310\311 D\"\210 \312H\313\f \"J\211\2058
\306H>\2040 \307\310\314
D\"\210
\315H\316\317\320\"\207" [group-sym group cl-struct-nnmaildir--grp-tags list num-msgid article 0 signal wrong-type-argument nnmaildir--grp 8 intern-soft nnmaildir--art 3 throw found nil cl-struct-nnmaildir--art-tags] 5] 6 "No such article" 1 nnmaildir--pgname 4 file-name-as-directory nnmaildir--param read-only "new" "cur" 2 file-exists-p nnmaildir--expired-article "Article has expired" erase-buffer nnheader-insert-file-contents list case-fold-search group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v num-msgid cl-struct-nnmaildir--grp-tags cl-struct-nnmaildir--art-tags #2=#:v srv-dir subdir nnmaildir-article-file-name #3=#:v to-buffer nntp-server-buffer] 8])
(defalias 'nnmaildir-request-post #[(&optional _server) "\302 )\207" [message-required-mail-headers message-send-mail-function nil] 1])
(defalias 'nnmaildir-request-replace-article #[(number gname buffer) "\306\307\" \307\211\211\211\211\211\211\211 ' ( ) * + ,\3102o,\204I -\311H.>\2048 \312\313\314-D\"\210-\211 /\315\316PI\210)\317\310\307\"\210\320\321-\"\322\"\203x -\311H.>\204f \312\313\314-D\"\210-\211 0\315\323,PI\210)\317\310\307\"\210-\311H.>\204\212 \312\313\314-D\"\210-\324H\211(\211 1 2 (\325(2P!,(\326,3\"\211\204\326 -\311H.>\204\302 \312\313\314-D\"\210-\211 4\315\327\3303!PI\210)\317\310\307\"\210
\311H5>\204\346 \312\313\331
D\"\210
\332H
\311H5>\204\372 \312\313\331
D\"\210
\333H'(\211 (\334 2 (\325(2P!+'P\335 !\203>-\311H.>\204-\312\313\314-D\"\210-\211 6\315\336 PI\210)\317\310\307\"\210r7q\210\337ed \307\340\307\341&\210)\342 \210\343 (\211 (\344 2 (\325(2P!+'\fQ\345#\210\3460.\n\207" [gname nnheader-file-coding-system deactivate-mark tmpfile suffix article nnmaildir--prepare nil return 0 signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw nnmaildir--param nnmaildir--pgname read-only "Read-only group: " 4 file-name-as-directory nnmaildir--nlist-art "No such article: " number-to-string nnmaildir--art 2 1 "tmp" file-exists-p "File exists: " gmm-write-region no-message excl unix-sync rename-file "cur" replace t file dir file-coding-system-alist buffer-file-coding-system coding-system-for-write group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v #2=#:v srv-dir subdir number #3=#:v cl-struct-nnmaildir--art-tags #4=#:v buffer] 11])
(defalias 'nnmaildir-request-move-article #[(article gname server accept-form &optional _last _move-is-internal) "\306 \"\307\211\211\211\211 ' (\3102x(\204= )\311H*>\204, \312\313\314)D\"\210)\211 +\315\316 PI\210)\317\310\307\"\210(\311H,>\204O \312\313\320(D\"\210(\321H\322) \"'\323(-\"\211-\204\210 )\311H*>\204y \312\313\314)D\"\210)\211 .\315\324I\210)\317\310\307\"\210-\311H/>\204\232 \312\313\325-D\"\210-\326H)\311H*>\204\261 \312\313\314)D\"\210)\327H\211 \211 0 1 2\33021P!,\331'\332\"\203\346 \211 2\333 1 2\33021P!+\202\367 \211 2\334 1 2\33021P!+\211-\311H/>\204 \312\313\325-D\"\210-\321H
Q\335 !\204@\336(-\"\210)\311H*>\2041\312\313\314)D\"\210)\211 3\315\337I\210)\317\310\307\"\210r\340\341!q\210\342 \210\343 !\210\3444!)\f\203v\331'\332\"\204v 5\3455!\203n\3465!\210)\336(-\"\210\f0.\207" [server gname deactivate-mark nnmaildir--file result suffix nnmaildir--prepare nil return 0 signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw nnmaildir--grp 1 nnmaildir--pgname nnmaildir--nlist-art "No such article" nnmaildir--art 2 4 file-name-as-directory nnmaildir--param read-only "new" "cur" file-exists-p nnmaildir--expired-article "Article has expired" get-buffer-create " *nnmaildir move*" erase-buffer nnheader-insert-file-contents eval file-attributes delete-file pgname group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v cl-struct-nnmaildir--grp-tags article #2=#:v cl-struct-nnmaildir--art-tags srv-dir subdir dir #3=#:v accept-form file] 7])
(defalias 'nnmaildir-request-accept-article #[(gname &optional server _last) "\306 \"\n\307\211\211\211\211\211\211\211\211\211 : ; < = > ? @ A B\3102GB\204P C\311HD>\204? \312\313\314CD\"\210C\211 E\315\316 PI\210)\317\310\307\"\210B\311HF>\204b \312\313\320BD\"\210B\321H\322\323C \"\324\"\203\225 C\311HD>\204\204 \312\313\314CD\"\210C\211 G\315\325 PI\210)\317\310\307\"\210C\311HD>\204\247 \312\313\314CD\"\210C\326H\211> \211 > H =\327=HP!,=\330 ;\331\332;\"<I<\230\204\334 <I\311J;A:\203\370 ;AA:\203\370 <\333\334;AA@!Q<<KP\211<\335\334J!Q\211<\336\337 Q<=\211 =\340 H =\327=HP!+<P:=\211 =\341 H =\327=HP!+<\342Q\343:!\203hC\311HD>\204V\312\313\314CD\"\210C\211 L\315\344:PI\210)\317\310\307\"\210\343
!\203\221C\311HD>\204\200\312\313\314CD\"\210C\211 M\315\344
PI\210)\317\310\307\"\210JTJ\345\346\307\347#\3501\252\351N:\"0\202\277\210\352ed:\307\353\307\354&\210\355\356!\203\300\356 \210\357\f!\210\3601\321\351:
\"0\202\n OC\311HD>\204\345\312\313\314CD\"\210C\211 P\315\361\362O!PI\210): <\363<!\203\364<!\210)\317\310\307\")\210: <\363<!\203\364<!\210)\365\366<\342\307\211\211&\367CB #\205F \311HQ>\204B\312\313\370 D\"\210 \371HB0.\f\207" [server gname nnheader-file-coding-system article 24h curfile nnmaildir--prepare nil return 0 signal wrong-type-argument nnmaildir--srv 8 "No such group: " throw nnmaildir--grp 1 nnmaildir--param nnmaildir--pgname read-only "Read-only group: " 4 file-name-as-directory current-time format-time-string "%s." "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\nD\"\210\n\211 \313\314I\210)\315\316\317\"\207" [tmpfile file nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v file-attributes delete-file 0 signal wrong-type-argument nnmaildir--srv 8 "24-hour timer expired" throw return nil] 5] (error) add-name-to-file gmm-write-region no-message excl fboundp unix-sync nnheader-cancel-timer (error) "Error linking: " prin1-to-string file-attributes delete-file vector cl-struct-nnmaildir--art nnmaildir--grp-add-art nnmaildir--art 3 tmpfile time file dir srv-dir file-coding-system-alist buffer-file-coding-system coding-system-for-write group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #2=#:v cl-struct-nnmaildir--grp-tags #3=#:v subdir nnmaildir--delivery-time nnmaildir--delivery-count nnmaildir--delivery-pid #4=#:v #5=#:v nnmaildir--file err #6=#:v cl-struct-nnmaildir--art-tags] 13])
(defalias 'nnmaildir-save-mail #[(group-art) "\3062\357 \204
\307\306\310\"\210\310\211\211\211\211\211 !\212eb\210\311 \"\312\216\313\314!\2034 \315\316!\210\317y\210\202$ +#\320H$>\204G \321\322\323#D\"\210#\324H@!A!@\325
\"\204i \326
!\204i \307\306\310\"\210\327
!\204t \307\306\310\"\210#\320H$>\204\206 \321\322\323#D\"\210#\330H\211
\211 %
& '\331'&P!,\332\310
\"\211\320H(>\204\264 \321\322\333\fD\"\210\f\324H\211@A\n\f\320H)>\204\315 \321\322\334\fD\"\210\f\317H\f\320H)>\204\340 \321\322\334\fD\"\210\f\335HQ\336\310\337\340\"\".0\207" [group-art deactivate-mark nnmaildir--file groups x gname return throw nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at "From " replace-match "X-From-Line: " 1 0 signal wrong-type-argument nnmaildir--srv 6 intern-soft nnmaildir-request-create-group nnmaildir-request-accept-article 4 file-name-as-directory nnmaildir--prepare nnmaildir--grp nnmaildir--art 2 delq mapcar #[(ga) "@\303 \n\"\204 \304 !\205 \305 !\205 \207" [ga gname groups 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])
(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 ' ( ) * + , - . / 0 1 2\3102\2041\204e 3\311H4>\204I \312\313\3143D\"\2103\211 5\315\n\203Y \316\nP\202Z \317I\210)\320\310\3216!\"\2101\311H7>\204w \312\313\3221D\"\2101\323H\3243\n\"0\3250\326\"\203\223 \320\310\3216!\"\210\3250\327\"\211/\204\310 8\203\252 8\n!\206\254 9\211/\330=\203\272 \311/\202\310 /\247\203\310 \331/\332_!/2\203/\250\204\333 \320\310\3216!\"\210\333 \211.@/\334\245Z,.A@/\334\246Z\211+\311W\203+\334\\+,S,.A+\240\210.,\240\2103\311H4>\204#\312\313\3143D\"\2103\335H\211)\n\211 :\n ; )\336);P!,\211)\211 )\337 ; )\336);P!+)1\311H7>\204c\312\313\3221D\"\2101\340H(\3416!6r\342\343!q\210\344(6\345#\210\346 \210)'0.\207" [force server gname deactivate-mark nnmaildir-article-file-name nnmaildir--file nnmaildir--prepare nil return 0 signal wrong-type-argument nnmaildir--srv 8 "No such group: " "No current group" throw gnus-uncompress-range nnmaildir--grp 1 nnmaildir--pgname nnmaildir--param read-only expire-age immediate round 86400 current-time 65536 4 file-name-as-directory "cur" 6 reverse get-buffer-create " *nnmaildir move*" nnmaildir--nlist-iterate #[(article) "\306H >\204 \307\310\311D\"\210\312H \n\306H >\204$ \307\310\311D\"\210\313HQ\314\n!\211\2046 \315
\"\207\203\212 \316\f8 \203` \f\203` @\f@U\203` A \fA\202C \203\212 \f\203\212 \317 \f\"\203\212 \306H >\204\200 \307\310\311D\"\210\320H B\211 \207\n ?\205\233 \212\214\321 \322\"*\211!;\203\310 ! \230\204\310 \323 \210\324\n!\210\325!\326\211\327$\211 \":\203\307 \330!\"A\"\210)! \232\203\351 \306H >\204\337 \307\310\311D\"\210\320H B\211 \207\n #\314#!\203\370 \331#!\210)\315
\"\207" [article cl-struct-nnmaildir--art-tags nnmaildir--file dir time group 0 signal wrong-type-argument nnmaildir--art 1 2 file-attributes nnmaildir--expired-article 5 car-less-than-car 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 didnt nlist dir target low high bound-iter boundary time pgname group no-force nnmaildir--cur-server cl-struct-nnmaildir--srv-tags #1=#:v ranges cl-struct-nnmaildir--grp-tags nnmail-expiry-wait-function nnmail-expiry-wait srv-dir subdir] 16])
(defalias 'nnmaildir-request-set-mark #[(gname actions &optional server) "\306 \" \307H\f>\204 \310\311\312 D\"\210 \313H \211 * +\314+*P!,\211 +\315 * +\314+*P!+ ,- .\316\211 / 0\316\211 1 2\316\211 3 4\316\211 5 6\316\211 7 8\316\211 9 :\316 ;\317 <\320 =\321 >\322 ?\3232\346\n\204\274 \307H\f>\204\210 \310\311\312 D\"\210 \211 @\324\325 PI\210)A\316 B\211 C\203\265 C@B\3263B@\"3CA\211C\204\236 *\327\3233\"\210\n\307HD>\204\314 \310\311\330\nD\"\210\n\331H2 \307H\f>\204\340 \310\311\312 D\"\210 \313H\2111 \211 * +\314+*P!,\2111\211 +\332 * +\314+*P!+\2111\211 +\333 * +\314+*P!+1\n\307HD>\204/\310\311\330\nD\"\210\n\334H\335 \"8\336 8\"\21191\316\337\340$4\341\342\343\344E\"\343\3454\"\"!4A\316 B\211 C\203\343C@\211B@3BAA@\2115\316 F\211 C\203\237C@\211F4\235\203\2174\202\224F4B4CA\211C\204~*3A\247\203\2543C3\34623BA@\347=\203\277=\202\330BA@\350=\203\315>\202\330BA@\351=\205\330?#\210CA\211C\204d*\3160.\207" [server gname group nnmaildir--cur-server cl-struct-nnmaildir--srv-tags srv-dir nnmaildir--prepare 0 signal wrong-type-argument nnmaildir--srv 4 file-name-as-directory "cur" nil #[(mark) "\306H >\204 \307\310\311D\"\210\312H\306H >\204! \307\310\311D\"\210\313H\n\314\n \"@) \f\203> \315\316\f
\"#\210\317\n! \320P!*\211P\211 \321!\205e \322!,\207" [nnmaildir--article cl-struct-nnmaildir--art-tags mark nnmaildir-flag-mark-mapping flag suffix 0 signal wrong-type-argument nnmaildir--art 1 2 rassq nnmaildir--article-set-flags nnmaildir--remove-flag symbol-name file-name-as-directory file-attributes delete-file prefix curdir marksdir subdir dir mfile file] 6] #[(article) "\304\n \")\207" [article nnmaildir--article del-mark todo-marks mapcar] 3] #[(article) "\301\302\"\207" [todo-marks mapcar #[(mark) "\306H >\204 \307\310\311D\"\210\312H\306H >\204! \307\310\311D\"\210\313H\n\314\n \"@) \f\203@ \315\316\f
\" #\202\301 \317\n! !\320! P!*\211\"\321P#\" P$\3221q \323 %\324#$\")0\202\301 &\325&!\206\300 \326&!\203\224 \327\"!\210\330#!\210\324#$\"\202\300 \331&!\203\270 #\332P '\330'!\210\333'#\334#\210\324#$\")\202\300 \307&@&A\")+\207" [article cl-struct-nnmaildir--art-tags mark nnmaildir-flag-mark-mapping flag suffix 0 signal wrong-type-argument nnmaildir--art 1 2 rassq nnmaildir--article-set-flags nnmaildir--add-flag symbol-name file-name-as-directory ":" (error) "C" add-name-to-file nnmaildir--eexist-p nnmaildir--enoent-p nnmaildir--mkdir nnmaildir--mkfile nnmaildir--emlink-p "{new}" rename-file replace prefix curdir marksdir subdir dir mdir permarkfile mfile system-messages-locale err permarkfilenew] 6]] 3] #[(article) " !\210 \304\305 \")\207" [add-action article nnmaildir--article all-marks mapcar #[(mark) " >?\205\n \n!\207" [mark todo-marks del-mark] 2]] 3] return 8 "No such group: " gnus-range-add throw nnmaildir--grp 6 ".nnmaildir" "marks" 1 nnmaildir--pgname nnmaildir--group-ls "\\`[^.]" nosort gnus-delete-duplicates append mapcar cdr intern nnmaildir--nlist-iterate del add set subdir dir curdir nnheader-file-coding-system coding-system-for-write buffer-file-coding-system file-coding-system-alist marksdir nlist ranges all-marks todo-marks mdir mfile pgname ls permarkfile deactivate-mark del-mark del-action add-action set-action #1=#:v actions action --dolist-tail-- cl-struct-nnmaildir--grp-tags nnmaildir-flag-mark-mapping mark] 7])
(defalias 'nnmaildir-close-group #[(gname &optional server) "\306 \"\307\211\211\211\211\211\211 + , -\211 .\204= /\310H0>\204- \311\312\313/D\"\210/\211 1\314\315 PI\210)\307\202\205\316/ \"-\317/-\",/\310H0>\204^ \311\312\313/D\"\210/\320H\211+ \211 2 3 +\321+3P!,+\322-\323\"\203\226 +\211 +\324 3 +\321+3P!+\202\250 +\211 +\325 3 +\321+3P!++\211 +\326 3 +\321+3P!+\211+\211 +\327 3 +\321+3P!+,+\211 +\330 3 +\321+3P!+\331\332\333$B\334\335\n\",
\307\332\333$\336\fG!\337 \310\"\340 4\341\216\f\307 5\211 6\203,6@5\342\3435\"\210\344\345\3465\" \"\2106A\2116\204,\n\307 +\211 6\203\2036@\211+A\321+@!+\f\307 5\211 6\203y6@5\3475 \"\204p5\350\230\204p+5P5\3515!\2106A\2116\204P*6A\2116\2047*\352.\207" [server gname dirs flist files msgdir nnmaildir--prepare nil 0 signal wrong-type-argument nnmaildir--srv 8 "No such group: " nnmaildir--pgname nnmaildir--group-ls 4 file-name-as-directory nnmaildir--param read-only "new" "cur" ".nnmaildir" "nov" "marks" full "\\`[^.]" nosort mapcar #[(dir) " \302\303\304$B\207" [dir ls nil "\\`[^.]" nosort] 6] nnmaildir--up2-1 make-vector match-data #[nil "\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>\2044 \312\313\314D\"\210\315H\"\210.\316\207" [x file files dir dirs ls nil nnmaildir--prepare unintern 0 signal wrong-type-argument 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)
Kontol Shell Bypass