;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:03:54 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/nnfolder.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 "`nnfolder.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\310\311\312\313\"\313\211FB\310\314D B\313\207" [nnoo-definition-alist nnoo-state-alist require nnheader message nnmail nnoo gnus-util nnfolder mapcar #[(p) "C\207" [p] 1] nil "*internal-non-initialized-backend*"] 4) #@37 The name of the nnfolder directory. (defvar nnfolder-directory (expand-file-name message-directory) (#$ . 925)) (nnoo-define 'nnfolder-directory nil) #@30 The name of the active file. (defvar nnfolder-active-file (nnheader-concat nnfolder-directory "active") (#$ . 1081)) (nnoo-define 'nnfolder-active-file nil) #@285 If non-nil, the active file is ignored. This causes nnfolder to do some extra work in order to determine the true active ranges of an mbox file. Note that the active file is still saved, but its values are not used. This costs some extra time when scanning an mbox when opening it. (defvar nnfolder-ignore-active-file nil (#$ . 1245)) (nnoo-define 'nnfolder-ignore-active-file nil) #@365 If non-nil, the folder will be distrusted. This means that nnfolder will not trust the user with respect to inserting unaccounted for mail in the middle of an mbox file. This can greatly slow down scans, which now must scan the entire file for unmarked messages. When nil, scans occur forward from the last marked message, a huge time saver for large mailboxes. (defvar nnfolder-distrust-mbox nil (#$ . 1636)) (nnoo-define 'nnfolder-distrust-mbox nil) #@35 Mail newsgroups description file. (defvar nnfolder-newsgroups-file (byte-code "\301!\302P\207" [nnfolder-directory file-name-as-directory "newsgroups"] 2) (#$ . 2096)) (nnoo-define 'nnfolder-newsgroups-file nil) #@76 If non-nil, nnfolder will check the incoming mail file and split the mail. (defvar nnfolder-get-new-mail t (#$ . 2315)) (nnoo-define 'nnfolder-get-new-mail nil) #@48 Hook run narrowed to an article before saving. (defvar nnfolder-prepare-save-mail-hook nil (#$ . 2482)) (nnoo-define 'nnfolder-prepare-save-mail-hook nil) #@50 Hook run before saving the nnfolder mbox buffer. (defvar nnfolder-save-buffer-hook nil (#$ . 2643)) (nnoo-define 'nnfolder-save-buffer-hook nil) #@29 If non-nil, inhibit expiry. (defvar nnfolder-inhibit-expiry nil (#$ . 2794)) (nnoo-define 'nnfolder-inhibit-expiry nil) #@19 nnfolder version. (defconst nnfolder-version "nnfolder 1.0" (#$ . 2920)) #@68 String used to demarcate what the article number for a message is. (defconst nnfolder-article-marker "X-Gnus-Article-Number: " (#$ . 2999)) (byte-code "\306\300!\204\307\300 B\310\300\307\"\210\306\302!\204\307\302 B\310\302\307\"\210\306\303!\204*\311\303 B\310\303\307\"\210\306\304!\204;\307\304 B\310\304\307\"\210\306\305!\204L\307\305 B\310\305\307\"\210\306\312!\204^\307\n\312 B\310\312\307\"\210\306\313!\204p\307 \313 B\310\313\307\"\210\306\314!\204\203\f\314 B\310\314\307\"\210\306\315!\204\226 \315 B\310\315\307\"\210\306\316!\204\251\316 B\310\316\307\"\207" [nnfolder-current-group current-load-list nnfolder-current-buffer nnfolder-status-string nnfolder-group-alist nnfolder-buffer-alist boundp nil nnoo-define "" nnfolder-scantime-alist nnfolder-active-timestamp nnfolder-active-file-coding-system nnfolder-active-file-coding-system-for-write nnfolder-file-coding-system mm-text-coding-system nnmail-active-file-coding-system] 3) #@84 Coding system for save nnfolder file. If NIL, NNFOLDER-FILE-CODING-SYSTEM is used. (defvar nnfolder-file-coding-system-for-write nnheader-file-coding-system (#$ . 3994)) (byte-code "\300\301\302\"\210\303\304!\207" [nnoo-define nnfolder-file-coding-system-for-write nil nnoo-define-basics-1 nnfolder] 3) (defalias 'nnfolder-retrieve-headers #[(articles &optional group server fetch-old) "\212q\210\306 \210\307\211\211\310\f \"\210\205pq\210eb\210@;\203)\311\202p\211A@\211\203iq\210\312 !\203)`\313\314\307\315#\203N`S\202Odq\210\316\317 \"c\210\320\n #\210db\210\321c\210\202)q\210\322 \210\311,\207" [nntp-server-buffer stop start article group server erase-buffer nil nnfolder-possibly-change-group headers nnfolder-goto-article search-forward "\n\n" t format "221 %d Article retrieved.\n" insert-buffer-substring ".\n" nnheader-fold-continuation-lines nnfolder-current-buffer articles] 4]) (nnoo-register-function 'nnfolder-retrieve-headers) (defalias 'nnfolder-open-server #[(server &optional defs) "\303\304 #\210\305\304\306\"\210\307\n!\210\310\n!\204\311 \210\312\304\313\n#\207\314\315\n!!\204/\311 \210\312\304\316\n#\207\305\304!\210\312\304\317\n$\210\306\207" [server defs nnfolder-directory nnoo-change-server nnfolder nnmail-activate t gnus-make-directory file-exists-p nnfolder-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 'nnfolder-open-server) (defalias 'nnfolder-request-close #[nil "\211\203\303 @@\304\305#\210 A\211\204)\306\307!\210\304\304\211\207" [nnfolder-buffer-alist alist nnfolder-group-alist nnfolder-close-group nil t nnoo-close-server nnfolder] 5]) (nnoo-register-function 'nnfolder-request-close) (defalias 'nnfolder-request-article #[(article &optional group server buffer) "\306 \"\210\212\nq\210eb\210\307 !\205\321\310\211`\311y\210\310\211\204g\312\313\310\314#\2045\315\211\202#\212\316y\210o\204I\212\317y\210\310f)\320=\203c\212\311y\210\321\322!\203Y\311y\210\202M\321\323!)\203c\324)\202!\316y\210*\324=\203w\317y\204zdb\210` \206\203!\211!q\210\325 \210\326\n \f#\210eb\210\321\327!\203\247\330\331!\210\332c\210\311y\210\202\224 \247\203\263\" B\202\320eb\210\"\333\334#P\310\314#\203\316\335`\310\210`{!\202\317\317B+)\207" [group server nnfolder-current-buffer article stop start nnfolder-possibly-change-group nnfolder-goto-article nil 1 re-search-forward "^From " t no 0 -1 10 looking-at ">From \\|From " "[^ \n :]+[ \n ]*:" yes erase-buffer insert-buffer-substring "From " delete-char 5 "X-From-Line: " search-forward "\n" string-to-int found case-fold-search buffer nntp-server-buffer nnfolder-current-group nnfolder-article-marker] 6]) (nnoo-register-function 'nnfolder-request-article) (defalias 'nnfolder-request-group #[(group &optional server dont-check) "\306 \307#\210\212\310\n\"\204\311\312\313#\202^ \203$\311\312\314#\210\307\202^\310\n\"\211@\fA@\f\204<\311\312\313#\202]\204I\311\312\315#\202]\311\312\314#\210\316\317 A @ZT @ A%+)\207" [group server nnfolder-group-alist dont-check active range nnfolder-possibly-change-group t assoc nnheader-report nnfolder "No such group: %s" "Selected group %s" "Empty group: %s" nnheader-insert "211 %d %d %d %s\n" nnfolder-current-group] 7]) (nnoo-register-function 'nnfolder-request-group) (defalias 'nnfolder-request-scan #[(&optional group server) "\304\305\"\210 \205\304\n\"\210\306\307\310 \n$\207" [server nnfolder-get-new-mail group nnfolder-directory nnfolder-possibly-change-group nil nnmail-get-new-mail nnfolder #[nil "\212 \205= @A@\211\205\303\n!\205\304\303\n!!)\204(\305 @\"\2025 @A@q\210\306 \210\307p!\210 A\211\204\310*\207" [nnfolder-buffer-alist bufs buffer get-buffer buffer-name delq nnfolder-save-buffer kill-buffer nil] 4]] 5]) (nnoo-register-function 'nnfolder-request-scan) (defalias 'nnfolder-close-group #[(group &optional server force) "\305 \"\204 \n\232\203O\305 \"\211\2030\n\203$\f\203$\n\fD B\306 \" A@ @)\f\203O\307\f!\203O\212\fq\210\310 \210\311p!\210\306\305 \" \")\312\312\313\207" [group nnfolder-buffer-alist nnfolder-current-group inf nnfolder-current-buffer assoc delq buffer-name nnfolder-save-buffer kill-buffer nil t] 5]) (nnoo-register-function 'nnfolder-close-group) (defalias 'nnfolder-request-create-group #[(group &optional server args) "\304\305\"\210\306\307!\210 \203%\310 \n\"\204% \311\312BD\nB\313\n \"\210\314 !\210\315\207" [server group nnfolder-group-alist nnfolder-active-file nnfolder-possibly-change-group nil nnmail-activate nnfolder assoc 1 0 nnfolder-save-active nnfolder-read-folder t] 3]) (nnoo-register-function 'nnfolder-request-create-group) (defalias 'nnfolder-request-list #[(&optional server) "\305\306\"\210\212 \307 !\210\310 *\311\207" [server nnfolder-active-file-coding-system nnmail-file-coding-system nnfolder-active-file nnfolder-group-alist nnfolder-possibly-change-group nil nnmail-find-file nnmail-get-active t] 3]) (nnoo-register-function 'nnfolder-request-list) (defalias 'nnfolder-request-newgroups #[(date &optional server) "\301\302\"\210\303!\207" [server nnfolder-possibly-change-group nil nnfolder-request-list] 3]) (nnoo-register-function 'nnfolder-request-newgroups) (defalias 'nnfolder-request-list-newsgroups #[(&optional server) "\304\305\"\210\212 \306 !*\207" [server nnfolder-file-coding-system nnmail-file-coding-system nnfolder-newsgroups-file nnfolder-possibly-change-group nil nnmail-find-file] 3]) (nnoo-register-function 'nnfolder-request-list-newsgroups) (defalias 'nnfolder-existing-articles #[nil "\212\2058q\210eb\210\306 P\307\310\311\f\310\312#\2036\313 \310\312#\2036\314\315\316!!\317 \2032 \nB)\202\n+)\207" [nnfolder-current-buffer nnfolder-article-marker numbers number marker newnum "\n" "[0-9]+" nil search-forward t re-search-forward string-to-number match-string 0 nnmail-within-headers-p] 4]) (defalias 'nnfolder-request-expire-articles #[(articles newsgroup &optional server force) "\306 \"\210\307\310\311\f\312 \"\313\314!\210\212q\210 \203a\n\203aeb\210\315 @!\203Z\316\317P\310\307#\203Z\320 \210\321`\310\210`{$\211\203Z\322\323\324 @$\210\325 \210 @ B A\211\204\204k\322\323\326\"\210\327 \210\330!\210\331 \"\210\332\f \237\",\207" [newsgroup server is-old deleted-articles articles maybe-expirable nnfolder-possibly-change-group t nil gnus-intersection nnfolder-existing-articles nnmail-activate nnfolder nnfolder-goto-article search-forward "\n" forward-sexp nnmail-expired-article-p nnheader-message 5 "Deleting article %d..." nnfolder-delete-mail "Deleting articles...done" nnfolder-save-buffer nnfolder-adjust-min-active nnfolder-save-active gnus-sorted-complement nnfolder-current-buffer nnfolder-article-marker force nnfolder-inhibit-expiry nnfolder-group-alist nnfolder-active-file] 6]) (nnoo-register-function 'nnfolder-request-expire-articles) (defalias 'nnfolder-request-move-article #[(article group server accept-form &optional last) "\212\306\307!\310\311\n \f#\203w\212 q\210\312 \210\313 !\210eb\210\314\315P\212\316\317\310\320#\205,`)\320#\203?\321y\210`\322y\210`|\210\202\323!\324 !\210)\203w\212\325 \f\"\210q\210eb\210\326\n!\203c\327 \210\203v\330 \210\331 !\210\332 \"\210)+\207" [result buf article group server nntp-server-buffer get-buffer-create " *nnfolder move*" nil nnfolder-request-article erase-buffer insert-buffer-substring re-search-forward "^" search-forward "\n\n" t 0 1 eval kill-buffer nnfolder-possibly-change-group nnfolder-goto-article nnfolder-delete-mail nnfolder-save-buffer nnfolder-adjust-min-active nnfolder-save-active nnfolder-article-marker accept-form nnfolder-current-buffer last nnfolder-group-alist nnfolder-active-file] 6]) (nnoo-register-function 'nnfolder-request-move-article) (defalias 'nnfolder-request-accept-article #[(group &optional server last) "\212\306 \"\210\307 \210p\310\211eb\210\311\312!\203\313\314!\210\315 \203\242\212\fq\210eb\210\316\317\310\320#\2036\321y\210\2029db\210\322\323 P\310\320#\203M`\324y\210`|\210\2029%\203X\325\326\327!!\210;\203f\330!BC\202k\331\330!\211\211\204|\332\333!\203|\334\211\202\202\335 !@\211)\203\242&\203\242\212\336\n@@\206\224!\210\337 \210%\203\241\340 \210)\341'(\"\210 \204\262\342\343\344\"\210 ,\207" [group server art-group result buf nnfolder-article-marker nnfolder-possibly-change-group nnmail-check-syntax nil looking-at "X-From-Line: " replace-match "From " nnfolder-request-list search-forward "\n\n" t -1 re-search-backward "^" 1 nnmail-cache-insert nnmail-fetch-field "message-id" nnfolder-active-number nnmail-article-group yes-or-no-p "Moved to `junk' group; delete article? " junk nnfolder-save-mail nnfolder-possibly-change-folder nnfolder-save-buffer nnmail-cache-close nnfolder-save-active nnheader-report nnfolder "Couldn't store article" nnmail-cache-accepted-message-ids last nnfolder-group-alist nnfolder-active-file] 5]) (nnoo-register-function 'nnfolder-request-accept-article) (defalias 'nnfolder-request-replace-article #[(article group buffer) "\305!\210\212 q\210eb\210\306\307\310\306\311#\203&\312\313!\314y\210`\313y\210`|\210\202 eb\210\n\2036\315\n\316\261\210\202C\317\315!\204C\320\321 \316\261\210)\322 \210 q\210eb\210\323\f!\205^\324 \210\325 !\210\326 \210\311)\207" [group buffer xfrom nnfolder-current-buffer article nnfolder-possibly-change-group nil re-search-forward "^X-From-Line: \\(.*\\)$" t match-string 1 0 "From " "\n" looking-at "From nobody " current-time-string nnfolder-normalize-buffer nnfolder-goto-article nnfolder-delete-mail insert-buffer-substring nnfolder-save-buffer] 4]) (nnoo-register-function 'nnfolder-request-replace-article) (defalias 'nnfolder-request-delete-group #[(group &optional force server) "\306 \307#\210\n\203\310\311\312\217\210\313\314 \" \"\315\315\316 \"\210\307\207" [group server force nnfolder-group-alist nnfolder-current-group nnfolder-current-buffer nnfolder-close-group t #1=#:G88940 (byte-code "\301\302!!\207" [group delete-file nnfolder-group-pathname] 3) ((error)) delq assoc nil nnfolder-save-active nnfolder-active-file] 4]) (nnoo-register-function 'nnfolder-request-delete-group) (defalias 'nnfolder-request-rename-group #[(group new-name &optional server) "\306 \"\210\212\nq\210\307 !\2055\310\311\312\217\2055\313\f\"\211\203$ \240\210\314\314\315\f\"\210\316p!\210)\317)\207" [group server nnfolder-current-buffer buffer-file-name nnfolder-group-alist entry nnfolder-possibly-change-group file-writable-p #1=#:G88941 (byte-code "\303\304 !\305\306\n!!\210\n)\"\210\307\207" [buffer-file-name new-name new-file rename-file nnfolder-group-pathname gnus-make-directory file-name-directory t] 5) ((error)) assoc nil nnfolder-save-active kill-buffer t new-name nnfolder-current-group nnfolder-active-file] 4]) (nnoo-register-function 'nnfolder-request-rename-group) (defalias 'nnfolder-request-regenerate #[(server) "\301\302\"\210\303 \210\304\207" [server nnfolder-possibly-change-group nil nnfolder-generate-active-file t] 3]) (defalias 'nnfolder-adjust-min-active #[(group) "\306 \"A@\307 P\310\nA\212q\210eb\210\311\f\312\313#\203@\314 \312\313#\203@\315\316\317!!\320 \203<^)\202\n\240-\207" [group nnfolder-group-alist active nnfolder-article-marker marker number assoc "\n" "[0-9]+" search-forward nil t re-search-forward string-to-number match-string 0 nnmail-within-headers-p activemin nnfolder-current-buffer newnum] 4]) (defalias 'nnfolder-article-string #[(article) "\247\203 \302 \303!\304R\207\305P\207" [article nnfolder-article-marker "\n" int-to-string " " "\nMessage-ID: "] 4]) #@143 Place point at the start of the headers of ARTICLE. ARTICLE can be an article number or a Message-ID. Returns t if successful, nil otherwise. (defalias 'nnfolder-goto-article #[(article) "\304!\305\211\306y\210o\204\307u\210`\310 \305\311#\211\203#\312 \203 \2049\nb\210\313 \305\311#\211\2039\312 \203* \205?\314 +\207" [article found start art-string nnfolder-article-string nil 0 -1 search-forward t nnmail-within-headers-p search-backward nnmail-search-unix-mail-delim-backward] 4 (#$ . 15813)]) #@161 Delete the message that point is in. If optional argument LEAVE-DELIM is t, then mailbox delimiter is not deleted. Point is left where the deleted region was. (defalias 'nnfolder-delete-mail #[(&optional leave-delim) "\214\212\303y\210\304 \210\203\303y\210`\202`)\303y\210\305\211 \204_\306\307\305\310#\204.\311\211\202\212\312y\210o\204B\212\313y\210\305f)\314=\203[\212\303y\210\315\316!\203R\303y\210\202F\315\317!)\203[\320)\202\312y\210 *\320=\203m`\202nd}\210\321\322!\210ed|)\207" [leave-delim found case-fold-search 1 nnmail-search-unix-mail-delim-backward nil re-search-forward "^From " t no 0 -1 10 looking-at ">From \\|From " "[^ \n :]+[ \n ]*:" yes run-hooks nnfolder-delete-mail-hook] 6 (#$ . 16336)]) (defalias 'nnfolder-possibly-change-group #[(group &optional server dont-check) "\203\306!\204\307!\210 \211\205\310\n!\205\311\310\n!!)\204'\312\312\f\205\343\f \232?\205\343 \313\314!\210\315\f\"\204Z\316\317\f!!\204Z\f\320\321BDB\322\"\210\203g\f\312\211\202\342\312\211 \315\f!\"A@\211\203\230 \211\205\212\310\n!\205\212\311\310\n!!)\204\230\323 !\"!\312\f \203\245\324 !?\205\341\212\317\f!\316!\204\314\325\326!!\210\"\206\300\"#\327\320\211\330\331%\210)\332\f!\211\205\340 q\210\f D!B\211!)*)\207" [server nnfolder-current-buffer buffer nnfolder-current-group group nnmail-pathname-coding-system nnfolder-server-opened nnfolder-open-server get-buffer buffer-name nil nnmail-activate nnfolder assoc file-exists-p nnfolder-group-pathname 1 0 nnfolder-save-active delq verify-visited-file-modtime gnus-make-directory file-name-directory nnmail-write-region t nomesg nnfolder-read-folder file-name-coding-system nnfolder-group-alist nnfolder-active-file dont-check file inf nnfolder-buffer-alist nnfolder-file-coding-system-for-write nnmail-file-coding-system] 7]) #@32 Called narrowed to an article. (defalias 'nnfolder-save-mail #[(group-art-list) "\306\306eb\210\307\310!\203\311\312!\210\307\313!\204!\314\315 \316\261\210eb\210\312y\210\306\317\320\306\321#\2037\322y\210\323c\210\202&) \324 \210\325 !\210\326\327!\210\326\330!\210 \211A@\211\203\240eb\210\331\332\306\321#\203d\333y\210\202gdb\210\334\316\fP\306\321#\203|`T\335y\210`|\210\202g\336 !\210\212edp\"#\337 @!\210\306$\340 \210\341 #\"#\210-\202I*\207" [save-list group-art case-fold-search group-art-list nnfolder-article-marker obuf nil looking-at ">From" delete-char 1 "From " "From nobody " current-time-string "\n" re-search-forward "^From " t 0 "> " nnmail-insert-lines nnmail-insert-xref run-hooks nnmail-prepare-save-mail-hook nnfolder-prepare-save-mail-hook search-forward "\n\n" -1 search-backward 2 nnfolder-insert-newsgroup-line nnfolder-possibly-change-folder nnfolder-normalize-buffer insert-buffer-substring end beg buffer-read-only] 4 (#$ . 18223)]) #@60 Make sure there are two newlines at the end of the buffer. (defalias 'nnfolder-normalize-buffer #[nil "db\210\300\301x\210`d|\210\302c\207" ["\n" nil "\n\n"] 2 (#$ . 19219)]) (defalias 'nnfolder-insert-newsgroup-line #[(group-art) "\212eb\210\302\303\304\305#\204db\210\306c\210\307u\210\310\311P A\312 #c)\207" [nnfolder-article-marker group-art search-forward "\n\n" nil t "\n" -1 format "%d %s\n" current-time-string] 4]) (defalias 'nnfolder-active-number #[(group) "\303 \"A@\211\203\n\211AT\241\210\202\304\211B\211D B\nA)\207" [group nnfolder-group-alist active assoc 1] 4]) (defalias 'nnfolder-possibly-change-folder #[(group) "\306 \"\211\203'\nA@\211\205\307 !\205\310\307 !!)\203'\nA@q\202B\n\2030\311\n \"\f\2039\312\f \"\210\313!D B\211)\207" [group nnfolder-buffer-alist inf buffer nnfolder-group-alist nnfolder-active-file assoc get-buffer buffer-name delq nnfolder-save-active nnfolder-read-folder] 4]) (defalias 'nnfolder-read-folder #[(group) "\306!\n\307 !)q\310 \"A@\311\312 !8\232\2036\313 !\203%\f\202\202\fD/B/\314\315!\210\316 \202\202\212eb\210g\317=\203G\320\321!\210\202:\322\323!\210\324\3250P\326\3101\"A@\206^\321\327B\310 \"\330\331\211\"\332\211\211\211\21123456789:;<\333 \2109A6eb\210=\204\2306\334W\203\340\335;\332\315#\203\310\336:\332\315#\203\310\337\340\327!!>\341 \203\3046>]67>^7)\202\2309\32176^]\240\210969A]\241\210eb\210?\204U6\334W\204Udb\210\342;\332\315#\204\373eb\210\332\211@A@\204G\336\324\332\315#\204\343\211@\202\212\327y\210o\204)\212\331y\210\332f)\317=\203C\212\321y\210\344\345!\2039\321y\210\202-\344\346!)\203C\347@)\202\327y\210@*\347=\203Ueb\210\332\211@A@\204\241\336\324\332\315#\204o\343\211@\202]\212\327y\210o\204\203\212\331y\210\332f)\317=\203\235\212\321y\210\344\345!\203\223\321y\210\202\207\344\346!)\203\235\347@)\202[\327y\210@*\347=\204\257db\210\350 44dU\204W\3514!54b\210\344From \\|From " "[^ \n :]+[ \n ]*:" yes point-marker marker-position nnmail-insert-lines nnfolder-insert-newsgroup-line nnfolder-active-number nnfolder-save-active visited-file-modtime nnfolder-buffer-alist nnfolder-article-marker nnfolder-group-alist buffer-read-only newscantime end start maxid minid scantime active number marker delim nnfolder-ignore-active-file newnum nnfolder-distrust-mbox found case-fold-search nnfolder-current-group nnfolder-active-file] 12]) #@133 Look for mbox folders in the nnfolder directory and make them into groups. This command does not work if you use short group names. (defalias 'nnfolder-generate-active-file #[nil "\305\306!\210\307!\310\n\211A@\211\203^\311 !\204\n\312\313 \"!\203\n\314 \"\211\2035\315\316\317 #\210\202;\315\316\320 #\210\f\203F\321\f\322 !\" \323\324BD B\325 !\210\326 !\210\327 !\210)\202\n\315\316\330\"*\207" [nnfolder-directory file files nnfolder-group-alist oldgroup nnmail-activate nnfolder directory-files nil backup-file-name-p message-mail-file-mbox-p nnheader-concat assoc nnheader-message 5 "Refreshing group %s..." "Adding group %s..." delq copy-sequence 1 0 nnfolder-possibly-change-folder nnfolder-possibly-change-group nnfolder-close-group ""] 5 (#$ . 22568) nil]) #@26 Make pathname for GROUP. (defalias 'nnfolder-group-pathname #[(group) "\306 \"\307\310\n!!\f\204\311 P!\203 P\202/ \312\313 \314 #+P)\207" [group nnmail-pathname-coding-system nnfolder-directory dir nnmail-use-long-file-names to mm-encode-coding-string file-name-as-directory expand-file-name file-exists-p 46 47 mm-subst-char-in-string from string] 5 (#$ . 23358)]) #@18 Save the buffer. (defalias 'nnfolder-save-buffer #[nil "\303 \205\304\305!\210\306\307\310 !!\210\206 \311 )\207" [nnfolder-file-coding-system-for-write nnfolder-file-coding-system coding-system-for-write buffer-modified-p run-hooks nnfolder-save-buffer-hook gnus-make-directory file-name-directory buffer-file-name save-buffer] 3 (#$ . 23750)]) (defalias 'nnfolder-save-active #[(group-alist active-file) "\206 \305 \f\")\207" [nnfolder-active-file-coding-system-for-write nnfolder-active-file-coding-system nnmail-active-file-coding-system group-alist active-file nnmail-save-active] 3]) (provide 'nnfolder)