;ELC ;;; compiled by larsi@ifi.uio.no on Fri Jun 28 20:34:52 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/nnvirtual.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 "`nnvirtual.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!!\"ȉF B ȇ" [require nntp nnheader gnus nnoo nnvirtual mapcar #[(p) "C" [p] 1] nil nnoo-definition-alist] 4) #@300 *If non-nil, always scan groups for unread articles when entering a group. If this variable is nil (which is the default) and you read articles in a component group after the virtual group has been activated, the read articles from the component group will show up when you enter the virtual group. (defvar nnvirtual-always-rescan nil (#$ . -613)) (nnoo-define (quote nnvirtual-always-rescan) nil) #@36 *Regexp to match component groups. (defvar nnvirtual-component-regexp nil (#$ . -1017)) (byte-code "\" B! B\"!& B\"!8 B\"!J\n B\"\"!" [nnoo-define nnvirtual-component-regexp nil "nnvirtual 1.0" nnvirtual-version current-load-list boundp nnvirtual-current-group nnvirtual-component-groups nnvirtual-mapping nnvirtual-status-string "" autoload gnus-cache-articles-in-group "gnus-cache" nnoo-define-basics-1 nnvirtual] 3) (defalias 'nnvirtual-retrieve-headers #[(articles &optional newsgroup server fetch-old) " !\nq \f@;ł!! \" ͉\f\f`\fA@A@5!\"5\"5!AA@C#5\nq UAA@C5= ebmR`\n!`|@p\"y!ܕb`)#`SfUu!l`SfUc\fAA@p\"cL\fAA@p\"c옄>`)#>ܔbc)$`SfULcyqdb\n!5@Az@@@A\"\"Ae\nq !)!.)" [nnvirtual-possibly-change-server server nntp-server-buffer erase-buffer articles headers nnheader-set-temp-buffer get-buffer-create " *virtual headers*" mapcar #[(g) "C" [g] 1] nnvirtual-component-groups system-name nil prefix result article cgroup unfetched vbuf nnvirtual-mapping gnus-check-server gnus-find-method-for-group t gnus-request-group gnus-group-real-prefix gnus-retrieve-headers buffer-size 0 nnvirtual-convert-headers read princ looking-at "[^ ]* [^ ]* [^ ]* [^ ]* [^ ]* [^ ]* [^ ]* " search-forward " " 32 -1 delete-char 1 9 "Xref: " " " ":" "" re-search-forward "[^ ]+:[0-9]+" insert-buffer-substring gnus-group-make-articles-read sort < nov kill-buffer] 8]) (nnoo-register-function (quote nnvirtual-retrieve-headers)) (defalias 'nnvirtual-request-article #[(article &optional group server buffer) " !Y\nY\n A@\f\n#X !- #X \"< #XQq\fAA@ \")X\fAA@ \"*" [nnvirtual-possibly-change-server server article nnvirtual-mapping amap cgroup nnheader-report nnvirtual "No such article: %s" gnus-check-group "Can't open server where %s exists" gnus-request-group t "Can't open component group %s" buffer gnus-request-article-this-buffer gnus-request-article] 5]) (nnoo-register-function (quote nnvirtual-request-article)) (defalias 'nnvirtual-open-server #[(server &optional defs) " \f\nD B\n # Ƈ A\n  A @@\nE\n\"#\n\n \"B#* P\n#Ƈ" [nnvirtual-component-regexp defs server nnoo-change-server nnvirtual nnvirtual-component-groups t nil nnvirtual-mapping gnus-newsrc-alist group newsrc string-match delete nnheader-report "No component groups: %s"] 4]) (nnoo-register-function (quote nnvirtual-open-server)) (defalias 'nnvirtual-request-group #[(group &optional server dont-check) " ! \f\" #\n  \fG   $)" [nnvirtual-possibly-change-server server delete nnvirtual-current-group nnvirtual-component-groups nil nnheader-report nnvirtual "No component groups in %s" group dont-check nnvirtual-create-mapping nnvirtual-mapping len nnheader-insert "211 %d 1 %d %s\n"] 6]) (nnoo-register-function (quote nnvirtual-request-group)) (defalias 'nnvirtual-request-type #[(group &optional article) "\n A@ @\")" [article unknown nnvirtual-mapping mart gnus-request-type] 4]) (nnoo-register-function (quote nnvirtual-request-type)) (defalias 'nnvirtual-request-update-mark #[(group article mark) " A@ \nAA@ #\n& U& !&+ " [article nnvirtual-mapping nart cgroup gnus-request-update-mark mark nmark gnus-group-auto-expirable-p gnus-expirable-mark] 5]) (nnoo-register-function (quote nnvirtual-request-update-mark)) (defalias 'nnvirtual-close-group #[(group &optional server) " !\f ć" [nnvirtual-possibly-change-server server nnvirtual-update-reads nnvirtual-update-marked t] 2]) (nnoo-register-function (quote nnvirtual-close-group)) (defalias 'nnvirtual-request-list #[(&optional server) "\"" [nnheader-report nnvirtual "LIST is not implemented."] 3]) (nnoo-register-function (quote nnvirtual-request-list)) (defalias 'nnvirtual-request-newgroups #[(date &optional server) "\"" [nnheader-report nnvirtual "NEWGROUPS is not supported."] 3]) (nnoo-register-function (quote nnvirtual-request-newgroups)) (defalias 'nnvirtual-request-list-newsgroups #[(&optional server) "\"" [nnheader-report nnvirtual "LIST NEWSGROUPS is not implemented."] 3]) (nnoo-register-function (quote nnvirtual-request-list-newsgroups)) (defalias 'nnvirtual-request-update-info #[(group info &optional server) " !\n \"Ɖ \n \f\f_\fA\f@87@\nB\n8   A @ @ABA   } @ A @A\"!cAA\n!  @A A    A A@A A  AA  AA C.Ӈ" [nnvirtual-possibly-change-server server nnvirtual-mapping mapcar #[(m) "AC" [m] 1] gnus-article-mark-lists nil op m mr reads marks map 3 4 gnus-compress-sequence sort < info t] 7]) (nnoo-register-function (quote nnvirtual-request-update-info)) (defalias 'nnvirtual-catchup-group #[(group &optional server all) " ! ! \" q\f\"+" [nnvirtual-possibly-change-server server copy-sequence nnvirtual-component-groups t gnus-expert-user gnus-group-marked mapcar #[(g) " \n\"J@? !" [intern-soft g gnus-newsrc-hashtb gnus-activate-group] 3] gnus-group-buffer gnus-group-catchup-current nil all] 3]) (nnoo-register-function (quote nnvirtual-catchup-group)) #@66 Return the real group and article for virtual GROUP and ARTICLE. (defalias 'nnvirtual-find-group-art #[(group article) " \nA@\nAA@B)" [article nnvirtual-mapping mart] 3 (#$ . 6497)]) (nnoo-register-function (quote nnvirtual-find-group-art)) #@40 Convert HEAD headers into NOV headers. (defalias 'nnvirtual-convert-headers #[nil "q\"\f! A@)!," [nntp-server-buffer make-vector 100 0 dependencies gnus-get-newsgroup-headers headers nil header erase-buffer nnheader-insert-nov] 3 (#$ . 6752)]) (defalias 'nnvirtual-possibly-change-server #[(server) "?\"!" [server nnoo-current-server-p nnvirtual nnvirtual-open-server] 3]) #@60 Copy marks from the virtual group to the component groups. (defalias 'nnvirtual-update-marked #[nil " \"J88Ɖ \n \f\fA\f@A\n\n A! \" ] A @A@\"AA@C:@@\n@A%A@@\"]." [gnus-article-mark-lists 3 2 intern-soft nnvirtual-current-group gnus-newsrc-hashtb nil cgroups mart list type marks mark-lists gnus-uncompress-range mapcar #[(g) "C" [g] 1] nnvirtual-component-groups assoc nnvirtual-mapping gnus-add-marked-articles t gnus-group-update-group] 6 (#$ . 7177)]) #@64 Copy (un)reads from the current group to the component groups. (defalias 'nnvirtual-update-reads #[nil "\n\" !2A@ A@\"8CI@@A@A\"2+" [mapcar #[(g) "C" [g] 1] nnvirtual-component-groups gnus-list-of-unread-articles nnvirtual-current-group nil m articles groups nnvirtual-mapping assoc 2 gnus-update-read-articles] 4 (#$ . 7723)]) #@58 Return the prefixed name of the current nnvirtual group. (defalias 'nnvirtual-current-group #[nil " P" ["nnvirtual:" nnvirtual-current-group] 2 (#$ . 8112)]) #@42 Return a list of mark types for ARTICLE. (defalias 'nnvirtual-marks #[(article marks) "\n \n@A>\n@@ B\nA )" [nil out marks article] 3 (#$ . 8278)]) (put (quote nnvirtual-marks) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@50 Create an article mapping for the current group. (defalias 'nnvirtual-create-mapping #[nil " \"\"\"A@@\nT&.\n" [nil div m marks list article unreads active sort apply nconc mapcar #[(g) " !K\nA\n@VK !  \"J88!\n 1 !B\nB\n\n@!\nAU@ЂB\nA\n!\"" [gnus-activate-group g active gnus-list-of-unread-articles unreads gnus-uncompress-marks 3 2 intern-soft gnus-newsrc-hashtb marks gnus-use-cache cache gnus-cache-articles-in-group float 0 1 div mapcar #[(n) " \n@Z_ \f>  :@A>1@@ B A +" [div n active g unreads t marks article nil out] 7] gnus-uncompress-range] 6] nnvirtual-component-groups #[(m1 m2) "@ @W" [m1 m2] 2] map 0 i nnvirtual-mapping] 6 (#$ . 8535)]) (provide (quote nnvirtual))