;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\307\310\311\"\210\307\312\313\"\210\314\236\203-\314\236A\315\316\317\"\240\210\2028\314\315\316\317\"\317\211FB\314	\236\204D\314\320D	B\317\207" [nnoo-definition-alist nnoo-state-alist require gnus nnheader nnmail nnoo autoload gnus-article-unpropagatable-p "gnus-sum" gnus-backlog-remove-article "gnus-bcklg" nnml mapcar list nil "*internal-non-initialized-backend*"] 4)
#@116 Spool directory for the nnml mail backend.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnml-directory message-directory (#$ . 532))
(nnoo-define 'nnml-directory nil)
#@91 Mail active file.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnml-active-file (expand-file-name "active" nnml-directory) (#$ . 740))
(nnoo-define 'nnml-active-file nil)
#@107 Mail newsgroups description file.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnml-newsgroups-file (expand-file-name "newsgroups" nnml-directory) (#$ . 953))
(nnoo-define 'nnml-newsgroups-file nil)
#@144 If non-nil, nnml will check the incoming mail file and split the mail.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnml-get-new-mail t (#$ . 1194))
(nnoo-define 'nnml-get-new-mail nil)
#@526 If non-nil, Gnus will never generate and use nov databases for mail spools.
Using nov databases will speed up header fetching considerably.
This variable shouldn't be flipped much.  If you have, for some reason,
set this to t, and want to set it to nil again, you should always run
the `nnml-generate-nov-databases' command.  The function will go
through all nnml directories and generate nov databases for them
all.  This may very well take some time.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnml-nov-is-evil nil (#$ . 1422))
(nnoo-define 'nnml-nov-is-evil nil)
#@120 Hook run narrowed to an article before saving.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnml-prepare-save-mail-hook nil (#$ . 2032))
(nnoo-define 'nnml-prepare-save-mail-hook nil)
#@101 If non-nil, inhibit expiry.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnml-inhibit-expiry nil (#$ . 2258))
(nnoo-define 'nnml-inhibit-expiry nil)
#@342 If non-nil, allow using compressed message files.

If it is a string, use it as the file extension which specifies
the compression program.  You can set it to ".bz2" if your Emacs
supports auto-compression using the bzip2 program.  A value of t
is equivalent to ".gz".

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnml-use-compressed-files nil (#$ . 2449))
(nnoo-define 'nnml-use-compressed-files nil)
#@261 Default size threshold for compressed message files.
Message files with bodies larger than that many characters will
be automatically compressed if `nnml-use-compressed-files' is
non-nil.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnml-compressed-files-size-threshold 1000 (#$ . 2893))
(nnoo-define 'nnml-compressed-files-size-threshold nil)
#@15 nnml version.
(defconst nnml-version "nnml 1.0" (#$ . 3278))
(defvar nnml-nov-file-name ".overview")
(nnoo-define 'nnml-nov-file-name nil)
(defvar nnml-current-directory nil)
(nnoo-define 'nnml-current-directory nil)
(defvar nnml-current-group nil)
(nnoo-define 'nnml-current-group nil)
(defvar nnml-status-string "")
(nnoo-define 'nnml-status-string nil)
(defvar nnml-nov-buffer-alist nil)
(nnoo-define 'nnml-nov-buffer-alist nil)
(defvar nnml-group-alist nil)
(nnoo-define 'nnml-group-alist nil)
(defvar nnml-active-timestamp nil)
(nnoo-define 'nnml-active-timestamp nil)
(defvar nnml-article-file-alist nil)
(nnoo-define 'nnml-article-file-alist nil)
(defvar nnml-generate-active-function 'nnml-generate-active-info)
(nnoo-define 'nnml-generate-active-function nil)
(defvar nnml-nov-buffer-file-name nil)
(defvar nnml-file-coding-system nnmail-file-coding-system)
(byte-code "\300\301\302\"\210\303\304\305\"\210\306\304!\210\303\307\310\"\210\306\307!\210\303\311\312\"\210\306\311!\210\303\313\314\"\210\306\313!\207" [nnoo-define nnml-file-coding-system nil defalias nnml-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nnml] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nnml-status-message #[256 "\300\301\"\207" [nnoo-status-message nnml] 4 "\n\n(fn &optional SERVER)"] nnml-close-server #[512 "\300\301\"\207" [nnoo-close-server nnml] 5 "\n\n(fn &optional SERVER DEFS)"] nnml-open-server #[513 "\300\301#\207" [nnoo-change-server nnml] 6 "\n\n(fn SERVER &optional DEFS)"]] 3)
#@93 Return an absolute file name of FILE for GROUP on SERVER.

(fn GROUP &optional FILE SERVER)
(defalias 'nnml-group-pathname #[769 "\301#\207" [nnml-directory nnmail-group-pathname] 7 (#$ . 4792)])
#@50 

(fn SEQUENCE &optional GROUP SERVER FETCH-OLD)
(defalias 'nnml-retrieve-headers #[1025 "\304\"\205\274rq\210\305 \210\306G\307	\306\211@;\203!\310\202\270\311	\"\203.\312\202\270\203\244@\262
\313
!\262\203x\314!\203x\315!\204x\316\317\"c\210`\262\320!\210
b\210\321\322\306\323#\203k\324u\210\202qdb\210\325c\210\326c\210`d|\210A\262	T\262\247\203.V\203.\327\246\307U\203.\330\331\332\333\334_\"#\210\202.\247\203\264V\203\264\330\331\335\"\210\336 \210\310)\266\205)\207" [nntp-server-buffer nnmail-pathname-coding-system file-name-coding-system nnmail-large-newsgroup nnml-possibly-change-directory erase-buffer nil 0 headers nnml-retrieve-headers-with-nov nov nnml-article-to-file file-exists-p file-directory-p format "221 %d Article retrieved.\n" nnheader-insert-head re-search-forward "\n
?\n" t -1 "\n\n" ".\n" 20 nnheader-message 6 "nnml: Receiving headers... %d%%" floor 100.0 "nnml: Receiving headers...done" nnheader-fold-continuation-lines] 15 (#$ . 4997)])
(nnoo-register-function 'nnml-retrieve-headers)
#@30 

(fn SERVER &optional DEFS)
(defalias 'nnml-open-server #[513 "\301\302#\210\303!\204\3041\305\306\"0\210\202\210\303!\204)\307 \210\310\302\311#\207\312\313!!\204:\307 \210\310\302\314#\207\310\302\315$\210\306\207" [nnml-directory nnoo-change-server nnml file-exists-p (error) make-directory t nnml-close-server nnheader-report "Couldn't create directory: %s" file-directory-p file-truename "Not a directory: %s" "Opened server %s using directory %s"] 7 (#$ . 6077)])
(nnoo-register-function 'nnml-open-server)
#@15 

(fn SERVER)
(defalias 'nnml-request-regenerate #[257 "\300\301\"\210\302
!\210\303\207" [nnml-possibly-change-directory nil nnml-generate-nov-databases t] 4 (#$ . 6615)])
(nnoo-register-function 'nnml-request-regenerate)
#@41 

(fn ID &optional GROUP SERVER BUFFER)
(defalias 'nnml-request-article #[1025 "\306\"\210\211\206\n	\307\211\211;\203O\310\"\211\262\203U\211A\311\312@\307	#\211\262!\236A\203U\313 \210
\203E
A\f\236A\202I\314A!P\262\202U\315!\262\204b\316\317\320	#\202\250\321!\204p\316\317\322#\202\250\323!\203~\316\317\324#\202\250\212
\325!*\204\221\316\317\326#\202\250\316\317\327	#\210\211\203\241\211@\202\242\330\331!!B*\207" [nntp-server-buffer nnmail-pathname-coding-system file-name-coding-system nnml-use-compressed-files nnml-article-file-alist nnml-file-coding-system nnml-possibly-change-directory nil nnml-find-group-number nnheader-article-to-file-alist nnml-group-pathname nnml-update-file-alist number-to-string nnml-article-to-file nnheader-report nnml "No such article: %s" file-exists-p "No such file: %s" file-directory-p "File is a directory: %s" nnmail-find-file "Couldn't read file: %s" "Article %s retrieved" string-to-number file-name-nondirectory nnmail-file-coding-system] 13 (#$ . 6845)])
(nnoo-register-function 'nnml-request-article)
#@47 

(fn GROUP &optional SERVER DONT-CHECK INFO)
(defalias 'nnml-request-group #[1025 "\304\"\204\305\306\307\"\202p\310\n!\204\305\306\311\n#\202p\312\n!\204,\305\306\313\n#\202p
\203;\305\306\314#\210\315\202p\316\n!\210\317\306!\210\320\"A@\211\204V\305\306\321#\202n\305\306\322#\210\323\324A@ZT\325]@A	%\262
)\207" [nnmail-pathname-coding-system file-name-coding-system nnml-current-directory nnml-group-alist nnml-possibly-change-directory nnheader-report nnml "Invalid group (no such directory)" file-exists-p "Directory %s does not exist" file-directory-p "%s is not a directory" "Group %s selected" t nnheader-re-read-dir nnmail-activate assoc-string "No such group: %s" "Selected group %s" nnheader-insert "211 %d %d %d %s\n" 0] 11 (#$ . 7956)])
(nnoo-register-function 'nnml-request-group)
#@31 

(fn &optional GROUP SERVER)
(defalias 'nnml-request-scan #[512 "\303\304\"\210
\203\305\306\307	$\207\310 \203/\311 \210\n\211\205.\211@\312
@\"\210
A\266\202\202\207\305\306\307	\303$\207" [nnml-article-file-alist nnml-directory nnml-group-alist nil nnml-possibly-change-directory nnmail-get-new-mail nnml nnml-save-incremental-nov nnmail-get-new-mail-per-group nnml-request-list nnml-request-scan] 7 (#$ . 8789)])
(nnoo-register-function 'nnml-request-scan)
#@31 

(fn GROUP &optional SERVER)
(defalias 'nnml-close-group #[513 "\301\302\207" [nnml-article-file-alist nil t] 3 (#$ . 9268)])
(nnoo-register-function 'nnml-close-group)
#@36 

(fn GROUP &optional SERVER ARGS)
(defalias 'nnml-request-create-group #[769 "\305\306\"\210\307\310!\210\311\312\306#!\313
!\205\314
!?)\262
\2030\315\310\316\311\312\306#!#\207\317\n\"\2039\320\207\306\321\322B\211\262D\nB\323\"\210\305\"\210\324!\211\203f
\325\326\"\240\210
\325\327\"\241\210)\210\330\n\f\"\210\320\207" [nnmail-pathname-coding-system file-name-coding-system nnml-group-alist nnml-current-directory nnml-active-file nnml-possibly-change-directory nil nnmail-activate nnml directory-file-name nnml-group-pathname file-exists-p file-directory-p nnheader-report "%s is a file" assoc-string t 1 0 nnml-possibly-create-directory nnml-directory-articles apply min max nnmail-save-active] 11 (#$ . 9445)])
(nnoo-register-function 'nnml-request-create-group)
#@25 

(fn &optional SERVER)
(defalias 'nnml-request-list #[256 "\212	\306\f!\210*\307 )\310\207" [nnmail-active-file-coding-system nnmail-pathname-coding-system file-name-coding-system nnmail-file-coding-system nnml-active-file nnml-group-alist nnmail-find-file nnmail-get-active t] 3 (#$ . 10251)])
(nnoo-register-function 'nnml-request-list)
#@30 

(fn DATE &optional SERVER)
(defalias 'nnml-request-newgroups #[513 "\300
!\207" [nnml-request-list] 4 (#$ . 10601)])
(nnoo-register-function 'nnml-request-newgroups)
#@25 

(fn &optional SERVER)
(defalias 'nnml-request-list-newsgroups #[256 "\212\301!)\207" [nnml-newsgroups-file nnmail-find-file] 3 (#$ . 10775)])
(nnoo-register-function 'nnml-request-list-newsgroups)
#@46 

(fn ARTICLES GROUP &optional SERVER FORCE)
(defalias 'nnml-request-expire-articles #[1026 "\306\"\210\307\n!\310\311\211\211\211\211\312\313!\210\314\315\"\262\316\"\262\n\203\376\203\376\317\211A\262
\242\211\262!\211\262\203\366\320!\321
8\262
\211\262\203\366\322\n\"\203\366\323\n\n$\211\262\203\366\f\262
\211\324=\204\277\325\326\310\"r\211q\210\327\330\"\216\331\f\fp$\210\311\211\211(\332!\203\224
!\262
\203\266
\324=\204\266\333!\204\252\334!\203\263\335\f\"\210\202\266\311\262-\210\306\n\n\"\210\211\203\356\336\321\337
$\210\3401\330)!0\210\202\336\210
B\262\341\"\262\342\n\"\210\202#
B\262\202#
B\262\202#\343\n*\"A@\211\203
\211\203
\344\345\n\"\206

AT\240\210\346*+\"\266\347 \210\244)\207" [nnmail-pathname-coding-system file-name-coding-system nnml-current-directory nnml-inhibit-expiry nnmail-expiry-target nnml-article-file-alist nnml-possibly-change-directory nnml-directory-articles t nil nnmail-activate nnml sort < gnus-sorted-intersection nnml-article-to-file file-attributes 5 nnml-deletable-article-p nnmail-expired-article-p delete generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nnml-request-article functionp gnus-request-group gnus-request-create-group nnmail-expiry-target-group nnheader-message "Deleting article %s in %s" (file-error) delq nnml-nov-delete-article assoc-string apply min nnmail-save-active nnml-save-nov nnml-current-group nnmail-delete-file-function nnml-group-alist nnml-active-file] 17 (#$ . 10981)])
(nnoo-register-function 'nnml-request-expire-articles)
#@73 

(fn ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST MOVE-IS-INTERNAL)
(defalias 'nnml-request-move-article #[1540 "\306\307!\310
\311\"\210\312 \210\313\n\"\203p\314			#\203p\310\211\211rq\210\315
!\210\316\317\"\262
\320p!\210,\211\203p\311\"\210\3211Z\322\n!!0\210\202[\210\323\n\"\210\203p\324 \210\325\"\210)\207" [nnmail-pathname-coding-system file-name-coding-system nnml-article-file-alist nnml-current-group nnml-current-directory nntp-server-buffer gnus-get-buffer-create " *nnml move*" nil nnml-possibly-change-directory nnml-update-file-alist nnml-deletable-article-p nnml-request-article insert-buffer-substring eval t kill-buffer (file-error) nnml-article-to-file nnml-nov-delete-article nnml-save-nov nnmail-save-active nnmail-delete-file-function nnml-group-alist nnml-active-file] 13 (#$ . 12656)])
(nnoo-register-function 'nnml-request-move-article)
#@36 

(fn GROUP &optional SERVER LAST)
(defalias 'nnml-request-accept-article #[769 "\303\"\210\304 \210\305\203\306\307\310!\307\311!\307\312!$\210;\203F\313\314!\203\204\315\316\"BC\317#@\211\262\203\204\320	\n\"\210
\203\204\321 \210\207\313\314!\203\204\322\323\324\"!\211\262\204e\325\326!\203e\327\211\262\202n\315
\317#@\211\262\203\204
\203\204\320	\n\"\210\203\201\330 \210\321 \210\207" [nnmail-cache-accepted-message-ids nnml-group-alist nnml-active-file nnml-possibly-change-directory nnmail-check-syntax nil nnmail-cache-insert nnmail-fetch-field "message-id" "subject" "from" nnmail-activate nnml nnml-save-mail nnml-active-number t nnmail-save-active nnml-save-nov nnmail-article-group make-closure #[257 "\301
\300\"\207" [V0 nnml-active-number] 4 "\n\n(fn GROUP)"] yes-or-no-p "Moved to `junk' group; delete article? " junk nnmail-cache-close] 10 (#$ . 13570)])
(nnoo-register-function 'nnml-request-accept-article)
#@25 

(fn &optional SERVER)
(defalias 'nnml-request-post #[256 "\300\301\"\207" [nnmail-do-request-post nnml-request-accept-article] 4 (#$ . 14536)])
(nnoo-register-function 'nnml-request-post)
#@29 

(fn ARTICLE GROUP BUFFER)
(defalias 'nnml-request-replace-article #[771 "\301!\210r\211q\210\302!\210\303 \304!\305P\306\30719\310ed\311	!\206)\312\304\n!\"\306\313\314!?\2052\315%\210\3160\202?\266\306\202\225\205\223\317\"\262
r\320!q\210eb\210\321!\204b\322\323P\306\316#\203m\324 \325y\210`|\210\202\207\321\326!\203\207\327\330\224\330\225{!W\203\207\325y\330U\204m\331 \210\332
!\210\333 \210)\316\266\203)\207" [nnml-current-directory nnml-possibly-change-directory nnml-possibly-create-directory nnmail-insert-lines int-to-string "	" nil (error) nnmail-write-region nnml-article-to-file expand-file-name nnheader-be-verbose 5 nomesg t nnml-parse-head nnml-open-nov looking-at search-forward "\n" point-at-bol 1 "[0-9]+	" string-to-number 0 beginning-of-line nnheader-insert-nov nnml-save-nov] 13 (#$ . 14733)])
(nnoo-register-function 'nnml-request-replace-article)
#@37 

(fn GROUP &optional FORCE SERVER)
(defalias 'nnml-request-delete-group #[769 "\306\"\210\307!	\310
!\203b\311
!\203Y\203h\312\313\314\315\f!\316R#\211\211\203G\211@\317
!\203@\320\321\322\323!\n$\210

!\210
A\266\202\202&\266\3241U\325!0\210\202h\210\202h\326\327\330#\210\202h\326\327\331#\210\332\333\"\"\334\211\335 \"\210)\210\313\207" [nnml-current-directory nnmail-pathname-coding-system file-name-coding-system nnheader-numerical-short-files nnml-nov-file-name nnmail-delete-file-function nnml-possibly-change-directory directory-file-name file-exists-p file-directory-p directory-files t "\\|" regexp-quote "$" file-writable-p nnheader-message 5 "Deleting article %s in %s..." file-name-nondirectory (error) delete-directory nnheader-report nnml "%s is not a directory" "No such directory: %s/" delq assoc-string nil nnmail-save-active nnml-group-alist nnml-current-group nnml-active-file] 13 (#$ . 15642)])
(nnoo-register-function 'nnml-request-delete-group)
#@40 

(fn GROUP NEW-NAME &optional SERVER)
(defalias 'nnml-request-rename-group #[770 "\306\"\210\307\310#\307\310#\3111\312\313\"\210\3130\202$\210\310\202\203\205\203\314
!\211\203B\211@\315APAP\"\210
A\266\202\202*\210\211\nP\316
!\203S\315
\nP\"\210\210\317
!G\320X\203j\3211i\322
!0\210\202j\210\323\"\211\203v\211\240\210\310\211\324\"\210\313\262
)\207" [nnmail-pathname-coding-system file-name-coding-system nnml-nov-file-name nnml-group-alist nnml-current-directory nnml-current-group nnml-possibly-change-directory nnml-group-pathname nil (error) make-directory t nnheader-article-to-file-alist rename-file file-exists-p directory-files 2 (error) delete-directory assoc-string nnmail-save-active nnml-active-file] 12 (#$ . 16654)])
(nnoo-register-function 'nnml-request-rename-group)
#@50 

(fn ARTICLE NAME VALUE &optional GROUP SERVER)
(defalias 'nnml-set-status #[1283 "\300\"\210\301!\302
!\204\303\304\305#\207\306\307\310\"\311\312\"\216r\211q\210\313!\210\314\"\210)r\211q\210\315\316\211\316\317%\210*\210\310\207" [nnml-possibly-change-directory nnml-article-to-file file-exists-p nnheader-report nnml "File %s does not exist" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nnheader-insert-file-contents nnmail-replace-status write-region nil 0] 13 (#$ . 17484)])
(nnoo-register-function 'nnml-set-status)
#@16 

(fn ARTICLE)
(defalias 'nnml-article-to-file #[257 "\304 \210\305\203
	\236A\202\306!\211\262\203\307
\n\"\207?\2055\310\307\306!\n\"\211\262!\2055\304\311!\210\211\207" [nnml-use-compressed-files nnml-article-file-alist nnml-current-directory nnheader-directory-files-is-safe nnml-update-file-alist nil number-to-string expand-file-name file-exists-p t] 6 (#$ . 18099)])
#@66 Say whether ARTICLE in GROUP can be deleted.

(fn GROUP ARTICLE)
(defalias 'nnml-deletable-article-p #[514 "\304
\305!\211\262\205\"\306
!\205\"\n?\206\"\307\"A@A=?)\207" [nnmail-pathname-coding-system file-name-coding-system nnmail-keep-last-article nnml-group-alist nil nnml-article-to-file file-writable-p assoc-string] 7 (#$ . 18493)])
#@18 

(fn ID SERVER)
(defalias 'nnml-find-group-number #[514 "r\302\303!q\210\304\305	#\211\262\203	
B\266\202\202J\211\204?
\203?
@@	\230\2044\305@@#\262
\211\204
A\262\202\211\205H
@@
B\266\202)\207" [nnml-group-alist nnml-current-group gnus-get-buffer-create " *nnml id*" nil nnml-find-id] 8 (#$ . 18849)])
#@24 

(fn GROUP ID SERVER)
(defalias 'nnml-find-id #[771 "\301 \210\302#\303\211\304!\205Q\305!\210\211\204P\306\303\307#\203P\310\311\303\307\312$\2032\310\311\313 \307#\2038\314y\210\202\315 \210\307\262
\3161I\317p!0\202K\210\303\262\202
\207" [nnml-nov-file-name erase-buffer nnml-group-pathname nil file-exists-p nnheader-insert-file-contents search-forward t search-backward "	" 4 point-at-bol 1 beginning-of-line (error) read] 11 (#$ . 19180)])
#@37 

(fn ARTICLES &optional FETCH-OLD)
(defalias 'nnml-retrieve-headers-with-nov #[513 "\206	?\205E\305\n\"\306
!\205Cr\fq\210\307 \210\310
!\210
\203+
\247\204+\311\202B\312\2039\313@Z]\202;@\314!@\"\210\311)\262
\207" [gnus-nov-is-evil nnml-nov-is-evil nnml-nov-file-name nnml-current-directory nntp-server-buffer expand-file-name file-exists-p erase-buffer nnheader-insert-file-contents t nnheader-nov-delete-outside-range 1 last] 7 (#$ . 19652)])
#@31 

(fn GROUP &optional SERVER)
(defalias 'nnml-possibly-change-directory #[513 "\211\203\305
!\204\306
!\210
\204\307\207\310\311#\211\n\232\204'\211\311\312\n!)\207" [nnmail-pathname-coding-system file-name-coding-system nnml-current-directory nnml-current-group nnml-article-file-alist nnml-server-opened nnml-open-server t nnml-group-pathname nil file-exists-p] 6 (#$ . 20122)])
#@31 

(fn GROUP &optional SERVER)
(defalias 'nnml-possibly-create-directory #[513 "\302\303#\304
!?\205\305\306!\307\"\210\310\311\312#)\207" [nnmail-pathname-coding-system file-name-coding-system nnml-group-pathname nil file-exists-p make-directory directory-file-name t nnheader-message 5 "Creating mail directory %s"] 7 (#$ . 20524)])
#@244 Save a mail into the groups GROUP-ART in the nnml server SERVER.
GROUP-ART is a list that each element is a cons of a group name and an
article number.  This function is called narrowed to an article.

(fn GROUP-ART &optional SERVER FULL-NOV)
(defalias 'nnml-save-mail #[769 "\305 \205\211	V\205;\203\202\306\307\211\211\310!\210\311\312!\210\311\313!\210eb\210\314\315!\2039\316\317!\210\320y\210\202)\211\203\202\211@\321
@\n\"\210\322
@\323A!P#\262\203h\n\f\324#\210)\202{\325ed\307\326\327!?\205v\330%\210\262
A\266\202\202;\210\331!\262
\203\220\332\202\221\333\211\203\251\211@
@A#\210
A\266\202\202\223\266\207" [nnml-use-compressed-files nnml-compressed-files-size-threshold nnmail-pathname-coding-system file-name-coding-system nnmail-crosspost-link-function nnmail-insert-lines ".gz" nil nnmail-insert-xref run-hooks nnmail-prepare-save-mail-hook nnml-prepare-save-mail-hook looking-at "From " replace-match "X-From-Line: " 1 nnml-possibly-create-directory nnml-group-pathname number-to-string t nnmail-write-region nnheader-be-verbose 5 nomesg nnml-parse-head nnml-add-nov nnml-add-incremental-nov] 17 (#$ . 20873)])
#@82 Compute the next article number in GROUP on SERVER.

(fn GROUP &optional SERVER)
(defalias 'nnml-active-number #[513 "\302\"A@\211\2049\303\"\210\304\"\210	\204\305\306 \307\"	\203.	@@\310	!@@B\2021\311\312B\262

DB\211
AT\241\210\313\314\315A!#!\203U\211
AT\241\210\202?\211A\207" [nnml-group-alist nnml-article-file-alist assoc-string nnml-possibly-create-directory nnml-possibly-change-directory sort nnml-current-group-article-to-file-alist car-less-than-car last 1 0 file-exists-p nnml-group-pathname int-to-string] 8 (#$ . 22059)])
(defvar nnml-incremental-nov-buffer-alist nil)
(defalias 'nnml-save-incremental-nov #[0 "\212\205/\302@A!\203'@Aq\210\303 \203\304ed	\305\306%\210\307\310!\210\311p!\210A\211\204\310)\207" [nnml-incremental-nov-buffer-alist nnml-nov-buffer-file-name buffer-live-p buffer-modified-p nnmail-write-region t nomesg set-buffer-modified-p nil kill-buffer] 7])
#@14 

(fn GROUP)
(defalias 'nnml-open-incremental-nov #[257 "\301
\"A\206\302
\303\"

BB\211\262
\207" [nnml-incremental-nov-buffer-alist assoc-string nnml-get-nov-buffer t] 4 (#$ . 22988)])
#@86 Add a nov line for the GROUP nov headers, incrementally.

(fn GROUP ARTICLE HEADERS)
(defalias 'nnml-add-incremental-nov #[771 "r\300!q\210db\210\211\301I\210\302
!)\207" [nnml-open-incremental-nov 0 nnheader-insert-nov] 6 (#$ . 23186)])
#@64 Add a nov line for the GROUP base.

(fn GROUP ARTICLE HEADERS)
(defalias 'nnml-add-nov #[771 "r\300!q\210db\210\211\301I\210\302
!)\207" [nnml-open-nov 0 nnheader-insert-nov] 6 (#$ . 23432)])
(defalias 'nnml-header-value #[0 "\300\225\301 {\207" [0 point-at-eol] 2])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnml-header-value speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@68 Parse the head of the current buffer.

(fn CHARS &optional NUMBER)
(defalias 'nnml-parse-head #[513 "\212\214\300 \301U\204eb\302\303\304\305#\203`S\202d}\210\306\305!\211\307I\210\211\301I\210\310
!\210\211\262
*\207" [buffer-size 0 re-search-forward "\n
?\n" nil t nnheader-parse-head 6 nnml--encode-headers] 7 (#$ . 23850)])
#@16 

(fn HEADERS)
(defalias 'nnml--encode-headers #[257 "\211\301H\302\303\304\"\204$\3051\306
\307\"0\202\210\310\211\203#\301I\210\210)\210\211\311H\312\303\304\"?\205K\3131?\314
\307\"0\202A\210\310\211\205I\311I\262
)\207" [rfc2047-encoding-type 1 mime string-match "\\`[[:ascii:]]*\\'" (error) mail-encode-encoded-word-string t nil 2 address-mime (error) rfc2047-encode-string] 6 (#$ . 24192)])
#@37 

(fn GROUP &optional INCREMENTALP)
(defalias 'nnml-get-nov-buffer #[513 "\305\306\307\203\310\202\f\311#!r\211q\210\312\304!\210\313\n#\314 \210
\2040\315\f!\2030\316\f!\210*\207" [nnmail-pathname-coding-system file-name-coding-system nnml-directory nnml-nov-file-name nnml-nov-buffer-file-name gnus-get-buffer-create format " *nnml %soverview %s*" "incremental " "" make-local-variable nnmail-group-pathname erase-buffer file-exists-p nnheader-insert-file-contents] 7 (#$ . 24613)])
#@14 

(fn GROUP)
(defalias 'nnml-open-nov #[257 "\301
\"A\211\205\302\303!\211\262!\205\211\262
\206&\304
!

BB\211\262
\207" [nnml-nov-buffer-alist assoc buffer-live-p get-buffer nnml-get-nov-buffer] 5 (#$ . 25116)])
(defalias 'nnml-save-nov #[0 "\212\205/\302@A!\203'@Aq\210\303 \203\304ed	\305\306%\210\307\305!\210\310p!\210A\211\204\305)\207" [nnml-nov-buffer-alist nnml-nov-buffer-file-name buffer-live-p buffer-modified-p nnmail-write-region nil nomesg set-buffer-modified-p kill-buffer] 7])
#@72 Generate NOV databases in all nnml directories.

(fn &optional SERVER)
(defalias 'nnml-generate-nov-databases #[256 "\303\304!\210\305
!\204\306
!\210\307!\310\311\312#\210\313	\n\"\207" [nnml-directory nnml-group-alist nnml-active-file nnmail-activate nnml nnml-server-opened nnml-open-server expand-file-name nnml-generate-nov-databases-directory nil t nnmail-save-active] 5 (#$ . 25638) (byte-code "\300\301!\206\302C\207" [nnoo-current-server nnml ""] 2)])
#@130 Regenerate the NOV database in DIR.

Unless no-active is non-nil, update the active file too.

(fn DIR &optional SEEN NO-ACTIVE)
(defalias 'nnml-generate-nov-databases-directory #[769 "\306!\262\307!\235?\205x\307!B\262\310\311\312\311$\211\203>\211@\313\314\315!\"\2047\316
!\2037\317
\"\210
A\266\202\202\210\320\321!\322\"\211\204d\323\324!\"\325
\f\"A@\211\205_\211
AT\240\266\202\202w
!\210\326\n\"\210\211?\205w\327\f\"))\207" [nnmail-pathname-coding-system file-name-coding-system nnml-files nnml-directory nnml-group-alist nnml-generate-active-function file-name-as-directory file-truename directory-files t nil string-match "^\\." file-name-nondirectory file-directory-p nnml-generate-nov-databases-directory sort nnheader-article-to-file-alist car-less-than-car nnheader-file-to-group directory-file-name assoc nnml-generate-nov-file nnmail-save-active nnml-active-file] 10 (#$ . 26113) (byte-code "\303\304\n\305\306$)C\207" [nnmail-pathname-coding-system file-name-coding-system nnml-directory read-directory-name "Regenerate NOV in: " nil t] 5)])
#@12 

(fn DIR)
(defalias 'nnml-generate-active-info #[257 "\303
!\304\211\305\"\262\306	\"\262
A@@\206\307\262
\310	\"\n@@\206)
T\311\n!@@\2063\307]BD	B\211\207" [nnml-directory nnml-group-alist nnml-files directory-file-name nil nnheader-file-to-group assoc 0 delq last] 9 (#$ . 27211)])
#@18 

(fn DIR FILES)
(defalias 'nnml-generate-nov-file #[514 "\303!\211P\304\305!\306\211rq\210\307 \210\310 \210	q\210\311!\203\"\n!\210\211\203u\211@
AP\312
!\204m\310 \210\313
!\210eb\314\315\306\316#\210d`Z\262e`S]}\210\317 \320U\204keb\210\321@\"\262rq\210db\210\322!\210)~\210\210
A\266\202\202#\210rq\210\323ed\306\324\306\325&\210\326p!*\207" [nnml-nov-file-name nntp-server-buffer nnmail-delete-file-function file-name-as-directory gnus-get-buffer-create " *nov*" nil buffer-disable-undo erase-buffer file-exists-p file-directory-p nnheader-insert-file-contents re-search-forward "\n
?\n" t buffer-size 0 nnml-parse-head nnheader-insert-nov nnmail-write-region nomesg excl kill-buffer] 15 (#$ . 27516)])
#@22 

(fn GROUP ARTICLE)
(defalias 'nnml-nov-delete-article #[514 "r\301!q\210\302
!\203N`\303y\210`|\210o\203N\304\"A@\305
\203Lm\2030
\211AT\240\266\202N\3061;\307p!0\202=\210\305\211\262\203L\211\247\203L

\240\210\266)\310\207" [nnml-group-alist nnml-open-nov nnheader-find-nov-line 1 assoc nil (error) read t] 6 (#$ . 28254)])
#@24 

(fn &optional FORCE)
(defalias 'nnml-update-file-alist #[256 "\205	\203\f\211\205\302 \211\207" [nnml-use-compressed-files nnml-article-file-alist nnml-current-group-article-to-file-alist] 3 (#$ . 28603)])
#@116 Return a list of all article files in a directory.
Use the nov database for that directory if available.

(fn DIR)
(defalias 'nnml-directory-articles #[257 "\204	\204\304\305\n\"!\204\306
!\207r\307!q\210\310\211eb\210m\2044\311p!\262
\211B\262\312y\210\202 
\266\202)\207" [gnus-nov-is-evil nnml-nov-is-evil nnml-nov-file-name nnml-current-group file-exists-p expand-file-name nnheader-directory-articles nnml-get-nov-buffer nil read 1] 5 (#$ . 28825)])
#@118 Return an alist of article/file pairs in the current group.
Use the nov database for the current group if available.
(defalias 'nnml-current-group-article-to-file-alist #[0 "\204	\204\n\204\306\307\f\"!\204\310\f!\207r\311
!q\210\312\211eb\210m\204<\313p!\262
\211\314!BB\262\315y\210\202$
\266\202)\207" [nnml-use-compressed-files gnus-nov-is-evil nnml-nov-is-evil nnml-nov-file-name nnml-current-directory nnml-current-group file-exists-p expand-file-name nnheader-article-to-file-alist nnml-get-nov-buffer nil read int-to-string 1] 5 (#$ . 29300)])
#@36 

(fn GROUP &optional SERVER SAVE)
(defalias 'nnml-request-compact-group #[769 "\306\"\210\204\307\310 \311\"\204\312\207\313\314\315\"\211\203(\211<\203(\211\206D
\316
	\"A\206D
\211\317\232\203:\n\2060
\316
\"A\2060
\316
\f\"A\2060

\211\203g
\314\320@@@@@A@#\232\204g\211A\262
\202K\211@@\262
\2060
>\211\203\213
\314\320@@@A@#\232\204\213\211A\262
\202q\211@\262
\2060
?A\321\211\203.
\211A\262\242\322
8\262
\262
;\204\227\321\312C\3232
\211
\242\206\276\n\240\210\204\314\324\325\326\"	\"\210\fD\211\203\344\211@\324\325\327\"\"\210
A\266\202\202\317\210\211\242A@\330\235\203\367\314\331\242@\"\202

\314\320\242@\242A@#\211\242B\204
\211	\235\204
\316
@	\"\204
\211	B
\266\2020\266\204\232\203\227
\262
\321\262\202\227\266\202\211\203A
\316	\"\204A


B	B\211\262
\262
\"\211\332
@\"A@\262
\333\321\321
\211A\262\242\211\262\203\222\211@\211V\203\212\334
!\334!\312\262\335!\336\337\340Q\341P#rAq\210\342!\210\343\344\321\312#\203\254
\343\345\346\347Q!\350Q\351 \312#\203\254
\352\347Q!\210\353ed#\210)\3541\301
B!0\266\202\310
\210\355\356\"\266\3578\360
	C\"\262
\361\"\203\352
\360
C\"\262
\362
	C\"\262
AA\211\240\266\3638\321\211\211A\262\242\211\262\2034
\360A\fC\"\241\210\361A\"\203,
\360AC\"\241\210
\362A\fC\"\241\210

B\262
\202\371
\363\233\211\240\266C\204vr\364\f!q\210\365!\203u\366!\210\352
\321\312#\210\343\367\346\347Q!\350Q\351 \312#\203u\352\370
\347R!\210)D\203\210\371	\"\210\371	\"\210\266T\262\210\202U
\266\211\204\234\266\312\207\316E\"\333SB\372E\"E
DEBE\373F#\266\204\307\266\312\207\374 \210\375EG\"\266\312\207" [nnml-article-file-alist gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers nnml-possibly-change-directory sort nnml-current-group-article-to-file-alist car-less-than-car t gnus-group-prefixed-name format "nnml:%s" assoc "native" "%s:%s" nil 4 server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" gethash 1 int-to-string nnml-article-to-file replace-regexp-in-string "\\(" "\\)\\(\\(\\.[a-z0-9]+\\)?\\)$" "\\2" nnmail-find-file re-search-forward "^Xref: [^ ]+ " "\\<" regexp-quote ":" "\\>" point-at-eol replace-match nnmail-write-region (file-error) message "Couldn't delete %s" 2 gnus-remove-from-range gnus-member-of-range gnus-add-to-range 3 nnml-open-nov nnheader-find-nov-line looking-at "\\(Xref:[^	\n]* \\)\\<" "\\1" gnus-backlog-remove-article delq puthash nnml-save-nov nnmail-save-active gnus-secondary-select-methods gnus-newsrc-alist gnus-newsrc-hashtb nntp-server-buffer nnmail-delete-file-function nnml-nov-is-evil gnus-keep-backlog nnml-group-alist gnus-active-hashtb nnml-active-file] 20 (#$ . 29873)])
#@70 Request compaction of all SERVER nnml groups.

(fn &optional SERVER)
(defalias 'nnml-request-compact #[256 "\306\307!\210\310
!\204\311
!\210\312!\313\314\315\"\211\203$\211<\203$\211\206@
\316
	\"A\206@
\211\317\232\2036\n\206,
\316
\"A\206,
\316
\f\"A\206,

\211\203c
\314\320@@@@@A@#\232\204c\211A\262
\202G\211@@\262
\206,
\211\203\207
\314\320@@@A@#\232\204\207\211A\262
\202m\211@\262
\206,
 A\321\211\203*
\211A\262\242\322
8\262
\262
;\204\223\321\323C\3242
\211
\242\206\272\n\240\210\204\310\325\326\327\"	\"\210\fD\211\203\340\211@\325\326\330\"\"\210
A\266\202\202\313\210\211\242A@\331\235\203\363\314\332\242@\"\202\375\314\320\242@\242A@#\211\242B\204
\211	\235\204
\316
@	\"\204
\211	B
\266\2020\266\204\232\203\223
\262
\321\262\202\223\266\202\211\203=
\316	\"\204=


B	B\211\262
\262
!\211
A\262\242\321
\205\205
\211A\262\242\211\262\203q
\333\334\335\"\203j

\336\225\321O\202k

\"\210\202N
\333\334\335\"\203\201
\336\225\321O\202\202
\323#\207" [nnml-directory gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers nnmail-activate nnml nnml-server-opened nnml-open-server expand-file-name gnus-groups-from-server format "nnml:%s" assoc "native" "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" nnml-request-compact-group string-match "^[^:]+:" 0 gnus-secondary-select-methods gnus-newsrc-alist] 17 (#$ . 32932) (byte-code "\300\301!\206\302C\207" [nnoo-current-server nnml ""] 2)])
(provide 'nnml)