%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (#$ . 856))
(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) (#$ . 1064))
(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) (#$ . 1278))
(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 (#$ . 1520))
(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 (#$ . 1748))
(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 (#$ . 2358))
(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 (#$ . 2584))
(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 (#$ . 2775))
(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 (#$ . 3219))
(nnoo-define 'nnml-compressed-files-size-threshold nil)
#@15 nnml version.
(defconst nnml-version "nnml 1.0" (#$ . 3604))
(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 an absolute file name of FILE for GROUP on SERVER.
(defalias 'nnml-group-pathname #[(group &optional file server) "\303 \n#\207" [group nnml-directory file nnmail-group-pathname] 4 (#$ . 4593)])
(defalias 'nnml-retrieve-headers #[(sequence &optional group server fetch-old) "\306 \"\205\305 r\nq\210\307 \210\310\fG \311 !\" #\310\211 $ %\f@;\203* \312\202\303 \313\f&\"\2036 \314\202\303 \f\203\255 \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\246\311U\2036 \332\333\334\335!\336_
\"#\210\2026 '\247\203\277
'V\203\277 \332\333\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" 20 nnheader-message 6 "nnml: Receiving headers... %d%%" floor 100.0 "nnml: Receiving headers...done" nnheader-fold-continuation-lines count nnmail-pathname-coding-system file-name-coding-system beg article fetch-old nnmail-large-newsgroup] 7])
(nnoo-register-function 'nnml-retrieve-headers)
(defalias 'nnml-open-server #[(server &optional defs) "\303\304 #\210\305\n!\204 \3061 \307\n\310\"0\202 \210\202 \210\305\n!\204, \311 \210\312\304\313\n#\207\314\315\n!!\204= \311 \210\312\304\316\n#\207\312\304\317\n$\210\310\207" [server defs 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"] 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 \314 A!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 \"\204 \307\310\311\"\202r \312\f!\204 \307\310\313\f#\202r \314\f!\204, \307\310\315\f#\202r
\203: \307\310\316\n#\210\317\202r \320\f!\210\321\310!\210\322\n\"A@\211 \204W \307\310\323\n#\202q \307\310\324\n#\210\325\326A@ZT\327]@A\n%))\207" [nnmail-pathname-coding-system file-name-coding-system group server nnml-current-directory dont-check 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 nnml-group-alist active] 7])
(nnoo-register-function 'nnml-request-group)
(defalias 'nnml-request-scan #[(&optional group server) "\306\307 \n\"\210 \203 \310\311\312 $\207\313 \2039 \314 \210\f\306 \211 \2057 @\315
@\n\"\210A\211\204# \306*\207\310\311\312 \306$\207" [nnml-article-file-alist group server nnml-directory nnml-group-alist entry 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 --dolist-tail--] 6])
(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-string 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\211 ( )\311\211 * +\311 ,\312\313!\210\314
\315\"\316-
\"--\203'\203\317-\211A-\242\211+!\211(\203\f\320(!\3218\262\211*\203\f\322+\"\203\f\323*./$\211'\203\f0\211,\324=\204\317 \325\326! 1r1q\210\327\216\330+ p$\210\311\211\211 2 3 \331,!\203\242 ,!,,\203\310 ,\324=\204\310 \332,!\204\274 \333,!\203\305 \334,\"\210\202\310 \311,.\306 \"\210,\203\335\321\336+$\210\3371\351 4(!0\202\362 \210+)B\211)\210\340+
\"\341+\"\210\202- +)B)\202- +)B)\202- \3425\"A@\211 6\20366
\2030\343\344
\"\20646AT\240\210\34557\"\210)\346 \210)-\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 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*" #[nil "\301!\205 \302!\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" (file-error) delq nnml-nov-delete-article assoc-string apply min nnmail-save-active nnml-save-nov is-old article rest mod-time number target articles force nnml-inhibit-expiry nnmail-expiry-target #1# nnml-article-file-alist nnml-current-group nnmail-delete-file-function 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\"\203o \314\f
#\203o \310\211\211 r q\210\315!\210\316!\317p!\210 ,\203o \311\f
\"\210\3201U \321!!0\202Y \210\202Z \210\322\f\"\210 \203o \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 (file-error) nnml-article-to-file 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 nnmail-delete-file-function 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 \3141; \315ed\316\n!\206+ \317\311\n!!\"\313\320\321!?\2054 \322%\210\3230\202@ \210\313\202\221 \205\221 \324
\n\"r\325!q\210eb\210\326\f!\204a \327\330\fP\313\323#\203l \331 \332y\210`|\210\202\205 \326\333!\203\205 \334\335\224\335\225{!\nW\203\205 \332y\335U\204l \336 \210\337 !\210\340 \210)\323,\207" [group buffer article headers art chars 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 nnml-current-directory] 7])
(nnoo-register-function 'nnml-request-replace-article)
(defalias 'nnml-request-delete-group #[(group &optional force server) "\306 \"\210\307\n! \310
!\203w \311
!\203n \203} \312\n\313 \314\315 !\316R#\211 !\317 \"\211 #\203Z #@\"\320\"!\203Q \321\322\323\324\"!$\210$\"!\210#A\211#\2045 +\3251f \326\n!0\202j \210\202} \210\202} \327\330\331
#\210\202} \327\330\332
#\210\333\334%\"%\"%\317\211&\335%'\"\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 "$" nil 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 nnmail-save-active force nnheader-numerical-short-files nnml-nov-file-name 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 # \3111# \312\313\"\210\3130\202( \210\310\202\244 \205\244 \314
!\310 \211 \203S @\315
APAP\"\210A\211\2047 *
P \316!\203k \315P\"\210)\317
!G\320X\203\205 \3211\200 \322
!0\202\204 \210\202\205 \210\323\"\211 \203\225 \n\240\210\310\211 \324 \"\210)\313+\207" [group server new-name nnmail-pathname-coding-system file-name-coding-system old-dir 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 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\216r\fq\210\317 !\210\320\"\210)r\fq\210\321\322\211
\322\323%\210,\324)\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" generate-new-buffer " *temp file*" #[nil "\301!\205 \302!\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-string nnml-group-alist] 3 (#$ . 18301)])
(defalias 'nnml-find-group-number #[(id server) "r\306\307!q\210\310\311 \f
#\211\203 B\202E \204< \n\203< \n@@ \230\2042 \311\n@@\f
# \204 \nA\202 \205E \n@@ B+\207" [nnml-group-alist number alist nnml-current-group id server get-buffer-create " *nnml id*" nil nnml-find-id] 4])
(defalias 'nnml-find-id #[(group id server) "\306 \210\307 \n#\310\211 \311
!\205S \312
!\210 \204R \313\310\314#\203R \315\316\310\314\317$\2036 \315\316\320 \314#\203< \321y\210\202 \322 \210\314\3231L \324p!0\202N \210\310\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 (error) read 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 \311 !\210\312\313!\210\312\314!\210eb\210\315\316!\203? \317\320!\210\321y\210\202/ \310 \211 \203\223 @ \322 @!\"\210\323 @\324 A! P!#
\203y \" #$
\f\325#\210)\202\212 \326ed\f\310\327\330!?\205\206 \331%\210\f A\211 \204J *\332! %\203\242 \333\202\243 \334 & \310 \211 \203\312 @ & @ A #\210 A\211 \204\260 . \207" [chars nnml-use-compressed-files nnml-compressed-files-size-threshold extension file first 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 headers group-art ga --dolist-tail-- server nnmail-pathname-coding-system file-name-coding-system nnmail-crosspost-link-function full-nov func] 8 (#$ . 20638)])
#@53 Compute the next article number in GROUP on SERVER.
(defalias 'nnml-active-number #[(group &optional server) "\305 \"A@\211\2049 \306 \"\210\307 \"\210\f\204 \310\311 \312\"\f\203/ \f@@\313\f!@@B\2022 \314\315B\nD B\n\211AT\241\210\316\317\320\nA! #!\203U \n\211AT\241\210\202? \nA)\207" [group nnml-group-alist active server 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] 6 (#$ . 21918)])
(defvar nnml-incremental-nov-buffer-alist nil)
(defalias 'nnml-save-incremental-nov #[nil "\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])
(defalias 'nnml-open-incremental-nov #[(group) "\303 \"A\206 \304\305\"\nB B\n)\207" [group nnml-incremental-nov-buffer-alist buffer assoc-string 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\304!q\210db\210 \211\305 I\210)\306 !)\207" [group headers #1=#:v article nnml-open-incremental-nov 0 nnheader-insert-nov] 4 (#$ . 23044)])
#@36 Add a nov line for the GROUP base.
(defalias 'nnml-add-nov #[(group article headers) "r\304!q\210db\210 \211\305 I\210)\306 !)\207" [group headers #1=#:v article nnml-open-nov 0 nnheader-insert-nov] 4 (#$ . 23314)])
(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\305 \306U\204 eb\307\310\311\312#\203 `S\202 d}\210\313 \211\211\314\nI\210)\211\306\fI\210)+\207" [headers #1=#:v chars #2=#:v number buffer-size 0 re-search-forward "\n
?\n" nil t nnheader-parse-naked-head 6] 6 (#$ . 23684)])
(defalias 'nnml-get-nov-buffer #[(group &optional incrementalp) "\306\307\310\203 \311\202\f \312 #!\n r\fq\210\313\314!\210\315
#\f\316 \210\2045 \317\f!\2035 \320\f!\210)\f*\207" [incrementalp group nnmail-pathname-coding-system file-name-coding-system buffer nnml-directory 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-nov-file-name] 5])
(defalias 'nnml-open-nov #[(group) "\303 \"A\211\205 \304\305\n!\211!\205 \n)\206% \306!\nB B\n)\207" [group nnml-nov-buffer-alist buffer assoc buffer-live-p get-buffer nnml-get-nov-buffer] 4])
(defalias 'nnml-save-nov #[nil "\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])
#@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 (#$ . 25028) (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\204 \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 \204m \323\324!\" \325\"A@\211 \205i \211AT\240*\202\203 !\210\326
\"\210 ?\205\203 \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 info nnml-generate-active-function no-active nnml-active-file] 6 (#$ . 25473) (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 \f\"\311
\"\211A@@\206 \312\313\n
\" \f@@\206* T \301\f!@@\2065 \312]BD
B\211+\207" [dir last entry group nnml-directory nnml-group-alist directory-file-name nil nnheader-file-to-group assoc 0 delq nnml-files] 6])
(defalias 'nnml-generate-nov-file #[(dir files) "\306!\211 P\307\310!\311\211 \311 r q\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 \323U\204 eb\210\324\f
@\"r q\210db\210\325!\210)~\210) A\211 \2046 *r q\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 buffer-size 0 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 !\203T `\310y\210`|\210o\203T \311\n\"A@\312\211 \203S m\2034 \f\211 \fAT\240\210)\202S \3131? \314p!0\202A \210\312\211\203S \247\203S \f\211 \240\210)*)\315\207" [group article nnml-group-alist num active #1=#:v nnml-open-nov nnheader-find-nov-line 1 assoc nil (error) read t #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 (#$ . 28211)])
#@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\211 eb\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 (#$ . 28682)])
(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( \211<\203( \211\206[\316 \"A\206[\211\317\232\203: \f\206G\316
\"A\206G\316@\"A\206GA\211\203j \314\320@@@@@A@#\232\204j \211A\266\202\202M \211@@\262\206GB\211\203\217 \314\320@@@A@#\232\204\217 \211A\266\202\202t \211@\262\206GCA\321\211\203E\211A\262\242\3228\262\262;\204\233 \321\312C\32326\211\242\206\302 \f\240\210\204\331 \324\325\326\327\330\331!\332\"\322\333% \"\210
@D\211\203\373 \211@\324\325\326\334\330\331!\335\"\322\333%\"\210A\266\202\202\335 \210\211\242A@\336\235\203\314\337\242@\"\202\314\320\242@\242A@#\211\242B\211 \235\2042\2042\316@ \"\2042\211 B\266\2020\266\204\232\203\233 \262\321\262\202\233 \266\202\211\203X\316 \"\204XB B\211\262\262\"\211 D\340E\"A@\262 F\341 G\321 H\n\321 I JJ\211AJ\242\211I\203\350I@\211 KGV\203\337\342K!\342G! L M\312H\343K! N\344\345M\346QL\347PN# OrPq\210\350N!\210\351\352\321\312#\203\341\351\353\354\355MQ!\356Q\357 \312#\203\341\360\355LQ!\210\361edO#\210)\3621\366QN!0\202\374\210\363\364N\"\210*\365F8 R\366RGC\"R\367KR\"\203(\366RKC\"R\370RGC\"RFAA\211 SR\240\210*\371F8\321\211 T U VV\211AV\242\211U\203\205U\366UAGC\"\241\210\367KUA\"\203{U\366UAKC\"\241\210U\370UAGC\"\241\210UTBT\202@\371F\233\211 WT\240\210,X\204\313r\372!q\210\373K!\203\312\374M!\210\360L\321\312#\210\351\375\354\355MQ!\356Q\357 \312#\203\312\360\376\355LR!\210)Y\203\336\377DK\"\210\377DG\"\210*GTG)\202x*H\204\362\312\2027\316Z\"\341GSB [ \\\201` \\Z\"Z[DZBZ\201a D[]#\210*^\204(\312\2027\201b \210\201c Z_\"\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 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" 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 gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist 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 #1=#:c newmarks mark oldmarks #2=#:c nnml-nov-is-evil gnus-keep-backlog nnml-group-alist active entry gnus-active-hashtb save nnml-active-file delq puthash nnml-save-nov nnmail-save-active] 21])
#@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$ \211<\203$ \211\206U\316\n\"A\206U\211\317\232\2036 \206A\316\f\"A\206A\316
\"A\206A&\211\203e \314\320@@@@@A@#\232\204e \211A\266\202\202H \211@@\262\206A'\211\203\212 \314\320@@@A@#\232\204\212 \211A\266\202\202o \211@\262\206A(A\321\211\203?\211A\262\242\3228\262\262;\204\226 \321\323C\32420\211\242\206\275 \240\210\204\324 \325\326\327\330\331\332!\333\"\322\334%\n\"\210\f
D\211\203\365 \211@\325\326\327\335\331\332!\336\"\322\334%\"\210A\266\202\202\327 \210\211\242A@\337\235\203\314\340\242@\"\202\314\320\242@\242A@#\211\242B\211\n\235\204,\204,\316@\n\"\204,\211\nB\266\2020\266\204\232\203\226 \262\321\262\202\226 \266\202\211\203R\316\n\"\204RB\nB\211\262\262!\211 )\211A)\242 *\321 +*\205\262)\211A)\242\211+\203\226\341+ ,\342\343,\"\203\215\344,\345\225\"\202\217,)\"\210\202j\341* ,\342\343,\"\203\254\344,\345\225\"\202\256,)\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 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" nnml-request-compact-group string-match "^[^:]+:" substring 0 gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist groups first group gname] 20 (#$ . 32549) (list (or (nnoo-current-server 'nnml) ""))])
(provide 'nnml)
Zerion Mini Shell 1.0