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