;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:45:32 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/nnkiboze.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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 "`nnkiboze.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\302\310!\210\311\312\313\314\"\314\211FB\311\315D B\314\207" [nnoo-definition-alist nnoo-state-alist require nntp nnheader gnus gnus-score nnoo mm-util nnkiboze mapcar #[(p) "C\207" [p] 1] nil "*internal-non-initialized-backend*"] 4) #@48 nnkiboze will put its files in this directory. (defvar nnkiboze-directory (nnheader-concat gnus-directory "kiboze/") (#$ . 939)) (nnoo-define 'nnkiboze-directory nil) #@48 The maximum level to be searched for articles. (defvar nnkiboze-level 9 (#$ . 1112)) (nnoo-define 'nnkiboze-level nil) #@71 If non-nil, nnkiboze will remove read articles from the kiboze group. (defvar nnkiboze-remove-read-articles t (#$ . 1237)) (nnoo-define 'nnkiboze-remove-read-articles nil) #@44 If non-nil, don't store any data anywhere. (defvar nnkiboze-ephemeral nil (#$ . 1415)) (nnoo-define 'nnkiboze-ephemeral nil) #@48 Score rules for generating the nnkiboze group. (defvar nnkiboze-scores nil (#$ . 1546)) (nnoo-define 'nnkiboze-scores nil) #@39 Regexp for matching component groups. (defvar nnkiboze-regexp nil (#$ . 1675)) (nnoo-define 'nnkiboze-regexp nil) #@35 Coding system for nnkiboze files. (defvar nnkiboze-file-coding-system mm-text-coding-system (#$ . 1795)) (byte-code "\305\306\307\"\210\301B\310\302B\311\302!\204\307\305\302\307\"\210\303B\311\303!\204(\312\305\303\307\"\210\304B\311\304!\2049\307\305\304\307\"\210\313\314!\207" [current-load-list nnkiboze-version nnkiboze-current-group nnkiboze-status-string nnkiboze-headers nnoo-define nnkiboze-file-coding-system nil "nnkiboze 1.0" boundp "" nnoo-define-basics-1 nnkiboze] 3) (defalias 'nnkiboze-retrieve-headers #[(articles &optional group server fetch-old) "\306!\210 ?\2055\n@;\203\307\207\310 \311 !\2054\212\fq\210\312 \210 \313 !\210)\314\n@\315\n!@\"\210)\303)\207" [group gnus-nov-is-evil articles nov nntp-server-buffer nnkiboze-file-coding-system nnkiboze-possibly-change-group headers nnkiboze-nov-file-name file-exists-p erase-buffer nnheader-insert-file-contents nnheader-nov-delete-outside-range last nnheader-file-coding-system] 4]) (nnoo-register-function 'nnkiboze-retrieve-headers) (defalias 'nnkiboze-request-article #[(article &optional newsgroup server buffer) "\306!\210 \247\204\307 \n $\207\310 \f\2368\211\311H\312\312\204*\313\314!\210\315\316\"\2046\313\317!\210\320\321\322\"!\321\323\"r q\210\324\")\206[\325 #,\207" [newsgroup article gnus-nntp-server buffer gnus-newsgroup-data header nnkiboze-possibly-change-group nntp-request-article 3 8 nil error "nnkiboze: No xref" string-match " \\([^ ]+\\):\\([0-9]+\\)" "nnkiboze: Malformed xref" string-to-int match-string 2 1 gnus-cache-request-article gnus-request-article xref num group] 6]) (nnoo-register-function 'nnkiboze-request-article) (defalias 'nnkiboze-request-scan #[(&optional group server) "\301\302P!\207" [group nnkiboze-generate-group "nnkiboze:"] 3]) (nnoo-register-function 'nnkiboze-request-scan) #@35 Make GROUP the current newsgroup. (defalias 'nnkiboze-request-group #[(group &optional server dont-check) "\306!\210 \203\n\307\207\310 \311\211\211\212q\210\312 \210\313 !\204%\314!\210\313 !\2043\315\316\317#\202r\320 !\210)\321\322 !\203J\323\324\"\202reb\210\325\326!\203W\327p!db\210\330\331\311\307#\203f\327p!\332ed\"\323\333\n\f %-\207" [group dont-check total end beg nov-file nnkiboze-possibly-change-group t nnkiboze-nov-file-name nil erase-buffer file-exists-p nnkiboze-request-scan nnheader-report nnkiboze "Can't select group %s" nnheader-insert-file-contents zerop buffer-size nnheader-insert "211 0 0 0 %s\n" looking-at "[0-9]+" read re-search-backward "^[0-9]" count-lines "211 %d %d %d %s\n" nntp-server-buffer nnkiboze-file-coding-system nnheader-file-coding-system] 6 (#$ . 3660)]) (nnoo-register-function 'nnkiboze-request-group) (defalias 'nnkiboze-close-group #[(group &optional server) "\306!\210\307\310 !\205b \205b\n\310 \311\312\313!!\314\216r\fq\210p\n\315\310 !\210eb\210m\204N\316\317!!\204A\320y\210\202.\321 \210`\320y\210`|\210\202.+r\fq\210~\210\322ed \323\324%\210-\323\211\207" [group nnkiboze-remove-read-articles nnkiboze-file-coding-system coding-system-for-write #1=#:temp-buffer #2=#:temp-file nnkiboze-possibly-change-group file-exists-p nnkiboze-nov-file-name get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nnheader-insert-file-contents gnus-article-read-p read 1 beginning-of-line write-region nil 0 nnheader-file-coding-system cur nnkiboze-current-group] 6]) (nnoo-register-function 'nnkiboze-close-group) (defalias 'nnkiboze-open-server #[(server &optional defs) "\302\236\204\f\302 DB\303\304 #\207" [defs server nnkiboze-regexp nnoo-change-server nnkiboze] 4]) (nnoo-register-function 'nnkiboze-open-server) (defalias 'nnkiboze-request-delete-group #[(group &optional force server) "\304!\210 \2032\305!\306 \306\307!D\244\211\2031\310\n@!\203*\311\n@!\203*\312\n@!\210\nA\211\204)\313\314\207" [group force files nnkiboze-current-group nnkiboze-possibly-change-group nnkiboze-score-file nnkiboze-nov-file-name ".newsrc" file-exists-p file-writable-p delete-file nil t] 5]) (byte-code "\300\301!\210\302\303!\207" [nnoo-register-function nnkiboze-request-delete-group nnoo-define-skeleton-1 nnkiboze] 2) (defalias 'nnkiboze-possibly-change-group #[(group) "\211\207" [group nnkiboze-current-group] 2]) (defalias 'nnkiboze-prefixed-name #[(group) "\301\302\"\207" [group gnus-group-prefixed-name (nnkiboze "")] 3]) #@127 "Usage: emacs -batch -l nnkiboze -f nnkiboze-generate-groups". Finds out what articles are to be part of the nnkiboze groups. (defalias 'nnkiboze-generate-groups #[nil "\306\211\211\307\211\310 \210-\311 !\211A\306\306\312 \210\211A@\211\203?\313\314@\"\203\315@\307\"\210\202,\212q\210\316 )\207" [gnus-expert-user gnus-read-active-file gnus-use-dribble-file mail-sources nnmail-spool-file gnus-newsrc-alist nil t gnus gnus-copy-sequence gnus-make-hashtable-from-newsrc-alist string-match "nnkiboze" nnkiboze-generate-group gnus-group-list-groups newsrc gnus-newsrc-hashtb info gnus-group-buffer] 6 (#$ . 6284) nil]) (defalias 'nnkiboze-score-file #[(group) "\303\304!\305\306 !\307\nQ!P!C\207" [gnus-kill-files-directory nnkiboze-current-group gnus-score-file-suffix expand-file-name file-name-as-directory nnheader-translate-file-chars nnkiboze-prefixed-name "."] 6]) (defalias 'nnkiboze-generate-group #[(group &optional inhibit-list-groups) "\306\307 \"J8 \310\311P!P \310\312P!P\3133\3134\3135\3136\3137\3138\3139\313:\313;\313<\314=\313>\315?\313@\314AB\316^B\313C\313D\313E\313F\313G\313H\313I\n\204i\317\320\"\210\321\f!\203s\322\f!\210JK \323\324\325!!LM\326\216rLq\210\321 !\203\222\327 !\210p<\330\331N\"\2104\2116\203\265\3076\211O@@)N\"J\2117\204\302\3326@4\"4\202\2276\211O@A)9\333P!\210\3346\211O@@)!\210\335\316\3366\211O@@)#\210\306\307\337 \"J88\3408!;\3076\211O@@) \"J@I\341\216\31688\203\3168\233\313\240\2108\203/8AA9\342U?\205-\3429B\240\2108\203?\3438@!G\344V\203\226\345\346\347\217\210Q\350=\203\226\351R!\2113S=\203[\3133T\203\213T\211O@@)9V\203\202\352<\316T\211O@@)U\2368R#\210TA\211T\204`Q\350=\203\226\353p!\210)6@7@\241\210\335\316\3546\211O@@)#\2106A\2116\204\243)rLq\210~\210\355edM\313\344%\210-\f\323\324\325!!VW\356\216rVq\210\357c\210\3604!\210\361c\210)rVq\210~\210\355edW\313\344%\210.X\204\212Pq\210\362 \210)\314\207" [group gnus-newsrc-hashtb info nnkiboze-directory newsrc-file nov-file 2 intern-soft nnheader-translate-file-chars ".newsrc" ".nov" nil t nnkiboze-score-file 3 error "No such group: %s" file-exists-p load get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents mapatoms #[(group) "\306\307 !\211\"\205H\310\n \"?\205H J@\247\205H\f\311V\2046\312\313\n \"J8A@\211 \205H\f Y\205H\306\314\n\"?\205H\n J@SB B\211\207" [nnkiboze-regexp group gname nnkiboze-newsrc nnkiboze-level gnus-newsrc-hashtb string-match symbol-name assoc 7 2 intern-soft "^nnkiboze:" glevel] 4] delq switch-to-buffer gnus-group-jump-to-group gnus-message "nnkiboze: Checking %s..." gnus-group-group-name gnus-copy-sequence ((byte-code "\203  A\241\210\306\n\211@@)\f\"J \240\207" [ginfo orig-info newsrc x gnus-newsrc-hashtb num-unread intern-soft] 4)) 1 gnus-list-of-unread-articles 0 #2=#:G97316 (gnus-group-select-group nil) ((error)) gnus-summary-mode gnus-find-method-for-group nnkiboze-enter-nov kill-buffer "nnkiboze: Checking %s...done" write-region ((byte-code "\301!\203\n\302!\210\301\207" [#3=#:temp-buffer buffer-name kill-buffer] 2)) "(setq nnkiboze-newsrc '" gnus-prin1 ")\n" gnus-group-list-groups method nnkiboze-newsrc gname newsrc active ginfo lowest glevel orig-info nov-buffer gnus-expert-user gnus-large-newsgroup gnus-score-find-score-files-function gnus-score-use-all-scores gnus-use-scoring gnus-verbose gnus-select-group-hook gnus-summary-prepare-hook gnus-thread-sort-functions gnus-show-threads gnus-visual gnus-suppress-duplicates num-unread nnkiboze-file-coding-system coding-system-for-write #1# #4=#:temp-file gnus-active-hashtb x gnus-group-buffer major-mode gnus-newsgroup-name gnus-select-method gnus-newsgroup-scored gnus-newsgroup-data #3# #5=#:temp-file inhibit-list-groups] 7]) (defalias 'nnkiboze-enter-nov #[(buffer header group) "\212q\210db\210\306 !\307\n!\310\311\312y!\203#\313p!T\314y\210\202%\314\f\315 I\210\316\317\320!!\321\216rq\210\f\322H\206?\323c\210eb\210\324\325\310\326#\203S\315\224b\210\202Zm\204Z\314u\210\327 \330\331\n\315H!\327\261\210\324\325\310\326#\203y\315\224Tb\210 c\210\202f\f\322\332 I\210+\333\f!,\207" [buffer group header article oheader prefix gnus-group-real-prefix copy-sequence nil zerop -1 read 1 0 get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) 8 "" re-search-forward " [^ ]+:[0-9]+" t " " ":" int-to-string buffer-string nnheader-insert-nov #1#] 6]) (defalias 'nnkiboze-nov-file-name #[(&optional suffix) "\303!\304\305 !\n\206\f\306P!P\207" [nnkiboze-directory nnkiboze-current-group suffix file-name-as-directory nnheader-translate-file-chars nnkiboze-prefixed-name ".nov"] 4]) (provide 'nnkiboze)