Gecko [ goons4good.org ]

Name	Size	Permission	Date
.dir-locals.el	105 B	-rw-r--r--	2012-04-13 21:33
auth-source.elc	51.28 KB	-rw-r--r--	2023-06-07 04:09
canlock.elc	5.89 KB	-rw-r--r--	2023-06-07 04:09
compface.elc	1.34 KB	-rw-r--r--	2023-06-07 04:09
deuglify.elc	8.04 KB	-rw-r--r--	2023-06-07 04:09
ecomplete.elc	4.59 KB	-rw-r--r--	2023-06-07 04:09
flow-fill.elc	4.74 KB	-rw-r--r--	2023-06-07 04:09
gmm-utils.elc	7.46 KB	-rw-r--r--	2023-06-07 04:09
gnus-agent.elc	121.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-art.elc	256.06 KB	-rw-r--r--	2023-06-07 04:09
gnus-async.elc	12.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-bcklg.elc	3.42 KB	-rw-r--r--	2023-06-07 04:09
gnus-bookmark.elc	24.2 KB	-rw-r--r--	2023-06-07 04:09
gnus-cache.elc	25.68 KB	-rw-r--r--	2023-06-07 04:09
gnus-cite.elc	27.02 KB	-rw-r--r--	2023-06-07 04:09
gnus-cus.elc	38.53 KB	-rw-r--r--	2023-06-07 04:09
gnus-delay.elc	4.79 KB	-rw-r--r--	2023-06-07 04:09
gnus-demon.elc	7.77 KB	-rw-r--r--	2023-06-07 04:09
gnus-diary.elc	8.86 KB	-rw-r--r--	2023-06-07 04:09
gnus-dired.elc	7.65 KB	-rw-r--r--	2023-06-07 04:09
gnus-draft.elc	11.72 KB	-rw-r--r--	2023-06-07 04:09
gnus-dup.elc	4.45 KB	-rw-r--r--	2023-06-07 04:09
gnus-eform.elc	3.43 KB	-rw-r--r--	2023-06-07 04:09
gnus-ems.elc	5.94 KB	-rw-r--r--	2023-06-07 04:09
gnus-fun.elc	8.5 KB	-rw-r--r--	2023-06-07 04:09
gnus-gravatar.elc	4.09 KB	-rw-r--r--	2023-06-07 04:09
gnus-group.elc	151.52 KB	-rw-r--r--	2023-06-07 04:09
gnus-html.elc	14.29 KB	-rw-r--r--	2023-06-07 04:09
gnus-int.elc	63.73 KB	-rw-r--r--	2023-06-07 04:10
gnus-kill.elc	17.78 KB	-rw-r--r--	2023-06-07 04:10
gnus-logic.elc	5.07 KB	-rw-r--r--	2023-06-07 04:10
gnus-mh.elc	2.83 KB	-rw-r--r--	2023-06-07 04:10
gnus-ml.elc	5.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-mlspl.elc	6.3 KB	-rw-r--r--	2023-06-07 04:10
gnus-msg.elc	85.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-notifications.elc	5.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-picon.elc	8.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-range.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-registry.elc	31.31 KB	-rw-r--r--	2023-06-07 04:10
gnus-salt.elc	24.04 KB	-rw-r--r--	2023-06-07 04:10
gnus-score.elc	73.99 KB	-rw-r--r--	2023-06-07 04:10
gnus-setup.elc	4.95 KB	-rw-r--r--	2023-06-07 04:10
gnus-sieve.elc	8.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-spec.elc	14.81 KB	-rw-r--r--	2023-06-07 04:10
gnus-srvr.elc	48.21 KB	-rw-r--r--	2023-06-07 04:10
gnus-start.elc	144.43 KB	-rw-r--r--	2023-06-07 04:10
gnus-sum.elc	414.15 KB	-rw-r--r--	2023-06-07 04:10
gnus-sync.elc	21.49 KB	-rw-r--r--	2023-06-07 04:10
gnus-topic.elc	46.05 KB	-rw-r--r--	2023-06-07 04:10
gnus-undo.elc	4.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-util.elc	52.93 KB	-rw-r--r--	2023-06-07 04:10
gnus-uu.elc	55.72 KB	-rw-r--r--	2023-06-07 04:10
gnus-vm.elc	2.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-win.elc	10.58 KB	-rw-r--r--	2023-06-07 04:10
gnus.elc	156.43 KB	-rw-r--r--	2023-06-07 04:10
gravatar.elc	4.26 KB	-rw-r--r--	2023-06-07 04:10
gssapi.elc	2.41 KB	-rw-r--r--	2023-06-07 04:10
html2text.elc	10.47 KB	-rw-r--r--	2023-06-07 04:10
ietf-drums.elc	7.64 KB	-rw-r--r--	2023-06-07 04:10
legacy-gnus-agent.elc	6.54 KB	-rw-r--r--	2023-06-07 04:10
mail-parse.elc	2.39 KB	-rw-r--r--	2023-06-07 04:10
mail-prsvr.elc	1.23 KB	-rw-r--r--	2023-06-07 04:10
mail-source.elc	28.49 KB	-rw-r--r--	2023-06-07 04:10
mailcap.elc	24.93 KB	-rw-r--r--	2023-06-07 04:10
message.elc	227.03 KB	-rw-r--r--	2023-06-07 04:10
messcompat.elc	2.69 KB	-rw-r--r--	2023-06-07 04:10
mm-archive.elc	2.85 KB	-rw-r--r--	2023-06-07 04:10
mm-bodies.elc	5.99 KB	-rw-r--r--	2023-06-07 04:10
mm-decode.elc	50.6 KB	-rw-r--r--	2023-06-07 04:10
mm-encode.elc	6.2 KB	-rw-r--r--	2023-06-07 04:10
mm-extern.elc	4.28 KB	-rw-r--r--	2023-06-07 04:10
mm-partial.elc	3.37 KB	-rw-r--r--	2023-06-07 04:10
mm-url.elc	8.73 KB	-rw-r--r--	2023-06-07 04:10
mm-util.elc	39.65 KB	-rw-r--r--	2023-06-07 04:10
mm-uu.elc	18.9 KB	-rw-r--r--	2023-06-07 04:10
mm-view.elc	18.51 KB	-rw-r--r--	2023-06-07 04:10
mml-sec.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
mml-smime.elc	14.44 KB	-rw-r--r--	2023-06-07 04:10
mml.elc	42.01 KB	-rw-r--r--	2023-06-07 04:10
mml1991.elc	11.5 KB	-rw-r--r--	2023-06-07 04:10
mml2015.elc	33.95 KB	-rw-r--r--	2023-06-07 04:10
nnagent.elc	10.93 KB	-rw-r--r--	2023-06-07 04:10
nnbabyl.elc	17.15 KB	-rw-r--r--	2023-06-07 04:10
nndiary.elc	39.54 KB	-rw-r--r--	2023-06-07 04:10
nndir.elc	2.95 KB	-rw-r--r--	2023-06-07 04:11
nndoc.elc	30.11 KB	-rw-r--r--	2023-06-07 04:11
nndraft.elc	10.94 KB	-rw-r--r--	2023-06-07 04:11
nneething.elc	11.83 KB	-rw-r--r--	2023-06-07 04:11
nnfolder.elc	32.19 KB	-rw-r--r--	2023-06-07 04:11
nngateway.elc	3.04 KB	-rw-r--r--	2023-06-07 04:11
nnheader.elc	31.94 KB	-rw-r--r--	2023-06-07 04:11
nnimap.elc	68.59 KB	-rw-r--r--	2023-06-07 04:11
nnir.elc	56.96 KB	-rw-r--r--	2023-06-07 04:11
nnmail.elc	53.02 KB	-rw-r--r--	2023-06-07 04:11
nnmaildir.elc	97.58 KB	-rw-r--r--	2023-06-07 04:11
nnmairix.elc	72.67 KB	-rw-r--r--	2023-06-07 04:11
nnmbox.elc	18.82 KB	-rw-r--r--	2023-06-07 04:11
nnmh.elc	15.52 KB	-rw-r--r--	2023-06-07 04:11
nnml.elc	39.81 KB	-rw-r--r--	2023-06-07 04:11
nnnil.elc	1.77 KB	-rw-r--r--	2023-06-07 04:11
nnoo.elc	8.72 KB	-rw-r--r--	2023-06-07 04:11
nnregistry.elc	1.85 KB	-rw-r--r--	2023-06-07 04:11
nnrss.elc	30.01 KB	-rw-r--r--	2023-06-07 04:11
nnspool.elc	15.88 KB	-rw-r--r--	2023-06-07 04:11
nntp.elc	121.29 KB	-rw-r--r--	2023-06-07 04:11
nnvirtual.elc	18.42 KB	-rw-r--r--	2023-06-07 04:11
nnweb.elc	17.61 KB	-rw-r--r--	2023-06-07 04:11
plstore.elc	14.75 KB	-rw-r--r--	2023-06-07 04:11
pop3.elc	14.53 KB	-rw-r--r--	2023-06-07 04:11
qp.elc	4.35 KB	-rw-r--r--	2023-06-07 04:11
registry.elc	9.3 KB	-rw-r--r--	2023-06-07 04:11
rfc1843.elc	5.35 KB	-rw-r--r--	2023-06-07 04:11
rfc2045.elc	971 B	-rw-r--r--	2023-06-07 04:11
rfc2047.elc	24.75 KB	-rw-r--r--	2023-06-07 04:11
rfc2104.elc	1.43 KB	-rw-r--r--	2023-06-07 04:11
rfc2231.elc	6.84 KB	-rw-r--r--	2023-06-07 04:11
rtree.elc	4.3 KB	-rw-r--r--	2023-06-07 04:11
score-mode.elc	3.32 KB	-rw-r--r--	2023-06-07 04:11
shr-color.elc	9.11 KB	-rw-r--r--	2023-06-07 04:11
shr.elc	33.2 KB	-rw-r--r--	2023-06-07 04:11
sieve-manage.elc	17.1 KB	-rw-r--r--	2023-06-07 04:11
sieve-mode.elc	7.73 KB	-rw-r--r--	2023-06-07 04:11
sieve.elc	11.08 KB	-rw-r--r--	2023-06-07 04:11
smiley.elc	5.39 KB	-rw-r--r--	2023-06-07 04:11
smime.elc	19.61 KB	-rw-r--r--	2023-06-07 04:11
spam-report.elc	11.53 KB	-rw-r--r--	2023-06-07 04:11
spam-stat.elc	19.64 KB	-rw-r--r--	2023-06-07 04:11
spam-wash.elc	1.37 KB	-rw-r--r--	2023-06-07 04:11
spam.elc	83.9 KB	-rw-r--r--	2023-06-07 04:11
starttls.elc	6.42 KB	-rw-r--r--	2023-06-07 04:11
utf7.elc	5.83 KB	-rw-r--r--	2023-06-07 04:11
yenc.elc	3.62 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:11:09 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nnml.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

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

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

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

(byte-code "\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 (#$ . 996))
(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) (#$ . 1204))
(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) (#$ . 1418))
(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 (#$ . 1660))
(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 (#$ . 1888))
(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 (#$ . 2498))
(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 (#$ . 2724))
(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 (#$ . 2915))
(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 (#$ . 3359))
(nnoo-define 'nnml-compressed-files-size-threshold nil)
#@15 nnml version.
(defconst nnml-version "nnml 1.0" (#$ . 3744))
(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!\207" [nnoo-define nnml-file-coding-system nil nnoo-define-basics-1 nnml] 3)
#@59 Return a decoded group name of GROUP on SERVER-OR-METHOD.
(defalias 'nnml-decoded-group-name #[(group &optional server-or-method) "\203�	\207\306	\211\n\307\n;\203\310\311\n\"\203(�\n\312\211\224O\313\n\312\225\314OQ\202+�\315\nP\211\2039�<\2039�\206\316\f\"A\206\317\232\203K�
\206�\316\"A\206�\316\"A\206�\203\204�\320\321@@@@@A@#\232\204\204�\211A@\210\202a�\211@@*\206�\203\270�\320\321\211@@)@A@#\232\204\270�\211A@\210\202\223�@)\206�A\314\211 !!\203\375�\322!\211A!@8\211 ;\204\312� \314\323\"# \324\325\215+\232\203\312� \314\211!\204\317�+\211$\203\316\f\"\204$B\fB$))\202%\n\206%%\206%\326	\"*\"\207" [nnmail-group-names-not-encoded-p group server-or-method server gnus-server-method-cache gnus-select-method mm-decode-coding-string gnus-group-name-charset string-match "\\+" 0 ":" nil "nnml:" assoc "native" format "%s:%s" 4 t server-name (byte-code "\206�	\n\204�\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*�\312\313@\"\2026�\312\314@\211A@)#\211B\211\235\204V�\204V�\315@\"\204V�B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f�\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205�\n\235\204�\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) (nnml #1#) gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result gnus-command-method] 8 (#$ . 4733)])
#@60 Return an encoded group name of GROUP on SERVER-OR-METHOD.
(defalias 'nnml-encoded-group-name #[(group &optional server-or-method) "\306\211	\307	;\203\310\311	\"\203\"�	\312\211\224O\313	\312\225\314OQ\202%�\315	P\211\2033�\n<\2033�\n\206\316\n\"A\206\n\317\232\203E�\f\206\371�\316\n
\"A\206\371�\316\n\"A\206\371�\203}�\n\320\321@@@@@A@#\232\204}�\211A@\210\202Z�\211@@*\206\371�\203\261�\n\320\321\211@@)@A@#\232\204\261�\211A@\210\202\214�@)\206\371�A\314\211  \203\366�\322 \211A @8\211;\204\303�\n\314\323!\"\324\325\215+\232\203\303�\314\211 \204\310�+\211#\203
\316\n\"\204
\n#BB#))\202	\206$\206\326\"*\"\207" [group server-or-method server gnus-server-method-cache gnus-select-method gnus-server-alist mm-encode-coding-string gnus-group-name-charset string-match "\\+" 0 ":" nil "nnml:" assoc "native" format "%s:%s" 4 t server-name (byte-code "\206�	\n\204�\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*�\312\313@\"\2026�\312\314@\211A@)#\211B\211\235\204V�\204V�\315@\"\204V�B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f�\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205�\n\235\204�\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) (nnml #1#) gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result gnus-command-method] 8 (#$ . 6598)])
#@59 Return an absolute file name of FILE for GROUP on SERVER.
(defalias 'nnml-group-pathname #[(group &optional file server) "\306	\203
�\2020\307\211\n\310\n;\203\"\311\312\n\"\203/�\n\313\211\224O\314\n\313\225\315OQ\2022�\316\nP\211\203@�	<\203@�	\206\317	\f\"A\206	\320\232\203R�
\206\317	\"A\206\317	\"A\206\203\213�	\321\322@@@@@A@#\232\204\213�\211A@\210\202h�\211@@*\206\203\277�	\321\322\211@@)@A@#\232\204\277�\211A@\210\202\232�@)\206A\315\211 !\"\"\203\323\"\211A\"@8\211!;\204\321�	!\315\324#$!\325\326\215+\232\203\321�! \315\211\"\204\326� +\211%\203\317	\f\"\204	%B\fB%))\202,\n\206,&\206,\327\"*\"*'(#\207" [group server server-or-method nnmail-group-names-not-encoded-p gnus-server-method-cache gnus-select-method nnmail-group-pathname mm-decode-coding-string gnus-group-name-charset string-match "\\+" 0 ":" nil "nnml:" assoc "native" format "%s:%s" 4 t server-name (byte-code "\206�	\n\204�\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*�\312\313@\"\2026�\312\314@\211A@)#\211B\211\235\204V�\204V�\315@\"\204V�B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f�\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205�\n\235\204�\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) (nnml #1#) gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result gnus-command-method nnml-directory file] 9 (#$ . 8430)])
(defalias 'nnml-retrieve-headers #[(sequence &optional group server fetch-old) "\306	\"\205\304�r\nq\210\307 \210\310\fG\311!\"#\310\211$%\f@;\203*�\312\202\302�\313\f&\"\2036�\314\202\302�\f\203\254�\f@%\315%!\211\203\200�\316!\203\200�\317!\204\200�\320\321%\"c\210`$\322!\210$b\210\323\324\310\325#\203s�\326u\210\202y�db\210\327c\210\330c\210`d|\210\fA!T!'\247\2036�
'V\2036�\331!\332\246!\2036�\333\334\335!\336_
\245#\210\2026�'\247\203\276�
'V\203\276�\333\334\337\"\210\340 \210\312.\207" [group server nntp-server-buffer file sequence number 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" zerop 20 nnheader-message 6 "nnml: Receiving headers... %d%%" 100 "nnml: Receiving headers...done" nnheader-fold-continuation-lines count nnmail-pathname-coding-system file-name-coding-system beg article fetch-old nnmail-large-newsgroup] 6])
(nnoo-register-function 'nnml-retrieve-headers)
(defalias 'nnml-open-server #[(server &optional defs) "\303\304	#\210\305\n!\204�\306\307\310\217\210\305\n!\204 �\311 \210\312\304\313\n#\207\314\315\n!!\2041�\311 \210\312\304\316\n#\207\312\304\317\n$\210\320\207" [server defs nnml-directory nnoo-change-server nnml file-exists-p nil (make-directory nnml-directory t) ((error)) 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" t] 5])
(nnoo-register-function 'nnml-open-server)
(defalias 'nnml-request-regenerate #[(server) "\301\302\"\210\303!\210\304\207" [server nnml-possibly-change-directory nil nnml-generate-nov-databases t] 3])
(nnoo-register-function 'nnml-request-regenerate)
(defalias 'nnml-request-article #[(id &optional group server buffer) "\306	\"\210\n\206\n�\f\307\211\307;\203Z�\310	\"\211\203`�A\311\312@\307	#\211!\236A\203`�\313 \210\203O�A\236A\202T�\314A!P\202`�\315!\204n�\316\317\320#\202\276�\321!\204~�\316\317\322#\202\276�\323!\203\216�\316\317\324#\202\276�\212 !\325!*\204\244�\316\317\326#\202\276�\316\317\327#\210\203\266�@\202\267�\330\331!!B-\207" [group server buffer nntp-server-buffer nnmail-pathname-coding-system file-name-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 path gpath group-num id nnml-use-compressed-files nnml-article-file-alist nnml-file-coding-system nnmail-file-coding-system] 7])
(nnoo-register-function 'nnml-request-article)
(defalias 'nnml-request-group #[(group &optional server dont-check info) "\306	\n\"\307	\n\"\204�\310\311\312\"\202x�\313
!\204#�\310\311\314
#\202x�\315
!\2041�\310\311\316
#\202x�\203@�\310\311\317#\210\320\202x�\321
!\210\322\311!\210\323	\"A@\211\204]�\310\311\324#\202w�\310\311\325#\210\326\327A@ZT\330]@A	%)*\207" [nnmail-pathname-coding-system group server decoded file-name-coding-system nnml-current-directory nnml-decoded-group-name 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 "No such group: %s" "Selected group %s" nnheader-insert "211 %d %d %d %s\n" 0 dont-check nnml-group-alist active] 7])
(nnoo-register-function 'nnml-request-group)
(defalias 'nnml-request-scan #[(&optional group server) "\304\305	\n\"\210\306\307\310	$\207" [nnml-article-file-alist group server nnml-directory nil nnml-possibly-change-directory nnmail-get-new-mail nnml nnml-save-incremental-nov] 5])
(nnoo-register-function 'nnml-request-scan)
(defalias 'nnml-close-group #[(group &optional server) "\301\302\207" [nnml-article-file-alist nil t] 1])
(nnoo-register-function 'nnml-close-group)
(defalias 'nnml-request-create-group #[(group &optional server args) "\306\307\"\210\310\311!\210\312\313	\307#!\n\314\f!\205�\315\f!?*\203-�\316\311\317\312\313	\307#!#\207\320	
\"\2036�\321\207\307	\322\323B\211D
B\324	\"\210\306	\"\210\n\325!\211\203l�\326\327\"\240\210\326\330\"\241\210*\331
\"\210)\321\207" [server group nnmail-pathname-coding-system file-name-coding-system file nnml-group-alist 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 t 1 0 nnml-possibly-create-directory nnml-directory-articles apply min max nnmail-save-active active nnml-current-directory articles nnml-active-file] 9])
(nnoo-register-function 'nnml-request-create-group)
(defalias 'nnml-request-list #[(&optional server) "\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] 2])
(nnoo-register-function 'nnml-request-list)
(defalias 'nnml-request-newgroups #[(date &optional server) "\301!\207" [server nnml-request-list] 2])
(nnoo-register-function 'nnml-request-newgroups)
(defalias 'nnml-request-list-newsgroups #[(&optional server) "\212\301!)\207" [nnml-newsgroups-file nnmail-find-file] 2])
(nnoo-register-function 'nnml-request-list-newsgroups)
(defalias 'nnml-request-expire-articles #[(articles group &optional server force) "\306	\"\210\n\307\f!\310)\311	\"*\312\211+,\312\211-.\312/\313\314!\210\315
\316\"\3170
\"00\203)\203\3200\211A0@\211.!\211+\203\376�\321\322+!8\211-\203\376�\323.\"\203\376�\324-12$\211)\203\376�3\211/\325=\204\322�\326\327!4r4q\210\330\216\331.	p$\210\312\211\21156\332/!\203\245�/!//\203\313�/\325=\204\313�\333/!\204\277�\334/!\203\310�\335/\"\210\202\313�\312/.\306	\"\210/\203\364�\336\321\337.*$\210\312\340\341\217\210\342.
\"\343.\"\210\2023�.,B,\2023�.,B,\2023�\3447\"A@\2118\203(8
\203\"\345\346
\"\206&8AT\240\210\34779\"\210)\350 \210,0\244.	\207" [group server nnmail-pathname-coding-system file-name-coding-system nnml-current-directory active-articles nnml-possibly-change-directory nnml-directory-articles t nnml-decoded-group-name nil nnmail-activate nnml sort < gnus-sorted-intersection nnml-article-to-file 5 file-attributes nnml-deletable-article-p nnmail-expired-article-p delete generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer 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" (funcall nnmail-delete-file-function article) ((file-error (byte-code "	B\302\207" [number rest nil] 2))) delq nnml-nov-delete-article assoc apply min nnmail-save-active nnml-save-nov is-old decoded article rest mod-time number target articles force nnml-inhibit-expiry nnmail-expiry-target #1# nnml-article-file-alist nnml-current-group nnml-group-alist active nnml-active-file] 6])
(nnoo-register-function 'nnml-request-expire-articles)
(defalias 'nnml-request-move-article #[(article group server accept-form &optional last move-is-internal) "\306\307!\310\311\f
\"\210\312 \210\313\f\"\203`�\314\f
#\203`�\310\211\211rq\210\315!\210\316!\317p!\210	,\203`�\311\f
\"\210\310\320\321\217\210\322\f\"\210\203`�\323 \210\324\"\210	+\207" [nnmail-pathname-coding-system result file-name-coding-system buf group server 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 kill-buffer (byte-code "\302	!!\207" [nnmail-delete-file-function article nnml-article-to-file] 3) ((file-error)) nnml-nov-delete-article nnml-save-nov nnmail-save-active article nnml-article-file-alist nnml-current-group nnml-current-directory nntp-server-buffer accept-form last nnml-group-alist nnml-active-file] 4])
(nnoo-register-function 'nnml-request-move-article)
(defalias 'nnml-request-accept-article #[(group &optional server last) "\306	\"\210\307 \210\310\203�\311\312\313!\312\314!\312\315!$\210;\203G�\316\317!\203\206�\320\321	\"BC	\322#@\211\203\206�\323\f
\"\210\203\206�\324 \210\202\206�\316\317!\203\206�\325\326\327\321\300	EE!\211\204g�\330\331!\203g�\332\211\202o�\320\n	\322#@\211\203\206�\203\206�\323\f
\"\210\203\203�\333 \210\324 \210\n)\207" [group server result 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 lambda (group) yes-or-no-p "Moved to `junk' group; delete article? " junk nnmail-cache-close last] 6])
(nnoo-register-function 'nnml-request-accept-article)
(defalias 'nnml-request-post #[(&optional server) "\301\302\"\207" [server nnmail-do-request-post nnml-request-accept-article] 3])
(nnoo-register-function 'nnml-request-post)
(defalias 'nnml-request-replace-article #[(article group buffer) "\306!\210r	q\210\307!\210\310 \311\n!\312P\313\313\314\315\217\205l�\316
\n\"r\317!q\210eb\210\320\f!\204<�\321\322\fP\313\323#\203G�\324 \325y\210`|\210\202`�\320\326!\203`�\327\330\224\330\225{!\nW\203`�\331\325y!\204G�\332 \210\333!\210\334 \210)\323,\207" [group buffer article headers art chars nnml-possibly-change-directory nnml-possibly-create-directory nnmail-insert-lines int-to-string "	" nil (byte-code "\302ed\303!\206�\304\305!	\"\306\307\310!?\205�\311%\210\312\207" [article nnml-current-directory nnmail-write-region nnml-article-to-file expand-file-name int-to-string nil nnheader-be-verbose 5 nomesg t] 7) ((error)) nnml-parse-head nnml-open-nov looking-at search-forward "\n" t point-at-bol 1 "[0-9]+	" string-to-number 0 zerop beginning-of-line nnheader-insert-nov nnml-save-nov] 4])
(nnoo-register-function 'nnml-request-replace-article)
(defalias 'nnml-request-delete-group #[(group &optional force server) "\306	\"\210\307\n!\310
!\203s�\311
!\203j�\203y�\312\n\313 \314\315!!\316R#\317	\"\"\211#\320$\211%\203a�%@$\321$!\203X�\322\323\324\325$!\"$\210&$!\210%A\211%\204;�,\320\326\327\217\210\202y�\330\331\332
#\210\202y�\330\331\333
#\210\334\335'\"'\"'\320\211(\336')\"\210*\313\207" [group server nnml-current-directory nnmail-pathname-coding-system file-name-coding-system file nnml-possibly-change-directory directory-file-name file-exists-p file-directory-p directory-files t "\\|" regexp-quote "$" nnml-decoded-group-name nil file-writable-p nnheader-message 5 "Deleting article %s in %s..." file-name-nondirectory (delete-directory nnml-current-directory) ((error)) nnheader-report nnml "%s is not a directory" "No such directory: %s/" delq assoc nnmail-save-active force nnheader-numerical-short-files nnml-nov-file-name decoded articles article --dolist-tail-- nnmail-delete-file-function nnml-group-alist nnml-current-group nnml-active-file] 8])
(nnoo-register-function 'nnml-request-delete-group)
(defalias 'nnml-request-rename-group #[(group new-name &optional server) "\306	\"\210\307\n\310	#\307\310	#\310\311\312\217\205\211�\313
!\310\211\203C�@\314
APAP\"\210A\211\204'�*
P\315!\203[�\314P\"\210)\316
!G\317X\203j�\310\320\321\217\210\322\"\211\203z�\n\240\210\310\211\323\"\210)\324+\207" [group server new-name nnmail-pathname-coding-system file-name-coding-system old-dir nnml-possibly-change-directory nnml-group-pathname nil (byte-code "\301\302\"\210\302\207" [new-dir make-directory t] 3) ((error)) nnheader-article-to-file-alist rename-file file-exists-p directory-files 2 (delete-directory old-dir) ((error)) assoc nnmail-save-active t new-dir file --dolist-tail-- nnml-nov-file-name overview nnml-group-alist entry nnml-current-directory nnml-current-group nnml-active-file] 6])
(nnoo-register-function 'nnml-request-rename-group)
(defalias 'nnml-set-status #[(article name value &optional group server) "\306	\"\210\307\n!\310!\204�\311\312\313#\202?�\314\315\316!!\317\216r\fq\210\320!\210\321\"\210)r\fq\210\322\323\211
\323\324%\210,\325)\207" [group server article file #1=#:temp-buffer #2=#:temp-file nnml-possibly-change-directory nnml-article-to-file file-exists-p nnheader-report nnml "File %s does not exist" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nnheader-insert-file-contents nnmail-replace-status write-region nil 0 t name value] 6])
(nnoo-register-function 'nnml-set-status)
(defalias 'nnml-article-to-file #[(article) "\306 \210\307	\203�\n\236A\202�\310\n!\211\203�\311\f\"\2026�
?\2056�\312\311\310\n!\f\"\211!\2056�\306\313!\210)\207" [file nnml-use-compressed-files article 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] 4])
#@46 Say whether ARTICLE in GROUP can be deleted.
(defalias 'nnml-deletable-article-p #[(group article) "\306\307!\211\205\"�\310	!\205\"�\f?\206\"�\311
\n\"A@A=?*\207" [nnmail-pathname-coding-system path file-name-coding-system article nnmail-keep-last-article group nil nnml-article-to-file file-writable-p assoc nnml-group-alist] 3 (#$ . 23884)])
(defalias 'nnml-find-group-number #[(id server) "r\306\307!q\210\310\311\f
#\211\203�	B\202Q�	\204D�\n\203D�\n\211\n@@)\230\204:�\311\n\211\n@@)\f
#	\204�\nA\202�	\205Q�\n\211\n@@)	B+\207" [nnml-group-alist number alist nnml-current-group id server get-buffer-create " *nnml id*" nil nnml-find-id x] 5])
(defalias 'nnml-find-id #[(group id server) "\306 \210\307	\n#\310\211\311
!\205J�\312
!\210\204I�\313\310\314#\203I�\315\316\310\314\317$\2036�\315\316\320 \314#\203<�\321y\210\202�\322 \210\314\310\323\324\217\202�\f+\207" [group nnml-nov-file-name server found number nov 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 (byte-code "\300p!\207" [read] 2) ((error)) id] 5])
(defalias 'nnml-retrieve-headers-with-nov #[(articles &optional fetch-old) "\206�	?\205L�\306\n\"\307\f!\205K�r
q\210\310 \210\311\f!\210\203.�\247\204.�\312\202J�\313\203?�\314@Z]\202B�@\315!@\"\210\312))\207" [gnus-nov-is-evil nnml-nov-is-evil nnml-nov-file-name nnml-current-directory nov nntp-server-buffer expand-file-name file-exists-p erase-buffer nnheader-insert-file-contents t nnheader-nov-delete-outside-range 1 last fetch-old articles] 4])
(defalias 'nnml-possibly-change-directory #[(group &optional server) "\203�\306!\204�\307!\210	\204�\310\207\311	\312#\n\211
\232\204*�\f	\f\312
\313
!*\207" [server group nnmail-pathname-coding-system file-name-coding-system pathname nnml-current-directory nnml-server-opened nnml-open-server t nnml-group-pathname nil file-exists-p nnml-current-group nnml-article-file-alist] 5])
(defalias 'nnml-possibly-create-directory #[(group &optional server) "\305\306	#\n\307\f!?\205�\310\311\f!\312\"\210\313\314\315\f#*\207" [group server nnmail-pathname-coding-system file-name-coding-system dir nnml-group-pathname nil file-exists-p make-directory directory-file-name t nnheader-message 5 "Creating mail directory %s"] 4])
#@202 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.
(defalias 'nnml-save-mail #[(group-art &optional server full-nov) "\306 	\205�\nV\205�	;\203�	\202�\307\310\211\310\211 \310!\"\203a�#\310\211#$\211%\203^�%@$#\311$@&\"$ABC\244#\f$@C\244%A\211%\2048�*\f\312#!\210\313\314!\210\313\315!\210eb\210\316\317!\203\201�\320\321!\210\322y\210\202q�#\310$\211%\203\375�%@$\"\203\262�\323\f@&\"\210\324\f\211A@'\325$A!P#\202\312�\323$@&\"\210\326$@\325$A!P&# \203\340�()* \327#\210)\202\364�\330ed\310\331\332!?\205\356�\333%\210 %A\211%\204\214�*\334!!+\203\f\335\202
\336,\"\203?#\310$\211%\203;%@$,
\211A@$A!#\210%A\211%\204*\202e#\310$\211%\203d%@$,$@$A!#\210%A\211%\204J*.#\207" [chars nnml-use-compressed-files nnml-compressed-files-size-threshold extension decoded dec nnmail-insert-lines ".gz" nil nnml-encoded-group-name 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 nnmail-group-pathname number-to-string nnml-group-pathname t nnmail-write-region nnheader-be-verbose 5 nomesg nnml-parse-head nnml-add-nov nnml-add-incremental-nov file first headers nnmail-group-names-not-encoded-p group-art ga --dolist-tail-- server nnml-directory nnmail-pathname-coding-system file-name-coding-system nnmail-crosspost-link-function full-nov func] 8 (#$ . 26259)])
#@53 Compute the next article number in GROUP on SERVER.
(defalias 'nnml-active-number #[(group &optional server) "\205�\306	\n\"\307\206�	\f\"\211A@)\211\204[�\310	\n\"\210\311	\n\"\210\2042�\312\313 \314\"\203K�\211@@)\315!\211@@)B\202N�\316\317B\206U�	D\fB\211AT\241\210\320\321	\322A!\n#!\203z�\211AT\241\210\202b�A*\207" [nnmail-group-names-not-encoded-p group server encoded nnml-group-alist x nnml-encoded-group-name assoc 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 active nnml-article-file-alist] 6 (#$ . 27893)])
(defvar nnml-incremental-nov-buffer-alist nil)
(defalias 'nnml-save-incremental-nov #[nil "\212\2055�\303\211@A)!\203-�\211@A)q\210\304 \203%�\305ed\n\306\307%\210\310\311!\210\312p!\210A\211\204�\311)\207" [nnml-incremental-nov-buffer-alist x nnml-nov-buffer-file-name buffer-name buffer-modified-p nnmail-write-region t nomesg set-buffer-modified-p nil kill-buffer] 7])
(defalias 'nnml-open-incremental-nov #[(group) "\303	\"A\206�\304\305\"\nB	B\n)\207" [group nnml-incremental-nov-buffer-alist buffer assoc nnml-get-nov-buffer t] 3])
#@58 Add a nov line for the GROUP nov headers, incrementally.
(defalias 'nnml-add-incremental-nov #[(group article headers) "r\303!q\210db\210	\304\nI\210\305	!)\207" [group headers article nnml-open-incremental-nov 0 nnheader-insert-nov] 3 (#$ . 29142)])
#@36 Add a nov line for the GROUP base.
(defalias 'nnml-add-nov #[(group article headers) "r\303!q\210db\210	\304\nI\210\305	!)\207" [group headers article nnml-open-nov 0 nnheader-insert-nov] 3 (#$ . 29400)])
(defalias 'nnml-header-value #[nil "\300\225\301 {\207" [0 point-at-eol] 2])
(put 'nnml-header-value 'byte-optimizer 'byte-compile-inline-expand)
#@39 Parse the head of the current buffer.
(defalias 'nnml-parse-head #[(chars &optional number) "\212\214\303\304 !\204�eb\305\306\307\310#\203�`S\202�d}\210\311 \211\312	I\210\313\nI\210+\207" [headers chars number zerop buffer-size re-search-forward "\n
?\n" nil t nnheader-parse-naked-head 6 0] 6 (#$ . 29758)])
(defalias 'nnml-get-nov-buffer #[(group &optional incrementalp) "\306!\307\310\311\n\203�\312\202�\313	#!\frq\210\314\315!\210\316	#
\317 \210\n\204:�\320
!\203:�\321
!\210)+\207" [group decoded incrementalp buffer nnmail-pathname-coding-system file-name-coding-system nnml-decoded-group-name get-buffer-create format " *nnml %soverview %s*" "incremental " "" make-local-variable nnml-nov-buffer-file-name nnmail-group-pathname erase-buffer file-exists-p nnheader-insert-file-contents nnml-directory nnml-nov-file-name] 5])
(defalias 'nnml-open-nov #[(group) "\303	\"A\304\n!\205
�\n)\206�\305!\nB	B\n)\207" [group nnml-nov-buffer-alist buffer assoc buffer-name nnml-get-nov-buffer] 3])
(defalias 'nnml-save-nov #[nil "\212\2055�\303\211@A)!\203-�\211@A)q\210\304 \203%�\305ed\n\306\307%\210\310\306!\210\311p!\210A\211\204�\306)\207" [nnml-nov-buffer-alist x nnml-nov-buffer-file-name buffer-name buffer-modified-p nnmail-write-region nil nomesg set-buffer-modified-p kill-buffer] 7])
#@49 Generate NOV databases in all nnml directories.
(defalias 'nnml-generate-nov-databases #[(&optional server) "\304\305!\210\306!\204�\307!\210\310	!\311	\312\313#\210\314\n\"\207" [server 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] 4 (#$ . 31097) (list (or (nnoo-current-server 'nnml) ""))])
#@95 Regenerate the NOV database in DIR.

Unless no-active is non-nil, update the active file too.
(defalias 'nnml-generate-nov-databases-directory #[(dir &optional seen no-active) "\306!	\307!\235?\205\210�\307!B\310\311\312\311$\312\211\203@�\f@\313\314\315!\"\2049�\316!\2039�\317\"\210\fA\211\204\"�*\320\321!\322\"\211\204q�\323\324!\"\325\"\211A@)\211\205m�\211AT\240*\202\207�!\210\326
\"\210?\205\207�\327\"))\207" [dir nnmail-pathname-coding-system file-name-coding-system seen --dolist-tail-- nnml-files 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-directory group nnml-group-alist x info nnml-generate-active-function no-active nnml-active-file] 6 (#$ . 31542) (list (let ((file-name-coding-system nnmail-pathname-coding-system)) (read-directory-name "Regenerate NOV in: " nnml-directory nil t)))])
(defalias 'nnml-generate-active-info #[(dir) "\306!\307\211\310\311!\f\"\312
\"\211A@@\206�\313\314\n
\"
\211@@)\2060�	T	\301
!\211@@)\206?�\313]BD
B\211+\207" [dir last entry group nnml-directory nnml-group-alist directory-file-name nil nnheader-file-to-group nnml-encoded-group-name assoc 0 delq nnml-files x] 6])
(defalias 'nnml-generate-nov-file #[(dir files) "\306!\211	P\307\310!\311\211\311rq\210\312 \210\313 \210q\210\314\n!\203,�\n!\210\311\211\203\213�@
AP\315!\204\201�\313 \210\316!\210eb\317\320\311\321#\210d`Ze`S]}\210\322\323 !\204�eb\210\324\f
@\"rq\210db\210\325!\210)~\210)A\211\2046�*rq\210\326ed\n\311\327%\210\330p!.\207" [dir nnml-nov-file-name nov nov-buffer chars file file-name-as-directory 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 zerop buffer-size nnml-parse-head nnheader-insert-nov nnmail-write-region nomesg kill-buffer headers nntp-server-buffer nnmail-delete-file-function files --dolist-tail-- path] 7])
(defalias 'nnml-nov-delete-article #[(group article) "r\306!q\210\307	!\203O�`\310y\210`|\210o\203O�\311\n\"\211A@)\312\211\203N�m\2038�
\211
AT\240\210)\202N�\312\313\314\217\211\203N�\f\247\203N�
\211\f\240\210)*)\315\207" [group article nnml-group-alist x num active nnml-open-nov nnheader-find-nov-line 1 assoc nil (byte-code "\300p!\207" [read] 2) ((error)) t #1=#:v #2=#:v] 4])
(defalias 'nnml-update-file-alist #[(&optional force) "\205�	\203\f�\n\205�\303 \211\207" [nnml-use-compressed-files nnml-article-file-alist force nnml-current-group-article-to-file-alist] 2])
#@106 Return a list of all article files in a directory.
Use the nov database for that directory if available.
(defalias 'nnml-directory-articles #[(dir) "\204�	\204�\306\307\n\"!\204�\310!\207r\311\f!q\210\312\211
eb\210m\2047�\313p!\211
B
\314y\210\202#�
+\207" [gnus-nov-is-evil nnml-nov-is-evil nnml-nov-file-name dir nnml-current-group art file-exists-p expand-file-name nnheader-directory-articles nnml-get-nov-buffer nil read 1 list] 5 (#$ . 34363)])
#@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 #[nil "\204�	\204�\n\204�\306\307\f\"!\204�\310\f!\207r\311
!q\210\312\211eb\210m\204B�\313p!\211\314!BB\315y\210\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 art alist] 5 (#$ . 34834)])
(defalias 'nnml-request-compact-group #[(group &optional server save) "\306	\"\210\n\204�\307\310 \311\"\n\204�\312\207\313\314\315	\"\211\203)�	<\203)�	\206\316	\"A\206	\317\232\203;�\f\206\357�\316	
\"A\206\357�\316	6\"A\206\357�788\203s�	\314\3208@@@8@@A@#\232\204s�8\211A8@\210\202P�8\2119@@*\206\357�:;;\203\247�	\314\320;\2119@@);@A@#\232\204\247�;\211A;@\210\202\202�;@)\206\357�<A\321\211=>??\203\354�\322?\211A?@8\211>;\204\271�	>\321\312@A>\323\324\215+\232\203\271�>=\321\211?\204\276�=+\211B\203\316	\"\204	BBBB))\"C\325\326CD\"J8E\327F\321G\n\321HII\211AI@\211H\203}H@\211JFV\203t\330J!\330F!KL\312G\331J!M\332M\333L\334QK\335P#NrOq\210\336M!\210\337\340\321\312#\203\212\337\341\342\343LQ!\344Q\345 \312#\203\212\346\343KQ!\210\347edN#\210)PM!\210*\325E8Q\350QFC\"Q\351JQ\"\203\303\350QJC\"Q\352QFC\"QEAAQ\240\210)\353E8\321\211RSTT\211AT@\211S\203S\350SAFC\"\241\210\351JSA\"\203S\350SAJC\"\241\210S\352SAFC\"\241\210SRBR\202\330\353E\233R\240\210+U\204`r\354!q\210\355J!\203_\356L!\210\346K\321\312#\210\337\357\342\343LQ!\344Q\345 \312#\203_\346\360\343KR!\210)V\203s\361CJ\"\210\361CF\"\210*FTF)\202!*G\204\207\312\202\305\316W\"\327FSBXY\362YW\"WXDWBW\363CZ\"XL\210*[\204\272\312\202\305\364 \210\365W\\\"\210\312,\207" [group server nnml-article-file-alist gnus-server-method-cache gnus-select-method gnus-server-alist 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 (byte-code "\206�	\n\204�\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*�\312\313@\"\2026�\312\314@\211A@)#\211B\211\235\204V�\204V�\315@\"\204V�B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f�\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205�\n\235\204�\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) 2 intern-soft 1 int-to-string nnml-article-to-file gnus-replace-in-string "\$" "\$\$\\(\\.[a-z0-9]+\$?\\)$" "\\2" nnmail-find-file re-search-forward "^Xref: [^ ]+ " "\\<" regexp-quote ":" "\\>" point-at-eol replace-match nnmail-write-region 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 intern nnml-save-nov nnmail-save-active gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result group-full-name gnus-newsrc-hashtb info new-number compacted article articles old-number new-number-string old-number-string oldfile newfile nntp-server-buffer nnmail-delete-file-function read newmarks mark oldmarks nnml-nov-is-evil gnus-keep-backlog nnml-group-alist active entry gnus-active-hashtb save nnml-active-file] 8])
#@47 Request compaction of all SERVER nnml groups.
(defalias 'nnml-request-compact #[(&optional server) "\306\307!\210\310!\204�\311!\210\312	!\313\314\315\"\211\203%�<\203%�\206\316\n\"A\206\317\232\2037�\206\352�\316\f\"A\206\352�\316
\"A\206\352�\203n�\314\320@@@@@A@#\232\204n�\211A@\210\202K�\211@@*\206\352�\203\242�\314\320\211@@)@A@#\232\204\242�\211A@\210\202}�@)\206\352�A\321\211 !\"\"\203\347�\322\"\211A\"@8\211!;\204\264�!\321\323#$!\324\325\215+\232\203\264�! \321\211\"\204\271� +\211%\203\376�\316\n\"\204\376�%B\nB%))!\211&\211A&@'\321('\205]&\211A&@\211(\203A\326()\327\330)\"\2038)\331\225\321O\202:))\"\210\202\326')\327\330)\"\203W)\331\225\321O\202Y))\323#+\207" [server nnml-directory gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist 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 (byte-code "\206�	\n\204�\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*�\312\313@\"\2026�\312\314@\211A@)#\211B\211\235\204V�\204V�\315@\"\204V�B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f�\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205�\n\235\204�\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) nnml-request-compact-group string-match "^[^:]+:" 0 gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result groups first group gname] 7 (#$ . 38742) (list (or (nnoo-current-server 'nnml) ""))])
(provide 'nnml)