;ELC ;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:43:45 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/nnkiboze.el ;;; emacs version 19.34.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 "!!!!!\"ɉF\nB\nD\fB\fɇ" [require nntp nnheader gnus gnus-score nnoo nnkiboze mapcar #[(p) "C" [p] 1] nil nnoo-definition-alist "*internal-non-initialized-backend*" nnoo-state-alist] 4) #@48 nnkiboze will put its files in this directory. (defvar nnkiboze-directory (nnheader-concat gnus-directory "kiboze/") (#$ . 723)) (nnoo-define (quote nnkiboze-directory) nil) #@48 The maximum level to be searched for articles. (defvar nnkiboze-level 9 (#$ . 903)) (nnoo-define (quote nnkiboze-level) nil) #@71 If non-nil, nnkiboze will remove read articles from the kiboze group. (defvar nnkiboze-remove-read-articles t (#$ . 1034)) (nnoo-define (quote nnkiboze-remove-read-articles) nil) #@44 If non-nil, don't store any data anywhere. (defvar nnkiboze-ephemeral nil (#$ . 1219)) (nnoo-define (quote nnkiboze-ephemeral) nil) #@48 Score rules for generating the nnkiboze group. (defvar nnkiboze-scores nil (#$ . 1357)) (nnoo-define (quote nnkiboze-scores) nil) #@39 Regexp for matching component groups. (defvar nnkiboze-regexp nil (#$ . 1493)) (byte-code "\" B! B\"!& B\"!8\n B\"!" [nnoo-define nnkiboze-regexp nil "nnkiboze 1.0" nnkiboze-version current-load-list boundp nnkiboze-current-group nnkiboze-status-string "" nnkiboze-headers nnoo-define-basics-1 nnkiboze] 3) (defalias 'nnkiboze-retrieve-headers #[(articles &optional group server fetch-old) " !\n?5 @;ć !4q ! @ !@\"))" [nnkiboze-possibly-change-group group gnus-nov-is-evil articles headers nnkiboze-nov-file-name nov file-exists-p nntp-server-buffer erase-buffer nnheader-insert-file-contents nnheader-nov-delete-outside-range last] 4]) (nnoo-register-function (quote nnkiboze-retrieve-headers)) (defalias 'nnkiboze-request-article #[(article &optional newsgroup server buffer) " !\n\n \f $\n8H\n%!\n\"1!\n\"!\n\" #*" [nnkiboze-possibly-change-group newsgroup article nntp-request-article gnus-nntp-server buffer 3 gnus-newsgroup-data header 8 xref error "nnkiboze: No xref" string-match " \\([^ ]+\\):\\([0-9]+\\)" "nnkiboze: Malformed xref" gnus-request-article string-to-int match-string 2 1] 6]) (nnoo-register-function (quote nnkiboze-request-article)) (defalias 'nnkiboze-request-scan #[(&optional group server) "\nP!" [nnkiboze-generate-group "nnkiboze:" group] 3]) (nnoo-register-function (quote nnkiboze-request-scan)) #@35 Make GROUP the current newsgroup. (defalias 'nnkiboze-request-group #[(group &optional server dont-check) " !\n\nÇ ʼn \nq  !* ! !9 #z ! UL \"zeb!Zp!db#jp!ed\" %-" [nnkiboze-possibly-change-group group dont-check t nnkiboze-nov-file-name nil total end beg nov-file nntp-server-buffer erase-buffer file-exists-p nnkiboze-request-scan nnheader-report nnkiboze "Can't select group %s" nnheader-insert-file-contents buffer-size 0 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"] 6 (#$ . 2951)]) (nnoo-register-function (quote nnkiboze-request-group)) (defalias 'nnkiboze-close-group #[(group &optional server) " ! !\f !!q  Ύp !ebm?O!!By.y`y`|.) ~ =c q~ q !!v !\"ed %.̉" [nnkiboze-possibly-change-group group file-exists-p nnkiboze-nov-file-name nnkiboze-remove-read-articles temp-file fundamental-mode default-major-mode get-buffer-create generate-new-buffer-name " *nnheader temp*" temp-buffer nil temp-results ((byte-code " !\n !" [buffer-name temp-buffer kill-buffer] 2)) cur nnheader-insert-file-contents gnus-article-read-p read 1 0 t file-directory-p file-name-directory make-directory write-region nomesg nnkiboze-current-group] 6]) (nnoo-register-function (quote nnkiboze-close-group)) (defalias 'nnkiboze-open-server #[(server &optional defs) " \f\nD B\n #" [nnkiboze-regexp defs server nnoo-change-server nnkiboze] 4]) (nnoo-register-function (quote nnkiboze-open-server)) (defalias 'nnkiboze-request-delete-group #[(group &optional force server) " !\n8 ! !D7@!.@!.@!A) ̇" [nnkiboze-possibly-change-group group force nnkiboze-score-file nnkiboze-nov-file-name ".newsrc" files file-exists-p file-writable-p delete-file nil nnkiboze-current-group t] 5]) (byte-code "!!" [nnoo-register-function nnkiboze-request-delete-group nnoo-define-skeleton-1 nnkiboze] 2) (defalias 'nnkiboze-possibly-change-group #[(group) "" [group nnkiboze-current-group] 2]) (defalias 'nnkiboze-prefixed-name #[(group) " \"" [gnus-group-prefixed-name group (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 " ,!A \n  A @ > @\" @!," [nil t gnus-expert-user gnus-read-active-file gnus-use-dribble-file nnmail-spool-file gnus gnus-copy-sequence gnus-newsrc-alist newsrc gnus-newsrc-hashtb info gnus-make-hashtable-from-newsrc-alist string-match "nnkiboze" nnkiboze-generate-group] 5 (#$ . 5203) nil]) (defalias 'nnkiboze-score-file #[(group) "\n! !Q!P!C" [expand-file-name file-name-as-directory gnus-kill-files-directory nnheader-translate-file-chars nnkiboze-prefixed-name nnkiboze-current-group "." gnus-score-file-suffix] 6]) (defalias 'nnkiboze-generate-group #[(group) "\n \"J8 \nP!P \nP!P\n\f ^ !\"#\fe\n\"!q!\n(*!!q./\n!\n!p4\" @@4\"J@ \" @A7!@@!@@# \"J8!@@ \"J@#8ˠAAU?B-@!G@VABCDE=FG!\fH=S\fI}I@@VtJI@@K8G#IAIXDE=Lp!)@@܁M@@#A/((=.q.qNO(!!PO(!\"Qed(ˁR%.S*!!qTUVWcX !YcUSQS='TqQTqNOS!!DPOS!\"QedSˁR%.7qZ )և" [2 intern-soft group gnus-newsrc-hashtb info nnkiboze-directory nnheader-translate-file-chars ".newsrc" newsrc-file ".nov" nov-file nil method nnkiboze-newsrc gname newsrc active ginfo lowest glevel orig-info nov-buffer t gnus-expert-user gnus-large-newsgroup nnkiboze-score-file gnus-score-find-score-files-function gnus-verbose 3 gnus-select-group-hook gnus-summary-prepare-hook gnus-thread-sort-functions gnus-show-threads gnus-visual gnus-suppress-duplicates num-unread error "No such group: %s" file-exists-p load temp-file fundamental-mode default-major-mode get-buffer-create generate-new-buffer-name " *nnheader temp*" temp-buffer temp-results ((byte-code " !\n !" [buffer-name temp-buffer kill-buffer] 2)) insert-file-contents mapatoms #[(group) " !\"N\f\"?N J@NV:\f \"J8A@\fN\fYN\f\"?N\f J@SBB" [string-match nnkiboze-regexp symbol-name group gname assoc nnkiboze-newsrc nnkiboze-level 7 2 intern-soft gnus-newsrc-hashtb glevel "^nnkiboze:"] 4] gnus-active-hashtb delq switch-to-buffer gnus-group-buffer gnus-group-jump-to-group gnus-message "nnkiboze: Checking %s..." gnus-group-group-name gnus-copy-sequence ((byte-code "  A @@\f\"J " [ginfo orig-info intern-soft newsrc gnus-newsrc-hashtb num-unread] 3)) 1 gnus-list-of-unread-articles 0 G99256 (gnus-group-select-group nil) ((error)) major-mode gnus-summary-mode gnus-find-method-for-group gnus-newsgroup-name gnus-select-method gnus-newsgroup-scored nnkiboze-enter-nov gnus-newsgroup-data kill-buffer "nnkiboze: Checking %s...done" file-directory-p file-name-directory make-directory write-region nomesg temp-file temp-buffer temp-results ((byte-code " !\n !" [buffer-name temp-buffer kill-buffer] 2)) "(setq nnkiboze-newsrc '" gnus-prin1 ")\n" gnus-group-list-groups] 7]) (defalias 'nnkiboze-enter-nov #[(buffer header group) "qdb\n!\f!yU'p!Ty*I!$#LʔbOu\n\fH!Ա#oʔTbc[," [buffer gnus-group-real-prefix group copy-sequence header nil article oheader prefix -1 0 read 1 nnheader-insert-nov search-backward " " t 2 re-search-forward " [^ ]+:[0-9]+" " " ":" int-to-string] 6]) (defalias 'nnkiboze-nov-file-name #[(&optional suffix) " !\f! \fP!P" [file-name-as-directory nnkiboze-directory nnheader-translate-file-chars nnkiboze-prefixed-name nnkiboze-current-group suffix ".nov"] 4]) (provide (quote nnkiboze))