;ELC ;;; compiled by larsi@ifi.uio.no on Fri Jun 28 20:34:16 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/nnkiboze.el ;;; emacs version 19.31.4. ;;; 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\nɇ" [require nntp nnheader gnus gnus-score nnoo nnkiboze mapcar #[(p) "C‡" [p] 1] nil nnoo-definition-alist] 4) #@48 nnkiboze will put its files in this directory. (defvar nnkiboze-directory gnus-directory (#$ . 626)) (nnoo-define (quote nnkiboze-directory) nil) #@49 *The maximum level to be searched for articles. (defvar nnkiboze-level 9 (#$ . -778)) (nnoo-define (quote nnkiboze-level) nil) #@72 *If non-nil, nnkiboze will remove read articles from the kiboze group. (defvar nnkiboze-remove-read-articles t (#$ . -911)) (nnoo-define (quote nnkiboze-remove-read-articles) nil) #@46 Version numbers of this version of nnkiboze. (defconst nnkiboze-version "nnkiboze 1.0" (#$ . 1097)) (byte-code "ÀÁ!„ÂÁ BÄÁÂ\"ˆÀÅ!„ÆÅ BÄÅÂ\"ˆÀÇ!„+ÆÇ BÄÇÂ\"ˆÈÉ!‡" [boundp nnkiboze-current-group nil current-load-list nnoo-define nnkiboze-current-score-group "" nnkiboze-status-string nnoo-define-basics-1 nnkiboze] 3) (defalias 'nnkiboze-retrieve-headers #[(articles &optional group server fetch-old) "À !ˆ\n?… @;ƒć @ Aƒ A‰‚ @Å É!…~Š\nqˆË ˆÌ!ˆebˆm„SÍp!WƒSÎyˆ‚@Ïyˆm„^Î`|ˆm„qÍp!YƒqÎyˆ‚^Ïyˆm„|`d|ˆ)Æ+‡" [nnkiboze-possibly-change-newsgroups group gnus-nov-is-evil articles headers nnkiboze-nov-file-name nov last first file-exists-p nntp-server-buffer erase-buffer insert-file-contents read 1 0] 4]) (nnoo-register-function (quote nnkiboze-retrieve-headers)) (defalias 'nnkiboze-open-server #[(newsgroups &optional something) "À !ˆÂ ‡" [gnus-make-directory nnkiboze-directory nnheader-init-server-buffer] 2]) (nnoo-register-function (quote nnkiboze-open-server)) (defalias 'nnkiboze-server-opened #[(&optional server) "…Á!‡" [nntp-server-buffer get-buffer] 2]) (nnoo-register-function (quote nnkiboze-server-opened)) (defalias 'nnkiboze-request-article #[(article &optional newsgroup server buffer) "À !ˆ\n§„Ã\n \f $‡Æ\nž8‰ÉH\nË\fË \n„,ÎÏ!ˆÐÑ\n\"„8ÎÒ!ˆ\nÓ”Ó•O\fÔ\nÕ”Õ•O! Ö\f×\"…[Ø \f #,‡" [nnkiboze-possibly-change-newsgroups newsgroup article nntp-request-article gnus-nntp-server buffer 3 gnus-newsgroup-data header 8 xref nil igroup iarticle error "nnkiboze: No xref" string-match " \\([^ ]+\\):\\([0-9]+\\)" "nnkiboze: Malformed xref" 1 string-to-int 2 gnus-request-group t gnus-request-article] 6]) (nnoo-register-function (quote nnkiboze-request-article)) #@35 Make GROUP the current newsgroup. (defalias 'nnkiboze-request-group #[(group &optional server dont-check) "À !ˆ\n„sà ĉ‰Š qˆÊ ˆË!„,ÌÍ \"cˆ‚rÎ!ˆÏ ÐUƒAÌÍ \"cˆ‚rebˆÑÒ!ƒOÓp!dbˆÔÕÄÖ#ƒ_Óp!×ed\"Ê ˆÌØ  %cˆ-Ö‡" [nnkiboze-possibly-change-newsgroups group dont-check nnkiboze-nov-file-name nil total end beg nov-file nntp-server-buffer erase-buffer file-exists-p format "211 0 0 0 %s\n" insert-file-contents buffer-size 0 looking-at "[0-9]+" read re-search-backward "^[0-9]" t count-lines "211 %d %d %d %s\n"] 6 (#$ . 2829)]) (nnoo-register-function (quote nnkiboze-request-group)) (defalias 'nnkiboze-close-group #[(group &optional server) "À !ˆÂà !…x\f…x Æ=…xŠÉ\n \fÍÎ!qˆÏp!ˆÐ ˆpÑÔà !ˆebˆÕÖ!ƒi×!‰\f>„V >ƒ\\Øyˆ‚;Ùyˆ`Øyˆ`|ˆ‚;Úà !ˆÛp!ˆ.щ‡" [nnkiboze-possibly-change-newsgroups group file-exists-p nnkiboze-nov-file-name nnkiboze-remove-read-articles major-mode gnus-summary-mode gnus-newsgroup-unreads gnus-newsgroup-unselected never version-control unselected unreads get-buffer-create "*nnkiboze work*" buffer-disable-undo erase-buffer nil article cur insert-file-contents looking-at "[0-9]+" read 1 0 write-file kill-buffer nnkiboze-current-group] 3]) (nnoo-register-function (quote nnkiboze-close-group)) (defalias 'nnkiboze-request-list #[(&optional server) "ÀÁÂ\"‡" [nnheader-report nnkiboze "LIST is not implemented."] 3]) (nnoo-register-function (quote nnkiboze-request-list)) #@18 List new groups. (defalias 'nnkiboze-request-newgroups #[(date &optional server) "ÀÁÂ\"‡" [nnheader-report nnkiboze "NEWGROUPS is not supported."] 3 (#$ . 4267)]) (nnoo-register-function (quote nnkiboze-request-newgroups)) (defalias 'nnkiboze-request-list-newsgroups #[(&optional server) "ÀÁÂ\"‡" [nnheader-report nnkiboze "LIST NEWSGROUPS is not implemented."] 3]) (nnoo-register-function (quote nnkiboze-request-list-newsgroups)) (defalias 'nnkiboze-request-delete-group #[(group &optional force server) "À !ˆ\nƒ8à \f ÅQÆ !E‰ƒ7È@!ƒ.É@!ƒ.Ê@!ˆA‰„)ˉ\f‡" [nnkiboze-possibly-change-newsgroups group force nnkiboze-nov-file-name nnkiboze-directory ".newsrc" nnkiboze-score-file files file-exists-p file-writable-p delete-file nil nnkiboze-current-group] 5]) (nnoo-register-function (quote nnkiboze-request-delete-group)) (defalias 'nnkiboze-possibly-change-newsgroups #[(group) "‰‡" [group nnkiboze-current-group] 2]) (defalias 'nnkiboze-prefixed-name #[(group) "À Â\"‡" [gnus-group-prefixed-name group (nnkiboze "")] 3]) #@124 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 "À‰Á‰Æ ˆ,Ç!‰ À\nË ˆ …;ÌÍ @@\"ƒ1Î @@!ˆ 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 gnus-make-hashtable-from-newsrc-alist string-match "nnkiboze" nnkiboze-generate-group] 5 (#$ . 5314) nil]) (defalias 'nnkiboze-score-file #[(group) "ÀÁ\n!Ã\fÅQ!P!C‡" [expand-file-name file-name-as-directory gnus-kill-files-directory nnheader-translate-file-chars nnkiboze-current-score-group "." gnus-score-file-suffix] 6]) (defalias 'nnkiboze-generate-group #[(group) "ÀÁ\n \"J8 \nÆQ \nÈQ Ê\f8A@ Ì ÎÐÒÎÎÎÎÎÎÎÎÎÎÎÎÎ Î!\n\"\f„]ãä\n\"ˆå!ƒiæ!ˆŠç !‰qˆèp!ˆ)éê+\"ˆ‰ƒ[Á@@+\"J‰„¡ì@\"‚J@A í.!ˆï@@!ˆÀÁð \"J8‰ƒÏñ8ƒÏñ›Î ˆƒæAA òU?…äò B ˆƒöó@!GôVƒJõÎ!ˆ6÷=ƒJø9!‰:=ƒÎ;ƒG;@@ Vƒ>üñ;@@=ž8ƒ:þ9\"‚<9#ˆ;A‰;„ÿ ˆ@@¡ˆA‰„†qˆ@ ˆAp!ˆBC!qˆèp!ˆD ˆEF!G±ˆH!ˆAp!ˆí.!ˆIJÎ\".‡" [2 intern-soft group gnus-newsrc-hashtb info nnkiboze-directory ".newsrc" newsrc-file ".nov" nov-file 4 regexp t gnus-expert-user nil gnus-large-newsgroup never version-control nnkiboze-score-file gnus-score-find-score-files-function gnus-select-group-hook gnus-summary-prepare-hook gnus-thread-sort-functions gnus-show-threads gnus-visual method nnkiboze-newsrc nov-buffer gname newsrc active ginfo lowest glevel nnkiboze-current-score-group error "No such group: %s" file-exists-p load find-file-noselect buffer-disable-undo mapatoms #[(group) "À  !‰\"…NÅ\f\"?…N J@§…NÈV„:ÉÊ\f \"J8A@‰\f…N\fY…NÀÍ\f\"?…N\f J@SBB‰‡" [string-match 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-group-group-name 3 1 gnus-list-of-unread-articles 0 gnus-group-select-group 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 gnus-group-prefixed-name gnus-summary-exit-no-update save-buffer kill-buffer get-buffer-create "*nnkiboze work*" erase-buffer "(setq nnkiboze-newsrc '" prin1-to-string ")\n" write-file gnus-group-list-groups 5] 7]) (defalias 'nnkiboze-enter-nov #[(buffer header group) "Šqˆdbˆ ÂHÃ\f!ÅÆ \nËyÌUƒ*Íp!TÎyˆ‚-ÎÏ!Ð ÎH†9ÑÐ ÒH†AÑÐ ÓH†IÑÐ ÔH†QÑÐ ÕH†YÑÐÏ ÖH†bÌ!ÐÏ ×H†lÌ!бˆ\nƒ}\nÑšƒŽØÙ Ú\fÛÏ ÌH!ܱ‚Ö ÂHܱˆÝÐÆÅ#ˆÝÐÆÅ#ˆÞߊƈ`)Å#…փɊ̔bˆ \fÛÏ ÌH!Ú±ˆÆ)ŠÌ”bˆ cˆ)‚¡-‡" [buffer header 8 gnus-group-real-prefix group t nil article first prefix xref -1 0 read 1 int-to-string " " "" 2 3 4 5 6 7 "Xref: " system-name " " ":" " \n" search-backward re-search-forward "[^ ]+:[0-9]+"] 17]) (defalias 'nnkiboze-nov-file-name #[nil "À !ÂÃ\f!ÅP!P‡" [file-name-as-directory nnkiboze-directory nnheader-translate-file-chars nnkiboze-prefixed-name nnkiboze-current-group ".nov"] 4]) (provide (quote nnkiboze))