;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:51:08 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/gnus/nnfolder.el ;;; in Emacs version 23.4.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\"\210\306\307!\210\306\310!\210\306\311!\210\306\312!\210\306\313!\210\306\314!\210\306\315!\210\316\317\320\"\210\321\236\203?\321\236A\322\323\324\"\240\210\202J\321\322\323\324\"\324\211FB\321 \236\204V\321\325D B\324\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) (#$ . 1113)) (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 (#$ . 1343)) (nnoo-define 'nnfolder-nov-directory nil) #@153 The name of the nnfolder MARKS directory. If nil, `nnfolder-directory' is used. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnfolder-marks-directory nil (#$ . 1590)) (nnoo-define 'nnfolder-marks-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") (#$ . 1843)) (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 (#$ . 2079)) (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 (#$ . 2542)) (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) (#$ . 3075)) (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 (#$ . 3367)) (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 (#$ . 3607)) (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 (#$ . 3841)) (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 (#$ . 4065)) (nnoo-define 'nnfolder-inhibit-expiry nil) #@19 nnfolder version. (defconst nnfolder-version "nnfolder 2.0" (#$ . 4263)) #@68 String used to demarcate what the article number for a message is. (defconst nnfolder-article-marker "X-Gnus-Article-Number: " (#$ . 4342)) (byte-code "\303B\304\303!\204\305\303\306\"\210\307\303\306\"\210\310B\304\310!\204#\305\310\306\"\210\307\310\306\"\210\311B\304\311!\2047\305\311\312\"\210\307\311\306\"\210\313B\304\313!\204K\305\313\306\"\210\307\313\306\"\210\314B\304\314!\204_\305\314\306\"\210\307\314\306\"\210\315B\304\315!\204s\305\315\306\"\210\307\315\306\"\210\316B\304\316!\204\207\305\316\306\"\210\307\316\306\"\210\317B\304\317!\204\233\305\317 \"\210\307\317\306\"\210\320B\304\320!\204\257\305\320\n\"\210\307\320\306\"\210\321B\304\321!\204\303\305\321 \"\210\307\321\306\"\207" [current-load-list mm-text-coding-system nnmail-active-file-coding-system nnfolder-current-group default-boundp set-default nil nnoo-define nnfolder-current-buffer nnfolder-status-string "" nnfolder-group-alist nnfolder-buffer-alist nnfolder-scantime-alist nnfolder-active-timestamp nnfolder-active-file-coding-system nnfolder-active-file-coding-system-for-write nnfolder-file-coding-system] 3) #@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 (#$ . 5482)) (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 (#$ . 5790)) (byte-code "\301\302\303\"\210\304B\305\304!\204\306\304\307\"\210\301\304\303\"\210\310B\305\310!\204(\306\310\303\"\210\301\310\303\"\210\311B\305\311!\204<\306\311\303\"\210\303\207" [current-load-list nnoo-define nnfolder-nov-is-evil nil nnfolder-nov-file-suffix default-boundp set-default ".nov" nnfolder-nov-buffer-alist nnfolder-nov-buffer-file-name] 3) #@551 If non-nil, Gnus will never generate and use marks file for mail groups. Using marks files makes it possible to backup and restore mail groups separately from `.newsrc.eld'. If you have, for some reason, set this to t, and want to set it to nil again, you should always remove the corresponding marks file (usually base nnfolder file name concatenated with `.mrk', but see `nnfolder-marks-file-suffix') for the group. Then the marks file will be regenerated properly by Gnus. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnfolder-marks-is-evil nil (#$ . 6745)) (byte-code "\301\302\303\"\210\304B\305\304!\204\306\304\303\"\210\301\304\303\"\210\307B\305\307!\204(\306\307\310\"\210\301\307\303\"\210\311B\305\311!\204=\306\311\312 \"\210\313\314!\207" [current-load-list nnoo-define nnfolder-marks-is-evil nil nnfolder-marks default-boundp set-default nnfolder-marks-file-suffix ".mrk" nnfolder-marks-modtime gnus-make-hashtable nnoo-define-basics-1 nnfolder] 3) (defalias 'nnfolder-retrieve-headers #[(articles &optional group server fetch-old) "\212q\210\306 \210\307\211\211\211\310 \"\210\205\351q\210eb\210 @;\203,\311\202\351\312 !\"\2039\313\202\351\314\315 \316\"\317 \"  \211A @\211\203\342q\210\320\f!\203\204`\321\322\307\323#\203i`S\202jdq\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\202Dq\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\204.\203.\312!\210\313\n!\204=\314 \210\315\307\316\n#\207\317\320\n!!\204N\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" nnfolder-marks-is-evil nnfolder-marks-directory] 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 \"\210\212\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) "\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@ \211A@) \204X\311\312\313#\202}\204e\311\312\322#\202}\311\312\321#\210\323\324A@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 #[nil "\212 \205.\302 @A@!\204\303 @\"\202& @A@q\210\304 \210\305p!\210 A\211\204\306*\207" [nnfolder-buffer-alist bufs gnus-buffer-live-p delq nnfolder-save-buffer kill-buffer nil] 4]] 5]) (nnoo-register-function 'nnfolder-request-scan) (defalias 'nnfolder-close-group #[(group &optional server force) "\306 \"\204 \n\232\203R\306 \"\211\2033\n\203$\f\203$\n\fD B\307 \" \211A@) @)\f\203R\310\f!\203R\212\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\2059q\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!\210\212&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\"\210\344\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 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\204\212 q\210\312 \210\313 !\210eb\210\314\315P\212\316\317\310\320#\205,`)\320#\203=\321 \322y\210`|\210\202\323!\324 !\210)\203\204\212\325 \f\"\210q\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\211eb\210\311\312!\203,\313\314!\210\310y\210\311\315!\203,\316\317!\210\202\320\321!r q\210\322\216-p./\3230!\210\324 1-\212eb\210\325\326\310\327#\203Y\317y\210\202\\db\210\330\3312P\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\2115@@)\206\276!\210\347 \2103\203\313\350 \210)\35110\"\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!\210\212 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 \204t\212 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\315\217\210\313\316\317\217\210\313\320\321\217\210+\322\323\"\"\313\211\324\"\210\307\207" [group server force mrk nov data nnfolder-close-group t nnfolder-group-pathname nnfolder-group-nov-pathname nnfolder-group-marks-pathname nil (delete-file data) ((error)) (delete-file nov) ((error)) (delete-file mrk) ((error)) delq assoc nnfolder-save-active nnfolder-group-alist 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 \"\210\212\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\310\312 !!\203A\312!\305\306 !!\210\307\312 ! \"\210)\313\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 nnfolder-group-marks-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 \"\211A@)\307\fP\310 A\212q\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\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\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 (#$ . 22059)]) #@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 (#$ . 22598)]) (defalias 'nnfolder-possibly-change-group #[(group &optional server dont-check) "\203\306!\204\307!\210\310 !\204\311\211  \205\262 \n\232?\205\262\312\313!\210\314 \"\205\262\315\316 !!\205\262\203F \311\211\202\262\311\211\314 \"A@\211\203h\310 !\204h\317\"\311  \203u\320 !?\205\261\212\316 !\315!\204\234\321\322!!\210\206\220\323ee\324\325%\210)\326 !\211\205\260 q\210 DB\211)*)\207" [server nnfolder-current-buffer nnfolder-current-group nnmail-pathname-coding-system file-name-coding-system group nnfolder-server-opened nnfolder-open-server gnus-buffer-live-p 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 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\211eb\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 (#$ . 24322)]) #@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 (#$ . 25462)]) (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" message-make-date] 4]) (defalias 'nnfolder-active-number #[(group) "\304 \"\211A@)\211\203 \211AT\241\210\202!\305\211B\211D B A)\207" [group nnfolder-group-alist x active assoc 1] 4]) (defalias 'nnfolder-possibly-change-folder #[(group) "\306 \"\211\203\307\n\211A@)!\203\n\211A@)q\2029\n\203'\310\n \"\f\2030\311\f \"\210\312!D B\211)\207" [group nnfolder-buffer-alist inf x nnfolder-group-alist nnfolder-active-file assoc gnus-buffer-live-p delq nnfolder-save-active nnfolder-read-folder] 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\330AP\331\314B\"\211?A@)\206r\324\332B\314>\"\333\334!\203\202\206\206\335\336\211\"\337\211\211\211\211\211\211\211CDEFGHIJKLMNOPMAJQ\204\367R\204\367\317\n!\203\306\340\n \"\204\367\317\n!\204\322\341\342\n!!\210r\343!\211Fq\210eb\210m\204\361\344F!EBE\324y\210\202\336E\237E)eb\210S\204 F\204 J\345W\203\265\346O\337\311#\203f\347N!\203f\350\351\332!!D\352 \203 JD]JKD^KF\203 DE>\203M\353DE\"E\202 \354D!TrFq\210\355D!\210\356T!\210*\202 F\203\235E\203\235rFq\210E\337U\211V\203\234V@U\355U!\203\223`\324y\210`|\210VA\211V\204\200+M\324KJ^]\240\210MJMA]\241\210eb\210W\204\320J\345W\204\320db\210\357O\337\311#\204\320eb\210\337\211XYX\204\360\327\337\311#\204\352\361\211X\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\365X)\202\326\362 \210X*\365=\204*db\210\366 HHdU\204\357\367H!IHb\210\347P!\203L\324y\210\202?H\337\211XYX\204\232\360\327\337\311#\204h\361\211X\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\365X)\202T\362 \210X*\365=\203\251`\202\252d\337\223\210Ib\210\346OH\311#\204.IH}\210\370 \210\371\337\372!\211DB!\210F\203\352\354Ded#TrFq\210db\210\356T!\210*~\210\202.H\337\211\223\210\373BZ\"\210\374 GL\203LGC\241\210\202GD>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 #1=#:--cl-dolist-temp-- 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\210A\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 "" #1=#:--cl-dolist-temp-- #2=#:--cl-dolist-temp-- nnfolder-group-alist oldgroup] 6 (#$ . 29405) 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 (#$ . 30506)]) #@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 (#$ . 30899)]) #@18 Save the buffer. (defalias 'nnfolder-save-buffer #[nil "\306 \203 \307\310!\210\311\312\313 !!\210\206 \314\303!\210\315\316 \210)\f\206% ?\205+\317 \207" [nnfolder-file-coding-system-for-write nnfolder-file-coding-system coding-system-for-write copyright-update gnus-nov-is-evil nnfolder-nov-is-evil 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] 3 (#$ . 31125)]) (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\"!\212\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!\210A\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) "\212\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 !\205F\212\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`\202e\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!rq\210\331\216\332 \n #\210\333 \211\334I\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 (#$ . 33282)]) #@36 Add a nov line for the GROUP base. (defalias 'nnfolder-add-nov #[(group article headers) "\212\303!q\210db\210 \304\nI\210\305 !)\207" [group headers article nnfolder-open-nov 0 nnheader-insert-nov] 3 (#$ . 34208)]) (defalias 'nnfolder-request-set-mark #[(group actions &optional server) "\203\306!\204\307!\210 \204\211\310\n\"\210 \311\211\203\203 @\211@\fA@\312\f8\313=\204D\314=\204D\315\316\"\210\311\211\203{@\317\313=\203b\320\202c\321\322\"A\"#A\211\204O- A\211\204*\323\n\"\210\311\207" [server nnfolder-marks-is-evil group actions action #1=#:--cl-dolist-temp-- nnfolder-server-opened nnfolder-open-server nnfolder-open-marks nil 2 add del error "Unknown request-set-mark action: %s" gnus-update-alist-soft gnus-range-add gnus-remove-from-range assoc nnfolder-save-marks marks what range mark #2=#:--cl-dolist-temp-- nnfolder-marks] 8]) (nnoo-register-function 'nnfolder-request-set-mark) (defalias 'nnfolder-request-update-info #[(group info &optional server) "\203\306!\204\307!\210 \204O\310\n!\203O\311\312\313\n#\210\314\n\"\210\315\316 \"\210\317\f\236AAA @\250\203E A\204E @ @BC\202F \240\210)\311\312\320\n#\210\207" [server nnfolder-marks-is-evil group gnus-article-mark-lists nnfolder-marks seen nnfolder-server-opened nnfolder-open-server nnfolder-marks-changed-p nnheader-message 8 "Updating marks for %s..." nnfolder-open-marks mapc #[(pred) "A >?\205\304\n\305AA \236A\306\n8#\306#\207" [pred gnus-article-unpropagated-mark-lists info nnfolder-marks gnus-info-set-entry gnus-update-alist-soft 3] 7] read "Updating marks for %s...done" info] 4]) (nnoo-register-function 'nnfolder-request-update-info) #@30 Make pathname for GROUP NOV. (defalias 'nnfolder-group-marks-pathname #[(group) "\206 \304\n! P)\207" [nnfolder-marks-directory nnfolder-directory group nnfolder-marks-file-suffix nnfolder-group-pathname] 2 (#$ . 35925)]) (defalias 'nnfolder-marks-changed-p #[(group) "\303!\304 \n\"J\204\305\202\304 \n\"J\306\307 !8\232?)\207" [group file nnfolder-marks-modtime nnfolder-group-marks-pathname intern-soft t 5 file-attributes] 4]) (defalias 'nnfolder-save-marks #[(group server) "\304 !\305\306\307\217*\207" [nnmail-pathname-coding-system group file file-name-coding-system nnfolder-group-marks-pathname err (byte-code "\305\306\307!!\310\216r q\210\311 \210\312 !\210\313c\210)r q\210\314\315\211\n\315\316%\210,\317\f\"\320\321!8L\207" [file #1=#:temp-buffer #2=#:temp-file nnfolder-marks nnfolder-marks-modtime get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) erase-buffer gnus-prin1 "\n" write-region nil 0 intern 5 file-attributes] 6) ((error (byte-code "\302\303\304 #!\206\305\306 #\207" [file err gnus-yes-or-no-p format "Could not write to %s (%s). Continue? " error "Cannot write to %s (%s)"] 5)))] 3]) (defalias 'nnfolder-open-marks #[(group server) "\306!\307 !\203\310\311\312\217\202S\313\314\315\316\317\n\"\211\203'\n<\203'\n\206\320\n \"A\206\n\321\232\2039\f\206\366\320\n \"A\206\366\320\n\"A\206\366 !!\203y\n\316\322!\211\"@@)@!\211\"@@)A@#\232\204y!\211A!@\210\202N!\211\"@@*\206\366#$$\203\261\n\316\322$\211\"@@)$\211\"@A)@#\232\204\261$\211A$@\210\202\210$@)\206\366%A\323\211&'((\203\363\324(\211A(@8\211';\204\303\n'\323)'\325\326\215*\232\203\303'&\323\211(\204\310&+\211*\203\n*B B*))\"+\"J8,\327\330\331#\210\332,8-\333\313,8B-B-.\323/\2110\203G0@/\334/-\"-0A\2110\2041*\335\n\"\210\327\330\336#))\207" [group file server gnus-server-method-cache gnus-select-method gnus-server-alist nnfolder-group-marks-pathname file-exists-p err (byte-code "\306\307!rq\210\310\216\311 \n\"\312\313 !8L\210\314 !\210\315p!\f\316\211\2038@\317 \"A\211\204&-\316\207" [#1=#:temp-buffer file nnfolder-marks-modtime nnfolder-marks gnus-article-unpropagated-mark-lists el generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) intern 5 file-attributes nnheader-insert-file-contents read nil gnus-remassoc #2=#:--cl-dolist-temp--] 4) ((error (byte-code "\302\303\304 #!\206\305\306 #\207" [file err gnus-yes-or-no-p format "Error reading nnfolder marks file %s (%s). Continuing will use marks from .newsrc.eld. Continue? " error "Cannot read nnfolder marks file %s (%s)"] 5))) 2 intern-soft gnus-group-prefixed-name format "nnfolder:%s" assoc "native" "%s:%s" nil 4 server-name (byte-code "\206 \n\204\306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203*\312\313@\"\2026\312\314@\211 A@)#\211B\211 \235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" x name name-method] 5) nnheader-message 7 "Bootstrapping marks for %s..." 3 read gnus-remassoc nnfolder-save-marks "Bootstrapping marks for %s...done" gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result gnus-newsrc-hashtb info nnfolder-marks gnus-article-unpropagated-mark-lists el #3=#:--cl-dolist-temp--] 11]) (provide 'nnfolder)