;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310!\210\302\311!\210\302\312!\210\313\236\2033\313\236A\314\315\316\"\240\210\202>\313\314\315\316\"\316\211FB\313	\236\204J\313\317D	B\316\207" [nnoo-definition-alist nnoo-state-alist require nntp nnheader gnus nnoo gnus-util gnus-start gnus-sum gnus-msg nnvirtual mapcar list nil "*internal-non-initialized-backend*"] 4)
#@348 If non-nil, always scan groups for unread articles when entering a group.
If this variable is nil 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.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnvirtual-always-rescan t (#$ . 499))
(nnoo-define 'nnvirtual-always-rescan nil)
#@107 Regexp to match component groups.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnvirtual-component-regexp nil (#$ . 942))
(nnoo-define 'nnvirtual-component-regexp nil)
#@114 Component group in this nnvirtual group.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnvirtual-component-groups nil (#$ . 1152))
(nnoo-define 'nnvirtual-component-groups nil)
(defconst nnvirtual-version "nnvirtual 1.1")
(defvar nnvirtual-current-group nil)
(nnoo-define 'nnvirtual-current-group nil)
#@287 Table of rules for mapping groups and articles to virtual article numbers.
These rules determine how to map between component group and article number
on the one hand, and virtual article number on the other hand.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnvirtual-mapping-table nil (#$ . 1495))
(nnoo-define 'nnvirtual-mapping-table nil)
#@204 Table of mapping offsets to be applied to article numbers in a group.
The table is indexed by component group number of the group.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnvirtual-mapping-offsets nil (#$ . 1880))
(nnoo-define 'nnvirtual-mapping-offsets nil)
#@115 Number of articles in this virtual group.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnvirtual-mapping-len 0 (#$ . 2186))
(nnoo-define 'nnvirtual-mapping-len nil)
#@202 Compressed sequence of read articles on the virtual group.
It is computed from the unread status of individual component groups.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnvirtual-mapping-reads nil (#$ . 2393))
(nnoo-define 'nnvirtual-mapping-reads nil)
#@181 Compressed marks alist for the virtual group.
It is computed from the marks of individual component groups.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnvirtual-mapping-marks nil (#$ . 2693))
(nnoo-define 'nnvirtual-mapping-marks nil)
#@130 t if the group info for this group is already installed.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnvirtual-info-installed nil (#$ . 2972))
(nnoo-define 'nnvirtual-info-installed nil)
(defvar nnvirtual-status-string "")
(byte-code "\300\301\302\"\210\303\304\305\"\210\306\307\310\"\210\311\307!\210\306\312\313\"\210\311\312!\210\306\314\315\"\210\311\314!\210\306\316\317\"\210\311\316!\207" [nnoo-define nnvirtual-status-string nil autoload gnus-cache-articles-in-group "gnus-cache" defalias nnvirtual-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nnvirtual] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nnvirtual-status-message #[256 "\300\301\"\207" [nnoo-status-message nnvirtual] 4 "\n\n(fn &optional SERVER)"] nnvirtual-close-server #[512 "\300\301\"\207" [nnoo-close-server nnvirtual] 5 "\n\n(fn &optional SERVER DEFS)"] nnvirtual-open-server #[513 "\300\301#\207" [nnoo-change-server nnvirtual] 6 "\n\n(fn SERVER &optional DEFS)"]] 3)
#@54 

(fn ARTICLES &optional NEWSGROUP SERVER FETCH-OLD)
(defalias 'nnvirtual-retrieve-headers #[1025 "\302!\205\355rq\210\303 \210@;\203\304\202\354\305\306\307!!\310!\311 \312\211\211\211\211\203\321@@\262@A\262\fA\262\203\303\313\314!\315\"\203\303\316\315\"\203\303\317!\211\262\203\303\315\320\f\312#\211\262)\203\303q\210
\304=\203w\321 \210eb\210m\204\270`\322!\262`|\210\323
\"\262\f\324\"\262\204\245\325 \210`\326y\210`|\210\202z\327\"\210\330	$\210\326y\210\202zq\210db\210\331!\210\203&\332
\"\210\202&rq\210\303 \210\331!\210\333\326ed#\210)\334\335	!\210\266\210)\207" [nntp-server-buffer gnus-use-cache nnvirtual-possibly-change-server erase-buffer headers nnheader-set-temp-buffer gnus-get-buffer-create " *virtual headers*" nnvirtual-partition-sequence system-name nil gnus-check-server gnus-find-method-for-group t gnus-request-group gnus-group-real-prefix gnus-retrieve-headers nnvirtual-convert-headers read delq nnvirtual-reverse-map-article beginning-of-line 1 princ nnvirtual-update-xref-header insert-buffer-substring gnus-group-make-articles-read sort-numeric-fields nov kill-buffer] 17 (#$ . 3987)])
(nnoo-register-function 'nnvirtual-retrieve-headers)
(defvar nnvirtual-last-accessed-component-group nil)
(nnoo-define 'nnvirtual-last-accessed-component-group nil)
#@46 

(fn ARTICLE &optional GROUP SERVER BUFFER)
(defalias 'nnvirtual-request-article #[1025 "\304!\205r;\203/\204\305\306\307\"\207\212\211\203\211q\210\310\311!\312\n\313\"\310\nA@$+\207\314!\211@
\204?\305\306\315#\207\316
!\204K\305\306\317#\207\320
\321\"\204X\305\306\322#\207\211\203krq\210\310\323A\"*\207\324A\"\266\202\207" [nnvirtual-last-accessed-component-group gnus-override-method gnus-command-method gnus-article-decode-hook nnvirtual-possibly-change-server nnheader-report nnvirtual "Don't know what server to request from" nil gnus-find-method-for-group gnus-get-function request-article nnvirtual-map-article "No such article: %s" gnus-check-group "Can't open server where %s exists" gnus-request-group t "Can't open component group %s" gnus-request-article-this-buffer gnus-request-article] 10 (#$ . 5349)])
(nnoo-register-function 'nnvirtual-request-article)
#@30 

(fn SERVER &optional DEFS)
(defalias 'nnvirtual-open-server #[513 "\306
\236\204
\306D
B\262
\307\310#\210\203\311\207\312\211\313\312\211\312\203KA\211\203J\211@\314\"\203C\211\315\"B
A\266\202\202.\210\204U\316\310\317#\207\311\207" [nnvirtual-component-groups nnvirtual-mapping-table nnvirtual-mapping-offsets nnvirtual-mapping-len nnvirtual-mapping-reads nnvirtual-mapping-marks nnvirtual-component-regexp nnoo-change-server nnvirtual t nil 0 string-match delete nnheader-report "No component groups: %s" nnvirtual-info-installed gnus-group-list] 9 (#$ . 6262)])
(nnoo-register-function 'nnvirtual-open-server)
#@47 

(fn GROUP &optional SERVER DONT-CHECK INFO)
(defalias 'nnvirtual-request-group #[1025 "\305!\210\306\301 \"\211\204\307\310\311\312#\207\313!\210\n\2030\314\301 \301 \315
\"A@\262
\"\210\316\317\f\211$\207" [nnvirtual-component-groups nnvirtual-current-group nnvirtual-always-rescan gnus-newsrc-hashtb nnvirtual-mapping-len nnvirtual-possibly-change-server delete nil nnheader-report nnvirtual "No component groups in %s" nnvirtual-create-mapping nnvirtual-request-update-info gethash nnheader-insert "211 %d 1 %d %s\n"] 11 (#$ . 6916)])
(nnoo-register-function 'nnvirtual-request-group)
#@32 

(fn GROUP &optional ARTICLE)
(defalias 'nnvirtual-request-type #[513 "\211\204\301\207\211\247\203\302
!\211\205\303
@A\"\207\303\304\"\207" [nnvirtual-last-accessed-component-group unknown nnvirtual-map-article gnus-request-type nil] 6 (#$ . 7527)])
(nnoo-register-function 'nnvirtual-request-type)
#@27 

(fn GROUP ARTICLE MARK)
(defalias 'nnvirtual-request-update-mark #[771 "\302!\211@
\203$>\203$\303A#U\203$\304
!\203$	\262\266\207" [gnus-auto-expirable-marks gnus-expirable-mark nnvirtual-map-article gnus-request-update-mark gnus-group-auto-expirable-p] 10 (#$ . 7843)])
(nnoo-register-function 'nnvirtual-request-update-mark)
#@31 

(fn GROUP &optional SERVER)
(defalias 'nnvirtual-close-group #[513 "\300
!\203\301\302 !\204\303\304\211\"\210\304\207" [nnvirtual-possibly-change-server gnus-ephemeral-group-p nnvirtual-current-group nnvirtual-update-read-and-marked t] 5 (#$ . 8193)])
(nnoo-register-function 'nnvirtual-close-group)
#@30 

(fn DATE &optional SERVER)
(defalias 'nnvirtual-request-newgroups #[513 "\300\301\302\"\207" [nnheader-report nnvirtual "NEWGROUPS is not supported."] 5 (#$ . 8506)])
(nnoo-register-function 'nnvirtual-request-newgroups)
#@25 

(fn &optional SERVER)
(defalias 'nnvirtual-request-list-newsgroups #[256 "\300\301\302\"\207" [nnheader-report nnvirtual "LIST NEWSGROUPS is not implemented."] 4 (#$ . 8735)])
(nnoo-register-function 'nnvirtual-request-list-newsgroups)
#@36 

(fn GROUP INFO &optional SERVER)
(defalias 'nnvirtual-request-update-info #[770 "\305
!\2051?\2051	
AA\240\210\306\233\203\"\306\233\f\240\210\202-\f\203-
AA\fC\241\210\307)\307\207" [nnvirtual-info-installed gnus-atomic-be-safe inhibit-quit nnvirtual-mapping-reads nnvirtual-mapping-marks nnvirtual-possibly-change-server 3 t] 5 (#$ . 8979)])
(nnoo-register-function 'nnvirtual-request-update-info)
#@35 

(fn GROUP &optional SERVER ALL)
(defalias 'nnvirtual-catchup-group #[769 "\304!\205'\305\306 !?\205'\307\310\211\"\210\311!\312\313\314\"\210rq\210\315\310\"+\207" [nnvirtual-component-groups gnus-expert-user gnus-group-marked gnus-group-buffer nnvirtual-possibly-change-server gnus-ephemeral-group-p nnvirtual-current-group nnvirtual-update-read-and-marked nil copy-sequence t mapc #[257 "\301
\"@\247?\205
\302
!\207" [gnus-newsrc-hashtb gethash gnus-activate-group] 4 "\n\n(fn G)"] gnus-group-catchup-current] 6 (#$ . 9398)])
(nnoo-register-function 'nnvirtual-catchup-group)
#@86 Return the real group and article for virtual GROUP and ARTICLE.

(fn GROUP ARTICLE)
(defalias 'nnvirtual-find-group-art #[514 "\300
!\207" [nnvirtual-map-article] 4 (#$ . 9996)])
(nnoo-register-function 'nnvirtual-find-group-art)
#@25 

(fn &optional SERVER)
(defalias 'nnvirtual-request-post #[256 "\204	\301\302\303\"\207\304@A\"@\305\306!!\207" [gnus-message-group-art nnheader-report nnvirtual "Can't post to an nnvirtual group" nnvirtual-find-group-art gnus-request-post gnus-find-method-for-group] 5 (#$ . 10233)])
(nnoo-register-function 'nnvirtual-request-post)
#@46 

(fn ARTICLES GROUP &optional SERVER FORCE)
(defalias 'nnvirtual-request-expire-articles #[1026 "\301!\210\302\303 \"\304\211\203(\211@\305\306\307\"\310\311!!\"\244\262
A\266\202\202\f\210\312\313\304\"\314\"\207" [nnvirtual-component-groups nnvirtual-possibly-change-server delete nnvirtual-current-group nil mapcar make-closure #[257 "\301\300\"\207" [V0 nnvirtual-reverse-map-article] 4 "\n\n(fn ARTICLE)"] gnus-uncompress-range gnus-group-expire-articles-1 sort delq <] 13 (#$ . 10579)])
(nnoo-register-function 'nnvirtual-request-expire-articles)
#@40 Convert HEAD headers into NOV headers.
(defalias 'nnvirtual-convert-headers #[0 "rq\210\301\302\303\"\304
!\305 \210\306\307\"\266\202)\207" [nntp-server-buffer make-hash-table :test equal gnus-get-newsgroup-headers erase-buffer mapc nnheader-insert-nov] 5 (#$ . 11151)])
#@303 Edit current NOV header to have xref to component group and correct prefix.
This function edits the current NOV header in current buffer so that it
has an xref to the component group, and also ensures any existing xref
lines have the correct component server prefix.

(fn GROUP ARTICLE PREFIX SYSNAME)
(defalias 'nnvirtual-update-xref-header #[1028 "\300 \210\301\302!\210\303\225b\210\304\305\306 \307#\204\305c\210`Sf\310=\203)\311u\210\312\313!\210\202\314
\315\316\261\210\317p\"\210\315c\210\214`\304\305\306 \320#\206G\306 }\210eb\210\321\322\323\320#\203Z\324\325\320\211#\210eb\210\321\326\327\330\"\203o\303\225\323O\202p!\331P\323\320#\203\324\325\320\211#\210m\204\240\315c\210
\325\230\204\240\321\332\323\320#\203\240\212\303\224b\210
c\210)\202\214)\323\210`Sf\333=\206\256\333c\207" [beginning-of-line looking-at "[^	]*	[^	]*	[^	]*	[^	]*	[^	]*	[^	]*	[^	]*	" 0 search-forward "	" point-at-eol move 32 -1 delete-char 1 "Xref: " " " ":" princ t re-search-forward "Xref: *[^\n:0-9 ]+ *" nil replace-match "" regexp-quote string-match "^[^:]+:" ":[0-9]+" "[^ ]+:[0-9]+" 9] 9 (#$ . 11432)])
#@15 

(fn SERVER)
(defalias 'nnvirtual-possibly-change-server #[257 "\211?\206 \301
\302!\203\303\304#\202
\232\266\202\206 \305
!\207" [nnoo-parent-backend nnvirtual nnoo-current-server format "%s+%s" nnvirtual-open-server] 8 (#$ . 12563)])
#@222 Copy marks from the virtual group to the component groups.
If READ-P is not nil, update the (un)read status of the components.
If UPDATE-P is not nil, call gnus-group-update-group on the components.

(fn READ-P UPDATE-P)
(defalias 'nnvirtual-update-read-and-marked #[514 "\205\306
\205\304\305\300 !!\306\307\310\311\300 \312
	\"A@\262
\313
8\262
\"\"\307\211\211\211\211\203=\211@\314
@A\"\210
A\266\202\202)\210)\211\203y\211@\211\312
	\"A@\262
\211\262\203r\3138\203r\313\233\211\315\3138\236\205o\315\3138\236C\240\266
A\266\202\202@\210\211\203\252\211@\211@\262\211A\262\211\203\242\211@\316
@A\307\317%\210
A\266\202\202\212\210
A\266\202\202{\210\205\304\211\205\302\211@\320
\317\"\210
A\266\202\202\260\262
\266\205\207" [nnvirtual-current-group gnus-newsrc-hashtb gnus-newsgroup-active nnvirtual-component-groups nnvirtual-partition-sequence gnus-list-of-unread-articles delq nil mapcar #[257 "\211@\300=?\205\211@\301A!B\207" [score nnvirtual-partition-sequence] 4 "\n\n(fn ML)"] gethash 3 gnus-update-read-articles score gnus-add-marked-articles t gnus-group-update-group] 17 (#$ . 12818)])
#@58 Return the prefixed name of the current nnvirtual group.
(defalias 'nnvirtual-current-group #[0 "\301P\207" [nnvirtual-current-group "nnvirtual:"] 2 (#$ . 13970)])
#@55 Merge many sorted lists of numbers.

(fn &rest LISTS)
(defalias 'nnvirtual-merge-sorted-lists #[128 "\211A\204\211@\207\300\301\302\"\303\"\207" [sort apply nconc <] 5 (#$ . 14141)])
#@183 Return the component group and article corresponding to virtual ARTICLE.
Value is a cons of the component group and article corresponding to the given
virtual ARTICLE.

(fn ARTICLE)
(defalias 'nnvirtual-map-article #[257 "\302\211\203@\303HV\203A\262\202\205H\304V\205H@\262\305HZS\262\306\307H\"\262
	
H@\307H\245\310H\\	HA\\B\207" [nnvirtual-mapping-table nnvirtual-mapping-offsets nil 3 0 4 mod 2 1] 8 (#$ . 14334)])
#@97 Return virtual article number corresponding to component GROUP and ARTICLE.

(fn GROUP ARTICLE)
(defalias 'nnvirtual-reverse-map-article #[514 "\211\247\205]\302\303	H@\230\204
T\262\202	HAZ\262\2034@\302HV\2034A\262\202 @\262
\211\205[\302V\205[

\304HW\205[\305
\306H\307HZ\304H_\307$\266\203\207" [nnvirtual-mapping-table nnvirtual-mapping-offsets 0 nil 2 + 4 1] 11 (#$ . 14787)])
#@256 Return list of virtual article numbers for all ARTICLES in GROUP.
The ARTICLES should be sorted, and can be a compressed sequence.
If any of the article numbers has no corresponding virtual article,
then it is left out of the result.

(fn GROUP ARTICLES)
(defalias 'nnvirtual-reverse-map-sequence #[514 "\211\243\247\203\n\211C\262
\300\211\211\211\211\211A\262\242\211\262\203N:\204)\262\262\2021@\262A\262X\203\301\"\211\262\203G\211B\262T\262\2021\237\207" [nil nnvirtual-reverse-map-article] 10 (#$ . 15208)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnvirtual-reverse-map-sequence speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@361 Return an association list of component article numbers.
These are indexed by elements of nnvirtual-component-groups, based on
the sequence ARTICLES of virtual article numbers.  ARTICLES should be
sorted, and can be a compressed sequence.  If any of the article
numbers has no corresponding component article, then it is left out of
the result.

(fn ARTICLES)
(defalias 'nnvirtual-partition-sequence #[257 "\211\243\247\203\n\211C\262
\301\302\"\303\211\211\211\211\211A\262\242\211\262\203\\:\204.\262\262\2026@\262A\262X\203\304!\211\262\203U\305@\"\262
\211AAB\241\210T\262\2026\306\307\"\210\207" [nnvirtual-component-groups mapcar list nil nnvirtual-map-article assoc mapc #[257 "\211
A\237\241\207" [] 3 "\n\n(fn X)"]] 10 (#$ . 15916)])
#@203 Build tables to map between component (group, article) to virtual article.
Generate the set of read messages and marks for the virtual group
based on the marks on the component groups.

(fn DONT-CHECK)
(defalias 'nnvirtual-create-mapping #[257 "\306C\306C\306C\306\307C\307C\307C\307C\307C\307C\307C\307C\307C\307\211\211\211\310\311\312&\"\210\242\f\313\242\314\"\240\210\315\316\311\317\"\242\"\237!\307\f\316\320\242\"\240\210\f\242\203\330
\242@\240\210\242\242Z\262\242\242\242_Z\262\321\242\242\242\242Z%B\240\210\240\210\f\316\311\322\n\"\242\"\240\210\f\242\203g\f\242@\306U\203g\f\211\242A\240\210\211\242S\240\210\202\270\323\324\316\325\242\"\"\240\210\316\311\326\"\f\"\240\210\307\242\211\203	
\211@\211A\203
\211
B
A\266\202\202\363\210
T\211\262	X\203f
\242\203f

\242@U\203-
\211\242A\240\210\202\n

\262

T\211\262	X\203F

\242@U\2031

S\262

U\203[

B\262\202\n
\211BB\262\202\n

	X\203\205

	U\203}

B\262\202\205

	BB\262
\237\307\211\207" [nnvirtual-component-groups nnvirtual-mapping-len nnvirtual-mapping-offsets nnvirtual-mapping-table gnus-article-mark-lists nnvirtual-mapping-marks 0 nil mapc make-closure #[257 "\307\300\203
\315\"\206\316!\240\210\310\307\242@\240\210\311\307\242A\240\210\307\242\205\235\311\242\310\242Y\205\235\311\242\317U?\205\235\304
\311\242\310\242ZT\311\242E\304\242B\240\210\313\320!\240\210\314
\315
\"A@\262
\321
8\262
\240\210\203k\314\322\323!B\314\242B\240\210\305
\313\242B\305\242B\240\210\306
\314\242B\306\242B\240\210\312\311\242\310\242ZT\240\210\301\211\242T\240\210\302\211\242\312\242\\\240\210\303\211\242\312\242]\240\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 gethash gnus-activate-group 0 gnus-list-of-unread-articles 3 cache gnus-cache-articles-in-group gnus-active-hashtb gnus-newsrc-hashtb gnus-use-cache] 6 "\n\n(fn G)"] sort #[514 "
A@
A@W\207" #1=[] 4 "\n\n(fn G1 G2)"] vconcat mapcar #[257 "\211@\3018\300\242ZB\207" [V0 2] 4 "\n\n(fn ENTRY)"] #[257 "\211A@\207" #1# 2 "\n\n(fn ENTRY)"] vector #[257 "\211\300\242Z\207" [V0] 3 "\n\n(fn X)"] apply nnvirtual-merge-sorted-lists #[257 "\211@
A\211\243\247\203\211C\262
\300\211\211\211\211\211A\262\242\211\262\203R:\204-\262\262\2025@\262A\262X\203\301\"\211\262\203K\211B\262T\262\2025\237\207" [nil nnvirtual-reverse-map-article] 11 "\n\n(fn X)"] #[257 "\211A\301\302\303\304\305\306\"\300\242\"\"!B\207" [V0 gnus-compress-sequence apply nnvirtual-merge-sorted-lists mapcar make-closure #[257 "\211@\300AA\236A\211\243\247\203\211C\262
\301\211\211\211\211\211A\262\242\211\262\203V:\2041\262\262\2029@\262A\262X\203\302\"\211\262\203O\211B\262T\262\2029\237\207" [V0 nil nnvirtual-reverse-map-article] 11 "\n\n(fn X)"]] 9 "\n\n(fn TYPE)"] nnvirtual-mapping-reads nnvirtual-info-installed] 34 (#$ . 16702)])
(provide 'nnvirtual)