;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:04:02 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/nnml.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nnml.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\302\305!\210\306\307\310\311\"\311\211FB\306\312D B\311\207" [nnoo-definition-alist nnoo-state-alist require nnheader nnmail nnoo nnml mapcar #[(p) "C\207" [p] 1] nil "*internal-non-initialized-backend*"] 4) #@44 Spool directory for the nnml mail backend. (defvar nnml-directory message-directory (#$ . 869)) (nnoo-define 'nnml-directory nil) #@19 Mail active file. (defvar nnml-active-file (expand-file-name "active" nnml-directory) (#$ . 1005)) (nnoo-define 'nnml-active-file nil) #@35 Mail newsgroups description file. (defvar nnml-newsgroups-file (expand-file-name "newsgroups" nnml-directory) (#$ . 1146)) (nnoo-define 'nnml-newsgroups-file nil) #@72 If non-nil, nnml will check the incoming mail file and split the mail. (defvar nnml-get-new-mail t (#$ . 1315)) (nnoo-define 'nnml-get-new-mail nil) #@454 If non-nil, Gnus will never generate and use nov databases for mail groups. 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. (defvar nnml-nov-is-evil nil (#$ . 1471)) (nnoo-define 'nnml-nov-is-evil nil) #@48 Hook run narrowed to an article before saving. (defvar nnml-prepare-save-mail-hook nil (#$ . 2008)) (nnoo-define 'nnml-prepare-save-mail-hook nil) #@29 If non-nil, inhibit expiry. (defvar nnml-inhibit-expiry nil (#$ . 2161)) (nnoo-define 'nnml-inhibit-expiry nil) #@15 nnml version. (defconst nnml-version "nnml 1.0" (#$ . 2279)) (byte-code "\306\300!\204\307\300 B\310\300\311\"\210\306\302!\204\311\302 B\310\302\311\"\210\306\303!\204*\311\303 B\310\303\311\"\210\306\304!\204;\312\304 B\310\304\311\"\210\306\305!\204L\311\305 B\310\305\311\"\210\306\313!\204^\311 \313 B\310\313\311\"\210\306\314!\204p\311\f\314 B\310\314\311\"\210\306\315!\204\202\311 \315 B\310\315\311\"\210\306\316!\204\224\317\316 B\310\316\311\"\210\306\320!\204\246\311\320 B\306\321!\204\264\321 B\310\321\311\"\210\322\323!\207" [nnml-nov-file-name current-load-list nnml-current-directory nnml-current-group nnml-status-string nnml-nov-buffer-alist boundp ".overview" nnoo-define nil "" nnml-group-alist nnml-active-timestamp nnml-article-file-alist nnml-generate-active-function nnml-generate-active-info nnml-nov-buffer-file-name nnml-file-coding-system nnoo-define-basics-1 nnml nnmail-file-coding-system] 3) (defalias 'nnml-retrieve-headers #[(sequence &optional group server fetch-old) "\306 \"\205\310\212\nq\210\307 \210\310 G\311\f\310\211 !\"# @;\203*\312\202\306\313 $\"\2036\314\202\306 \203\257 @\315 !\211#\203\201\316#!\203\201\317#!\204\201\320\321 \"c\210`\322#!\210b\210\323\324\310\325#\203t\326u\210\202zdb\210\324c\210\327c\210`d|\210 A!T!%\247\2036\"%V\2036!\330\246\311U\2036\331\332\333!\334_\"\245#\210\2026%\247\203\302\"%V\203\302\331\332\335\"\210\336 \210\312.\207" [group server nntp-server-buffer sequence nnmail-pathname-coding-system article 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 search-forward "\n\n" t -1 ".\n" 20 nnheader-message 6 "nnml: Receiving headers... %d%%" 100 "nnml: Receiving headers...done" nnheader-fold-continuation-lines beg file-name-coding-system count number file 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\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 #1=#:G88980 (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]) (defalias 'nnml-request-article #[(id &optional group server buffer) "\306 \"\210\n\206\n \f\307\307\307;\203G\310!\211\203MA\311\312@\"\211!\236A\203M\313A!P\202M\314!\204[\315\316\317#\202\253\320!\204k\315\316\321#\202\253\322!\203{\315\316\323#\202\253\212\324!*\204\221\315\316\325#\202\253\315\316\326#\210\203\243@\202\244\327\330!!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 nnmail-group-pathname int-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-int file-name-nondirectory path gpath group-num id nnml-directory nnml-file-coding-system nnmail-file-coding-system] 5]) (nnoo-register-function 'nnml-request-article) (defalias 'nnml-request-group #[(group &optional server dont-check) "\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 "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) "\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-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 \n\"\203\313\207\314\315 \"!\203-\316\315 \"!\204-\317\311\320\315 \"#\207\307 \321\322B\211D\nB\323 !\210\306 \"\210\324 !\211\203[\f\325\326\"\240\210\f\325\327\"\241\210)\330\n\"\210)\313\207" [server group nnml-group-alist nnml-directory active nnml-current-directory nnml-possibly-change-directory nil nnmail-activate nnml assoc t file-exists-p nnmail-group-pathname file-directory-p nnheader-report "%s is a file" 1 0 nnml-possibly-create-directory nnheader-directory-articles apply min max nnmail-save-active articles nnml-active-file] 7]) (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\307\n!\310\311\211\211\211&'(\312\313!\210\314(\315\"(\316)(\"))\203\253'\203\253\317)\211A)@\211!\211&\203)\320\321&!8\211\203)\322 \"\203\244\323\f*+$\211'\203\244,\324=\204\211\325\326\327!!-\330\216r-q\210\331  p$\210\311\332,\"\210,\333\320\334 $\210\311\335\336\217\210\337 (\"(\340 \"\210\202) B\202)\341.\"A@\211/\203\315/(\203\307\342\343(\"\206\313/AT\240\210\344.0\"\210)\345 \210 )\244.\207" [group server nnml-current-directory number mod-time rest nnml-possibly-change-directory nnheader-directory-articles t nil nnmail-activate nnml sort < gnus-sorted-intersection nnml-article-to-file 5 file-attributes nnml-deletable-article-p nnmail-expired-article-p delete get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) nnml-request-article 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 article is-old active-articles articles force nnml-inhibit-expiry nnmail-expiry-target #1# nnml-group-alist active nnml-active-file] 7]) (nnoo-register-function 'nnml-request-expire-articles) (defalias 'nnml-request-move-article #[(article group server accept-form &optional last) "\306\307!\310\311\n \"\210\312 \210\313\n\f\"\203Z\314\f\n #\203Z\310\211\211\212 q\210\315!\210\316!\317p!\210,\203Z\311\n \"\210\310\320\321\217\210\322\n\f\"\210\203Z\323 \210\324\"\210*\207" [result buf group server article nnml-article-file-alist 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 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!!\210;\203=\314\315!\203t\316\317!BC!@\211\203t\320\f \"\210\203t\321 \210\202t\314\315!\203t\322\317!\211\204W\323\324!\203W\325\211\202]\316\n!@\211\203t\203t\320\f \"\210 \203q\326 \210\321 \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" nnmail-activate nnml nnml-save-mail nnml-active-number nnmail-save-active nnml-save-nov nnmail-article-group yes-or-no-p "Moved to `junk' group; delete article? " junk nnmail-cache-close last] 4]) (nnoo-register-function 'nnml-request-accept-article) (defalias 'nnml-request-replace-article #[(article group buffer) "\306!\210\212 q\210\307!\210\310 \311\n!\312P\313\314\315\316\217\205n\317 \n\"\212\320!q\210eb\210\321\f!\204<\322\323\fP\313\324#\203I\325y\210`\326y\210`|\210\202b\321\327!\203b\330\325\224\325\225{!\nW\203b\326y\325U\204I\325y\210\331 !\210\332 \210)\324,\207" [group buffer article headers art chars nnml-possibly-change-directory nnml-possibly-create-directory nnmail-insert-lines int-to-string " " nil #1=#:G88981 (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 0 1 "[0-9]+ " string-to-int 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\n\203E\307 \310\f\311\312 !\313R#\314\203?\211A@\315!\203\316\317\320$\210!\210\202*\321\322\323\217\210\324\325\"\"\314\314\326\"\210\310\207" [group server force nnml-current-directory nnheader-numerical-short-files nnml-nov-file-name nnml-possibly-change-directory directory-files t "\\|" regexp-quote "$" nil file-writable-p nnheader-message 5 "Deleting article %s in %s..." #1=#:G88982 (delete-directory nnml-current-directory) ((error)) delq assoc nnmail-save-active article articles nnmail-delete-file-function nnml-group-alist nnml-current-group nnml-active-file] 7]) (nnoo-register-function 'nnml-request-delete-group) (defalias 'nnml-request-rename-group #[(group new-name &optional server) "\306 \"\210\307\n \"\307 \"\310\311\312\217\205~\313\f!\2039\314\f@AP @AP\"\210\211A\210\202)\fP\315!\203P\314 P\"\210)\316\f!G\317X\203_\320\321\322\217\210\323\"\211\203o\n\240\210\324\324\325\"\210)\326*\207" [group server new-name nnml-directory old-dir new-dir nnml-possibly-change-directory nnmail-group-pathname #1=#:G88983 (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 #2=#:G88984 (delete-directory old-dir) ((error)) assoc nil nnmail-save-active t files nnml-nov-file-name overview nnml-group-alist entry nnml-current-directory nnml-current-group nnml-active-file] 5]) (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 #\202A \314\315\316!!\317\216r\fq\210\320 !\210\321\"\210)r\fq\210~\210\322ed \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) "\304 \210\305 \n\236A\211\203\306 \"\202'\307\306\310 ! \"\211!\205'\304\311!\210)\207" [file article nnml-article-file-alist nnml-current-directory nnml-update-file-alist nil expand-file-name file-exists-p number-to-string t] 4]) #@46 Say whether ARTICLE in GROUP can be deleted. (defalias 'nnml-deletable-article-p #[(group article) "\305\306 !\211\205\307!\205\n?\206\310 \f\"A@A =?)\207" [path article nnmail-keep-last-article group nnml-group-alist nil nnml-article-to-file file-writable-p assoc] 3 (#$ . 15316)]) (defalias 'nnml-find-group-number #[(id) "\212\305\306!q\210\307\310 \f\"\211\203 B\202C \204:\n\203:\n@@ \230\2040\310\n@@\f\" \204\nA\202 \205C\n@@ B+\207" [nnml-group-alist number alist nnml-current-group id get-buffer-create " *nnml id*" nil nnml-find-id] 3]) (defalias 'nnml-find-id #[(group id) "\306 \210\307\310 \n\"\"\311\211\312 !\205L\313 !\210 \204K\314\311\315#\203K\316\317\311\315\320$\2038\316\317\321 \315#\203>\322y\210\202\323y\210\315\324\325\326\217\202\f+\207" [nnml-nov-file-name group nnml-directory found number nov erase-buffer expand-file-name nnmail-group-pathname nil file-exists-p nnheader-insert-file-contents search-forward t search-backward " " 4 gnus-point-at-bol 1 0 #1=#:G88985 (byte-code "\300p!\207" [read] 2) ((error)) id] 5]) (defalias 'nnml-retrieve-headers-with-nov #[(articles &optional fetch-old) "\206 ?\205`\306\n \"\307\f!\205_\212 q\210\310 \210\311\f!\210 \203. \247\204.\312\202^\313 \203?\314@ Z]\202B@A:\203W\211A\210\202F)@\"\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 fetch-old articles x] 4]) (defalias 'nnml-possibly-change-directory #[(group &optional server) "\203\306!\204\307!\210 \204\310\207\311 \n\" \211\f\232\204+ \f  \312\313\f!*\207" [server group nnml-directory nnmail-pathname-coding-system file-name-coding-system pathname nnml-server-opened nnml-open-server t nnmail-group-pathname nil file-exists-p nnml-current-directory nnml-current-group nnml-article-file-alist] 4]) (defalias 'nnml-possibly-create-directory #[(group) "\303 \"\304\n!?\205\305\306\n!\307\"\210\310\311\312\n#)\207" [group nnml-directory dir nnmail-group-pathname file-exists-p make-directory directory-file-name t nnheader-message 5 "Creating mail directory %s"] 4]) #@32 Called narrowed to an article. (defalias 'nnml-save-mail #[(group-art) "\306\211\307 \310\n!\210\311\312!\210\311\313!\210eb\210\314\315!\203&\316\317!\210\320y\210\202\n\306\211\203l\321\f@@!\210\322\f@@ \"\323\f@A!P \203Q \324#\210\202d\325ed\306\326\327!?\205_\330%\210)\fA\211\204.*\331 !\n\211\203\210\332\f@@\f@A#\210\fA\211\204w)\n*\207" [headers chars group-art first ga nnml-directory nil nnmail-insert-lines 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 int-to-string t nnmail-write-region nnheader-be-verbose 5 nomesg nnml-parse-head nnml-add-nov file nnmail-crosspost-link-function] 8 (#$ . 17597)]) #@43 Compute the next article number in GROUP. (defalias 'nnml-active-number #[(group) "\306 \"A@\211\204G\307!\210\310!\210 \204\311\312\f!\313\" \203= @@  A:\2035 \211A\210\202' )@@B\202@\314\315B\nD B\n\211AT\241\210\316\317\320\nA!\321\"\"!\203f\n\211AT\241\210\202M\nA)\207" [group nnml-group-alist active nnml-article-file-alist nnml-current-directory x assoc nnml-possibly-create-directory nnml-possibly-change-directory sort nnheader-article-to-file-alist car-less-than-car 1 0 file-exists-p expand-file-name int-to-string nnmail-group-pathname nnml-directory] 7 (#$ . 18391)]) #@36 Add a nov line for the GROUP base. (defalias 'nnml-add-nov #[(group article headers) "\212\303!q\210db\210 \304\nI\210\305 !)\207" [group headers article nnml-open-nov 0 nnheader-insert-nov] 3 (#$ . 19000)]) (defalias 'nnml-header-value #[nil "\300\225\301\210`{\207" [0 nil] 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 \304U\204eb\305\306\307\310#\203`S\202d}\210eb\210\311\312\307\310#\203/\313\314\310\211#\210\202\315ed\316\317$\210\320\310!\211\321 I\210\304\nI\210+\207" [headers chars number buffer-size 0 search-forward "\n\n" nil t re-search-forward "\\( ?\n[ ]+\\)+" replace-match " " subst-char-in-region 9 32 nnheader-parse-head 6] 6 (#$ . 19357)]) (defalias 'nnml-open-nov #[(group) "\306 \"A\2065\307\310\311\"!\212\nq\210\312\305!\313 \314\f\"\"L\210\315 \210\316 !\203,\317 !\210)\nB B\n)\207" [group nnml-nov-buffer-alist buffer nnml-nov-file-name nnml-directory nnml-nov-buffer-file-name assoc get-buffer-create format " *nnml overview %s*" make-local-variable expand-file-name nnmail-group-pathname erase-buffer file-exists-p nnheader-insert-file-contents] 6]) (defalias 'nnml-save-nov #[nil "\212\205/\302@A!\203'@Aq\210\303 \203\304\305d \306\307%\210\310\306!\210\311p!\210A\211\204\306)\207" [nnml-nov-buffer-alist nnml-nov-buffer-file-name buffer-name buffer-modified-p nnmail-write-region 1 nil nomesg set-buffer-modified-p kill-buffer] 7]) #@49 Generate NOV databases in all nnml directories. (defalias 'nnml-generate-nov-databases #[nil "\303\304!\210\305\306\304!\206\f\307!\210\310!\311\312\313#\210\314 \n\"\207" [nnml-directory nnml-group-alist nnml-active-file nnmail-activate nnml nnml-open-server nnoo-current-server "" expand-file-name nnml-generate-nov-databases-1 nil t nnmail-save-active] 4 (#$ . 20547) nil]) #@37 Regenerate the NOV database in DIR. (defalias 'nnml-generate-nov-databases-1 #[(dir &optional seen no-active) "\306!\307! \235?\205~\307! B\310\311\312\311$\312\n\211A@\211\203=\313\314\315!\"\204\316!\203\317 \"\210\202*\320\321!\322\"\211\204g\323\324!\f\"\325 \"A@\211\205c\211AT\240*\202}!\210\326 \"\210?\205}\327\")\207" [dir seen dirs files nnml-directory group file-name-as-directory file-truename directory-files t nil string-match "^\\." file-name-nondirectory file-directory-p nnml-generate-nov-databases-1 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-group-alist info nnml-generate-active-function no-active nnml-active-file] 6 (#$ . 20934) "DRegenerate NOV in: "]) (defalias 'nnml-generate-active-info #[(dir) "\306\307! \"\310\311\n \" \"\n\f@@\f\211A\203! A\211\202 @@)BD B\211)\207" [dir nnml-directory group nnml-group-alist files f nnheader-file-to-group directory-file-name delq assoc] 5]) (defalias 'nnml-generate-nov-file #[(dir files) "\306!\211 P\307\310!\311\311\311\212 q\210\312 \210\313 \210q\210\314\n!\203,\n!\210\203\202\315@AP\211!\204y\313 \210\316 !\210eb\317\320\311\321#\210d`Z\322`S]}\210\323 \324U\204web\210\325\f@@\"\212 q\210db\210\326!\210)~\210A\211\2041\212 q\210\327\322d\n\311\330%\210\331p!.\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 search-forward "\n\n" t 1 buffer-size 0 nnml-parse-head nnheader-insert-nov nnmail-write-region nomesg kill-buffer headers nntp-server-buffer nnmail-delete-file-function files] 7]) (defalias 'nnml-nov-delete-article #[(group article) "\212\305!q\210\306 !\203D`\307y\210`|\210o\203D\310\n\"A@\311\211\203Cm\2031\f\211AT\240\210\202C\312\313\314\217\211\203C \247\203C\f \240\210*)\315\207" [group article nnml-group-alist num active nnml-open-nov nnheader-find-nov-line 1 assoc nil #1=#:G88988 (byte-code "\300p!\207" [read] 2) ((error)) t] 4]) (defalias 'nnml-update-file-alist #[(&optional force) "\203 \205 \303\n!\211\207" [nnml-article-file-alist force nnml-current-directory nnheader-article-to-file-alist] 2]) (provide 'nnml)