WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/gnus
Viewing File: /usr/share/emacs/24.3/lisp/gnus/nnfolder.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:02 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nnfolder.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!\204
\304\303\305\306B\"\210\307\310!\210\307\311!\210\307\312!\210\307\313!\210\307\314!\210\307\315!\210\307\316!\210\317\320\321\"\210\322\236\203A\322\236A\323\324\325\"\240\210\202L\322\323\324\325\"\325\211FB\322	\236\204X\322\326D	B\325\207" [nnoo-definition-alist nnoo-state-alist fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require nnheader message nnmail nnoo gnus gnus-util gnus-range autoload gnus-article-unpropagatable-p "gnus-sum" nnfolder mapcar list nil "*internal-non-initialized-backend*"] 4)
#@109 The name of the nnfolder directory.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnfolder-directory (expand-file-name message-directory) (#$ . 1127))
(nnoo-define 'nnfolder-directory nil)
#@151 The name of the nnfolder NOV directory.
If nil, `nnfolder-directory' is used.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnfolder-nov-directory nil (#$ . 1357))
(nnoo-define 'nnfolder-nov-directory nil)
#@102 The name of the active file.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnfolder-active-file (nnheader-concat nnfolder-directory "active") (#$ . 1604))
(nnoo-define 'nnfolder-active-file nil)
#@357 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.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnfolder-ignore-active-file nil (#$ . 1840))
(nnoo-define 'nnfolder-ignore-active-file nil)
#@437 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.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnfolder-distrust-mbox nil (#$ . 2303))
(nnoo-define 'nnfolder-distrust-mbox nil)
#@107 Mail newsgroups description file.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnfolder-newsgroups-file (byte-code "\301!\302P\207" [nnfolder-directory file-name-as-directory "newsgroups"] 2) (#$ . 2836))
(nnoo-define 'nnfolder-newsgroups-file nil)
#@148 If non-nil, nnfolder will check the incoming mail file and split the mail.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnfolder-get-new-mail t (#$ . 3128))
(nnoo-define 'nnfolder-get-new-mail nil)
#@120 Hook run narrowed to an article before saving.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnfolder-prepare-save-mail-hook nil (#$ . 3368))
(nnoo-define 'nnfolder-prepare-save-mail-hook nil)
#@122 Hook run before saving the nnfolder mbox buffer.

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

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnfolder-inhibit-expiry nil (#$ . 3826))
(nnoo-define 'nnfolder-inhibit-expiry nil)
#@19 nnfolder version.
(defconst nnfolder-version "nnfolder 2.0" (#$ . 4024))
#@68 String used to demarcate what the article number for a message is.
(defconst nnfolder-article-marker "X-Gnus-Article-Number: " (#$ . 4103))
(defvar nnfolder-current-group nil)
(nnoo-define 'nnfolder-current-group nil)
(defvar nnfolder-current-buffer nil)
(nnoo-define 'nnfolder-current-buffer nil)
(defvar nnfolder-status-string "")
(nnoo-define 'nnfolder-status-string nil)
(defvar nnfolder-group-alist nil)
(nnoo-define 'nnfolder-group-alist nil)
(defvar nnfolder-buffer-alist nil)
(nnoo-define 'nnfolder-buffer-alist nil)
(defvar nnfolder-scantime-alist nil)
(nnoo-define 'nnfolder-scantime-alist nil)
(defvar nnfolder-active-timestamp nil)
(nnoo-define 'nnfolder-active-timestamp nil)
(defvar nnfolder-active-file-coding-system mm-text-coding-system)
(nnoo-define 'nnfolder-active-file-coding-system nil)
(defvar nnfolder-active-file-coding-system-for-write nnmail-active-file-coding-system)
(nnoo-define 'nnfolder-active-file-coding-system-for-write nil)
(defvar nnfolder-file-coding-system mm-text-coding-system)
(nnoo-define 'nnfolder-file-coding-system nil)
#@158 Coding system for save nnfolder file.
if nil, `nnfolder-file-coding-system' is used.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnfolder-file-coding-system-for-write nnheader-file-coding-system (#$ . 5176))
(nnoo-define 'nnfolder-file-coding-system-for-write nil)
#@532 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 `nnfolder-generate-active-file' command.  The function will go
through all nnfolder 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 nnfolder-nov-is-evil nil (#$ . 5484))
(nnoo-define 'nnfolder-nov-is-evil nil)
(defvar nnfolder-nov-file-suffix ".nov")
(nnoo-define 'nnfolder-nov-file-suffix nil)
(defvar nnfolder-nov-buffer-alist nil)
(nnoo-define 'nnfolder-nov-buffer-alist nil)
(defvar nnfolder-nov-buffer-file-name nil)
(nnoo-define-basics-1 'nnfolder)
(defalias 'nnfolder-retrieve-headers #[(articles &optional group server fetch-old) "rq\210\306 \210\307\211\211\211\310
\"\210\205\351q\210eb\210 @;\203,\311\202\351\312 !\"\2039\313\202\351\314\315 \316\"\317 \"  \211A @\211\203\342q\210\320\f!\203\204`\321\322\307\323#\203i`S\202jdq\210\324\325\f\"c\210\326\n#\210db\210\327c\210\202D\f\247\203D`o\204\256\330\331\"P\307\323#\203\334\332\225b\210\333`\334 {!b\210	\fW\203\334\321\331\"P\307\323#\203\334\333`\334 {!\211\fV\203\334 \203\334 @	W\203\334 A\211 \204\313b\210\202Dq\210\335 \210\311-\207" [nntp-server-buffer num stop start article group erase-buffer nil nnfolder-possibly-change-group headers nnfolder-retrieve-headers-with-nov nov gnus-sorted-intersection sort < nnfolder-existing-articles nnfolder-goto-article search-forward "\n\n" t format "221 %d Article retrieved.\n" insert-buffer-substring ".\n" search-backward "\n" 0 string-to-number point-at-eol nnheader-fold-continuation-lines server nnfolder-current-buffer articles fetch-old nnfolder-article-marker] 5])
(nnoo-register-function 'nnfolder-retrieve-headers)
(defalias 'nnfolder-open-server #[(server &optional defs) "\306\307	#\210\310\307\311\"\210\312\n!\210\204\f\204
\203\312
!\210\313\n!\204.\314 \210\315\307\316\n#\207\317\320\n!!\204?\314 \210\315\307\321\n#\207\310\307!\210\315\307\322\n$\210\311\207" [server defs nnfolder-directory gnus-nov-is-evil nnfolder-nov-is-evil nnfolder-nov-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\304	\211@@)\305\306#\210	A\211\204)\307\310!\210\305\211\211\207" [nnfolder-buffer-alist alist x 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	\"\210r\nq\210eb\210\307!\205\317\310\211`\311y\210\310\211 \204g\312\313\310\314#\2045\315\211\202#\212\316 \210o\204I\212\317y\210\310f)\320=\203c\212\311y\210\321\322!\203Y\311y\210\202M\321\323!)\203c\324)\202!\316 \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\316eb\210#\333\334$P\310\314#\203\314\335`\336 {!\202\315\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 beginning-of-line -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-number point-at-eol 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 info) "\306	\307#\210\212\310\n\"\204\311\312\313#\202~\314\315!!\203-\311\312\316\317\320\315!)!#\202~\f\203;\311\312\321#\210\307\202~\310\n\"\211@
\211A@)
\204X\311\312\313#\202}\204e\311\312\322#\202}\311\312\321#\210\323\324A@ZT@A%+)\207" [group server nnfolder-group-alist nnmail-pathname-coding-system dont-check active nnfolder-possibly-change-group t assoc nnheader-report nnfolder "No such group: %s" file-directory-p nnfolder-group-pathname "%s is a directory" file-name-as-directory nil "Selected group %s" "Empty group: %s" nnheader-insert "211 %d %d %d %s\n" x range 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 nnfolder-save-all-buffers] 5])
(nnoo-register-function 'nnfolder-request-scan)
(defalias 'nnfolder-save-all-buffers #[nil "\212	\2057	@A@\211\205\303\304\n!!)\204\"\305	@\"\202/	@A@q\210\306 \210\307p!\210	A\211\204\310*\207" [nnfolder-buffer-alist bufs buffer buffer-live-p get-buffer delq nnfolder-save-buffer kill-buffer nil] 4])
(defalias 'nnfolder-close-group #[(group &optional server force) "\306	\"\204
\n\232\203R\306	\"\211\2033\n\203$\f\203$\n\fD	B\307	\"\211A@)@)\f\203R\310\f!\203Rr\fq\210\311 \210\312p!\210\307\306	\"	\")\313\211\314\207" [group nnfolder-buffer-alist nnfolder-current-group inf nnfolder-current-buffer x 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) "\305\306\"\210\307\310!\210\311	G!\203\312\310\313\"\207\314\315	!!\203*\312\310\316\317\306\315	!)!#\207\320	\"\2033\321\207	\322\323BDB\324\f\"\210r\325	!\210)\321\207" [server group nnmail-pathname-coding-system nnfolder-group-alist nnfolder-active-file nnfolder-possibly-change-group nil nnmail-activate nnfolder zerop nnheader-report "Invalid (empty) group name" file-directory-p nnfolder-group-pathname "%s is a directory" file-name-as-directory assoc t 1 0 nnfolder-save-active nnfolder-read-folder] 6])
(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\2059q\210eb\210\306	P\307\310\311\f\310\312#\2036\313\310\312#\2036\314\315\316!!\317 \2032
\nB)\202\n\237+)\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])
(autoload 'gnus-request-group "gnus-int")
(defalias 'nnfolder-request-expire-articles #[(articles newsgroup &optional server force) "\306	\"\210\307\310\311\n\312 \"\310&\313\314!\210r'q\210\f\203\312&\203\312eb\210\315\f@!\203\303\316\317(P\310\307#\203\303\320 \210\321`\310\210`{)*$\211&\203\303+\211\322=\204\237\323\324!,r,q\210\325\216\326\f@	p$\210\310-\327!\203y!\203\231\322=\204\231\330!\204\217\331!\203\227\332\"\210\202\231\310,\306	\"\210\203\303\333\334\335\f@$\210\336 \210.\204\276/\204\276\337\f@\"\210\f@
B\fA\211\204*\204\324\333\334\340\"\210\341 \210\342!\210\34301\"\210\344 \210\345\n
\237\"-\207" [newsgroup server articles target maybe-expirable deleted-articles nnfolder-possibly-change-group t nil gnus-sorted-intersection nnfolder-existing-articles nnmail-activate nnfolder nnfolder-goto-article search-forward "\n" forward-sexp 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)) nnfolder-request-article functionp gnus-request-group gnus-request-create-group nnmail-expiry-target-group nnheader-message 5 "Deleting article %d in %s..." nnfolder-delete-mail nnfolder-nov-delete-article "Deleting articles...done" nnfolder-save-buffer nnfolder-adjust-min-active nnfolder-save-active nnfolder-save-all-buffers gnus-sorted-difference is-old nnfolder-current-buffer nnfolder-article-marker force nnfolder-inhibit-expiry nnmail-expiry-target #1# nnfolder-current-directory gnus-nov-is-evil nnfolder-nov-is-evil 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 move-is-internal) "\212\306\307!\310\311\n\f#\203\204r	q\210\312 \210\313
!\210eb\210\314\315P\212\316\317\310\320#\205,`)\320#\203=\321 \322y\210`|\210\202\323!\324	!\210)\203\204\212\325\f\"\210q\210eb\210\326\n!\203a\327 \210\204p \204p\330\n\"\210!\203\203\331 \210\332!\210\333\"#\"\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 point-at-bol 1 eval kill-buffer nnfolder-possibly-change-group nnfolder-goto-article nnfolder-delete-mail nnfolder-nov-delete-article nnfolder-save-buffer nnfolder-adjust-min-active nnfolder-save-active nnfolder-article-marker accept-form nnfolder-current-buffer gnus-nov-is-evil nnfolder-nov-is-evil 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\211eb\210\311\312!\203,\313\314!\210\310y\210\311\315!\203,\316\317!\210\202\320\321!r
q\210\322\216-p./\3230!\210\324 1-\212eb\210\325\326\310\327#\203Y\317y\210\202\\db\210\330\3312P\310\327#\203q`\332y\210`|\210\202\\3\203\203\333\334\335!\334\336!\334\337!$\210;\203\221\340!BC\202\226\341\340!\211\211\204\246\342\343!\203\246\344\202\253\345!@)4\203\314\212\346\n\2115@@)\206\276!\210\347 \2103\203\313\350 \210)\35110\"\210\204\334\352\353\354\"\210,\207" [group server art-group result buf #1=#:temp-buffer nnfolder-possibly-change-group nnmail-check-syntax nil looking-at "X-From-Line: " replace-match "From " "[ 	]" delete-char -1 generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nnmail-find-file nnmail-parse-active search-forward "\n\n" t re-search-backward "^" 1 nnmail-cache-insert nnmail-fetch-field "message-id" "subject" "from" 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" nnfolder-active-file-coding-system nntp-server-buffer nnmail-file-coding-system nnfolder-active-file nnfolder-group-alist nnfolder-article-marker nnmail-cache-accepted-message-ids last x] 7])
(nnoo-register-function 'nnfolder-request-accept-article)
(defalias 'nnfolder-request-replace-article #[(article group buffer) "\306!\210r	q\210eb\210\307\310!\204\311\312 \313\261\210\2022\314\315!\210\316y\210\307\317!\2032\320\321!\210\316y\210\202\"\322 \210\nq\210eb\210\323!\205x\324 \210\325	!\210\f\204t
\204tr	q\210\326ed#r\327!q\210\330!\203n`\316y\210`|\210\331!\210+\332 \210\333)\207" [group buffer nnfolder-current-buffer article gnus-nov-is-evil nnfolder-nov-is-evil nnfolder-possibly-change-group looking-at "X-From-Line: " "From nobody " current-time-string "\n" replace-match "From " 1 "[ 	]" delete-char -1 nnfolder-normalize-buffer nnfolder-goto-article nnfolder-delete-mail insert-buffer-substring nnfolder-parse-head nnfolder-open-nov nnheader-find-nov-line nnheader-insert-nov nnfolder-save-buffer t headers] 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\313\314\217\210\312\315\316\217\210*\317\320
\"
\"\312\211\321
\"\210\307\207" [group server force nov data nnfolder-group-alist nnfolder-close-group t nnfolder-group-pathname nnfolder-group-nov-pathname nil (delete-file data) ((error)) (delete-file nov) ((error)) delq assoc nnfolder-save-active nnfolder-current-group nnfolder-current-buffer nnfolder-active-file] 5])
(nnoo-register-function 'nnfolder-request-delete-group)
(defalias 'nnfolder-request-rename-group #[(group new-name &optional server) "\306	\"\210r\nq\210\307!\2055\310\311\312\217\2055\313\f\"\211\203$
\240\210\310\211\314\f\"\210\315p!\210)\316)\207" [group server nnfolder-current-buffer buffer-file-name nnfolder-group-alist entry nnfolder-possibly-change-group file-writable-p nil (byte-code "\304!\305\306	!!\210\307\n	\"\210\310\311!!\203(\311!\305\306	!!\210\307\311!	\"\210)\312\207" [new-name new-file buffer-file-name group nnfolder-group-pathname gnus-make-directory file-name-directory rename-file file-exists-p nnfolder-group-nov-pathname t] 3) ((error)) assoc 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])
(nnoo-register-function 'nnfolder-request-regenerate)
(defalias 'nnfolder-adjust-min-active #[(group) "\306	\"\211A@)\307\fP\310Arq\210eb\210\311
\312\313#\203E\314\312\313#\203E\315\316\317!!\320 \203A^)\202\240-\207" [group nnfolder-group-alist x active nnfolder-article-marker marker assoc "\n" "[0-9]+" search-forward nil t re-search-forward string-to-number match-string 0 nnmail-within-headers-p number activemin nnfolder-current-buffer newnum] 5])
(defalias 'nnfolder-article-string #[(article) "\247\203
\302	\303!\304R\207\305P\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\306 \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 beginning-of-line -1 search-forward t nnmail-within-headers-p search-backward nnmail-search-unix-mail-delim-backward] 4 (#$ . 20505)])
#@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\312 \210o\204B\212\313y\210\305f)\314=\203[\212\303y\210\315\316!\203R\303y\210\202F\315\317!)\203[\320)\202\312 \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 beginning-of-line -1 10 looking-at ">From \\|From " "[^ \n	:]+[ \n	]*:" yes run-hooks nnfolder-delete-mail-hook] 6 (#$ . 21044)])
(defalias 'nnfolder-possibly-change-group #[(group &optional server dont-check) "\203\306!\204\307!\210	\211\205\310\311\n!!)\204!\312\211\f\205\316\232?\205\316\313\314!\210\315\"\205\316\316\317!!\205\316\203T\312\211\202\316\312\211\315\"A@\211\203\200	\211\205r\310\311\n!!)\204\200\320\"\312	\203\216\321	!?\205\315\212\317!\316!\204\266\322\323!!\210\206\252\324ee\325\326%\210)\327!\211\205\314	q\210	DB\211)*)\207" [server nnfolder-current-buffer buffer nnfolder-current-group nnmail-pathname-coding-system file-name-coding-system nnfolder-server-opened nnfolder-open-server buffer-live-p get-buffer nil nnmail-activate nnfolder assoc file-exists-p nnfolder-group-pathname delq verify-visited-file-modtime gnus-make-directory file-name-directory nnmail-write-region t nomesg nnfolder-read-folder group nnfolder-group-alist 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\211eb\210\307\310!\203\311\312!\210\307\313!\204!\314\315 \316\261\210eb\210\312y\210\306\317\320\306\321#\2037\322 \210\323c\210\202&)\324 \210\325!\210\326\327!\210\326\330!\210\211A@\211\203\274eb\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)'\204\270(\204\270
q\210\342	@	A\343\306%$##\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 beginning-of-line "> " 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 nnfolder-add-nov nnfolder-parse-head end beg buffer-read-only gnus-nov-is-evil nnfolder-nov-is-evil] 8 (#$ . 22838)])
#@60 Make sure there are two newlines at the end of the buffer.
(defalias 'nnfolder-normalize-buffer #[nil "db\210\300\301x\210`d|\210o?\205\302c\207" ["\n" nil "\n\n"] 2 (#$ . 23978)])
(defalias 'nnfolder-insert-newsgroup-line #[(group-art) "\212eb\210\302\303\304\305#\204db\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" message-make-date] 4])
(defalias 'nnfolder-active-number #[(group) "\304	\"\211A@)\211\203\211AT\241\210\202!\305\211B\211D	BA)\207" [group nnfolder-group-alist x active assoc 1] 4])
(defalias 'nnfolder-possibly-change-folder #[(group) "\306	\"\211\203'\n\211A@)\211\205\307\310\f!!)\203'\n\211A@)q\202C\n\2030\311\n	\"
\203:\312
\f\"\210\313!D	B\211)\207" [group nnfolder-buffer-alist inf x buffer nnfolder-group-alist assoc buffer-live-p get-buffer delq nnfolder-save-active nnfolder-read-folder nnfolder-active-file] 4])
(defalias 'nnfolder-read-folder #[(group) "\306!\307!\310	\311\")q\312 \210\313 \210\314>\"\211?A@)\315\316	!8\232\203F\317	!\2035
\202#
D@B@\320\311!\210\321 \202#\212eb\210g\322=\203W\323\324!\210\202J\325\326!\210\327\330AP\331\314B\"\211?A@)\206r\324\332B\314>\"\333\334!\203\202\206\206\335\336\211\"\337\211\211\211\211\211\211\211CDEFGHIJKLMNOPMAJQ\204\367R\204\367\317\n!\203\306\340\n	\"\204\367\317\n!\204\322\341\342\n!!\210r\343!\211Fq\210eb\210m\204\361\344F!EBE\324y\210\202\336E\237E)eb\210S\204F\204J\345W\203\265\346O\337\311#\203f\347N!\203f\350\351\332!!D\352 \203JD]JKD^KF\203DE>\203M\353DE\"E\202\354D!TrFq\210\355D!\210\356T!\210*\202F\203\235E\203\235rFq\210E\337U\211V\203\234V@U\355U!\203\223`\324y\210`|\210VA\211V\204\200+M\324KJ^]\240\210MJMA]\241\210eb\210W\204\320J\345W\204\320db\210\357O\337\311#\204\320eb\210\337\211XYX\204\360\327\337\311#\204\352\361\211X\202\330\212\362 \210o\204\376\212\336y\210\337f)\322=\203\212\324y\210\347\363!\203\324y\210\202\347\364!)\203\365X)\202\326\362 \210X*\365=\204*db\210\366 HHdU\204\357\367H!IHb\210\347P!\203L\324y\210\202?H\337\211XYX\204\232\360\327\337\311#\204h\361\211X\202V\212\362 \210o\204|\212\336y\210\337f)\322=\203\226\212\324y\210\347\363!\203\214\324y\210\202\200\347\364!)\203\226\365X)\202T\362 \210X*\365=\203\251`\202\252d\337\223\210Ib\210\346OH\311#\204.IH}\210\370 \210\371\337\372!\211DB!\210F\203\352\354Ded#TrFq\210db\210\356T!\210*~\210\202.H\337\211\223\210\373BZ\"\210\374 GL\203LGC\241\210\202GD>B>F\203 \375 \210p.+\207" [group file nov nnfolder-file-coding-system nnheader-file-coding-system buffer nnfolder-group-pathname nnfolder-group-nov-pathname nnheader-find-file-noselect t mm-enable-multibyte buffer-disable-undo assoc 5 file-attributes file-exists-p set-buffer-modified-p nnfolder-save-buffer 10 delete-char 1 nnmail-activate nnfolder "^From " "\n" "[0-9]+" 0 boundp most-positive-fixnum lsh -1 nil file-newer-than-file-p gnus-make-directory file-name-directory nnfolder-open-nov read 2 search-forward looking-at string-to-number match-string nnmail-within-headers-p delq nnfolder-parse-head nnheader-find-nov-line nnheader-insert-nov re-search-backward re-search-forward no beginning-of-line ">From \\|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-save-nov nnfolder-scantime-alist x nnfolder-buffer-alist nnfolder-article-marker nnfolder-group-alist buffer-read-only newnum articles novbuf newscantime end start maxid minid scantime active number marker delim gnus-nov-is-evil nnfolder-nov-is-evil nnfolder-ignore-active-file headers article --dolist-tail-- nnfolder-distrust-mbox found case-fold-search nnfolder-active-file] 15])
#@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 "\306\307!\210\204:	\204:\310\n\206\311\312\f!\313P#\314\211\2039@\315
!\2040\314\316\317\217\210A\211\204!*\310!\314\211\203\241@\320
!\204\230\315\321
\"!\203\230\322
 \"\211!\203l\323\324\325
#\210\202r\323\324\326
#\210!\203\201\327!\330 !\" 
\331\332BD B \333
!\210\334
!\210\335
!\210)A\211\204E*\323\324\336\"\207" [gnus-nov-is-evil nnfolder-nov-is-evil nnfolder-nov-directory nnfolder-directory nnfolder-nov-file-suffix file nnmail-activate nnfolder directory-files t regexp-quote "$" nil message-mail-file-mbox-p (delete-file file) ((error)) backup-file-name-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 "" --dolist-tail-- nnfolder-group-alist oldgroup] 6 (#$ . 27945) nil])
#@27 Make file name 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 (#$ . 29011)])
#@30 Make pathname for GROUP NOV.
(defalias 'nnfolder-group-nov-pathname #[(group) "\206	\304\n!P)\207" [nnfolder-nov-directory nnfolder-directory group nnfolder-nov-file-suffix nnfolder-group-pathname] 2 (#$ . 29404)])
#@18 Save the buffer.
(defalias 'nnfolder-save-buffer #[nil "\306\307 \203\"\310\311!\210\312\313\314 !!\210	\206\n\315\304!\210\316\317 \210)
\206(?\205.\320 )\207" [delete-old-versions nnfolder-file-coding-system-for-write nnfolder-file-coding-system coding-system-for-write copyright-update gnus-nov-is-evil t buffer-modified-p run-hooks nnfolder-save-buffer-hook gnus-make-directory file-name-directory buffer-file-name make-local-variable nil save-buffer nnfolder-save-nov nnfolder-nov-is-evil] 3 (#$ . 29630)])
(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])
(defalias 'nnfolder-open-nov #[(group) "\304	\"A\2061\305\306\307\"!r\nq\210\310\303!\210\311!\312 \210\313!\203(\314!\210)\nB	B\n)\207" [group nnfolder-nov-buffer-alist buffer nnfolder-nov-buffer-file-name assoc get-buffer-create format " *nnfolder overview %s*" make-local-variable nnfolder-group-nov-pathname erase-buffer file-exists-p nnheader-insert-file-contents] 4])
(defalias 'nnfolder-save-nov #[nil "\212\205;\303\211@A)!\2033\211@A)q\210\304 \203+\305\306\n!!\210\307\310d\n\311\312%\210\313\311!\210\314p!\210A\211\204\311)\207" [nnfolder-nov-buffer-alist x nnfolder-nov-buffer-file-name buffer-name buffer-modified-p gnus-make-directory file-name-directory nnmail-write-region 1 nil nomesg set-buffer-modified-p kill-buffer] 7])
(defalias 'nnfolder-nov-delete-article #[(group article) "r\302!q\210\303	!\203`\304y\210`|\210)\305\207" [group article nnfolder-open-nov nnheader-find-nov-line 1 t] 2])
(defalias 'nnfolder-retrieve-headers-with-nov #[(articles &optional fetch-old) "\206	?\205G\306\n!\307!\205Fr\fq\210\310 \210\311!\210
\203+
\247\204+\312\202E\313
\203:\314@
Z]\202=@\315!@\"\210\312))\207" [gnus-nov-is-evil nnfolder-nov-is-evil nnfolder-current-group nov nntp-server-buffer fetch-old nnfolder-group-nov-pathname file-exists-p erase-buffer nnheader-insert-file-contents t nnheader-nov-delete-outside-range 1 last articles] 4])
#@39 Parse the head of the current buffer.
(defalias 'nnfolder-parse-head #[(&optional number b e) "p\306\212\n\204n\307 \203`\202e\310y\210\306\211\204^\311\312\306\313#\204-\314\211\202\212\315 \210o\204A\212\316y\210\306f)\317=\203Z\212\310y\210\320\321!\203Q\310y\210\202E\320\322!)\203Z\323)\202\315 \210*\323=\203l`\202md
\nZ\324!\204\206\nb\210\325\326
\313#\203\206`S\327\330!rq\210\331\216\332	\n
#\210\333 \211\334I\210\335 I\210.\207" [chars buf b found case-fold-search e nil nnmail-search-unix-mail-delim-backward 1 re-search-forward "^From " t no beginning-of-line -1 10 looking-at ">From \\|From " "[^ \n	:]+[ \n	]*:" yes zerop search-forward "\n\n" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-buffer-substring nnheader-parse-naked-head 6 0 #1# headers number] 5 (#$ . 31808)])
#@36 Add a nov line for the GROUP base.
(defalias 'nnfolder-add-nov #[(group article headers) "r\303!q\210db\210	\304\nI\210\305	!)\207" [group headers article nnfolder-open-nov 0 nnheader-insert-nov] 3 (#$ . 32734)])
(provide 'nnfolder)
F1l3 Manager
