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



(byte-code "\302\303!\210\302\304!\210\305\236\203\305\236A\306\307\310\"\240\210\202&\305\306\307\310\"\310\211FB\305	\236\2042\305\311D	B\312\313\314\"\210\315\313!\210\312\316\317\"\210\315\316!\210\312\320\321\"\210\315\320!\210\312\322\323\"\210\315\322!\210\324\325\326\327#\207" [nnoo-definition-alist nnoo-state-alist require gnus-art gnus-search nnselect mapcar list nil "*internal-non-initialized-backend*" defalias nnselect-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nnselect] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nnselect-status-message #[256 "\300\301\"\207" [nnoo-status-message nnselect] 4 "\n\n(fn &optional SERVER)"] nnselect-close-server #[512 "\300\301\"\207" [nnoo-close-server nnselect] 5 "\n\n(fn &optional SERVER DEFS)"] nnselect-open-server #[513 "\300\301#\207" [nnoo-change-server nnselect] 6 "\n\n(fn SERVER &optional DEFS)"] gnus-declare-backend "nnselect" post-mail virtual] 4)
#@109 Directory for the nnselect backend.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnselect-directory gnus-directory (#$ . 1037))
(nnoo-define 'nnselect-directory nil)
#@95 nnselect active file.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnselect-active-file (expand-file-name "nnselect-active" nnselect-directory) (#$ . 1244))
(nnoo-define 'nnselect-active-file nil)
#@107 nnselect groups description file.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnselect-groups-file (expand-file-name "nnselect-newsgroups" nnselect-directory) (#$ . 1483))
(nnoo-define 'nnselect-groups-file nil)
#@33 Compress ARTLIST.

(fn ARTLIST)
(defalias 'nnselect-compress-artlist #[257 "\300\301\302\"\211\203F\211@\211\242
\243\300\301\303\304#\211\2034\211@\211\242
\243
\305\306\307\"!BB\262\266
A\266\202\202\210
BB\262\266
A\266\202\202\210\207" [nil nnselect-categorize nnselect-artitem-group nnselect-artitem-rsv nnselect-artitem-number gnus-compress-sequence sort <] 16 (#$ . 1737)])
#@35 Uncompress ARTLIST.

(fn ARTLIST)
(defalias 'nnselect-uncompress-artlist #[257 "\300
!\203\207\301
\211\203:\211@\211\242
\243\211\242\211\242
\243\243\302\303\304\305\306#\307!#\f\"\262\266
A\266\202\202	\210\207" [vectorp nil vconcat cl-map vector make-closure #[257 "\302\300\301#\207" [V0 V1 vector] 5 "\n\n(fn ART)"] gnus-uncompress-sequence] 19 (#$ . 2141)])
(make-obsolete 'nnselect-group-server 'gnus-group-server "28.1")
#@16 

(fn ARTLIST)
(defalias 'nnselect-artlist-length #[257 "\211G\207" [] 2 (#$ . 2594)])
(byte-code "\300\301\302\303#\300\207" [function-put nnselect-artlist-length compiler-macro nnselect-artlist-length--inliner] 4)
#@29 

(fn INLINE--FORM ARTLIST)
(defalias 'nnselect-artlist-length--inliner #[514 "\3002\301
D0\207" [inline--just-use length] 4 (#$ . 2816)])
#@79 Return from ARTLIST the Nth artitem (counting starting at 1).

(fn ARTLIST N)
(defalias 'nnselect-artlist-article #[514 "\211\300V\205\n

S\234\207" [0] 4 (#$ . 2963)])
(byte-code "\300\301\302\303#\300\207" [function-put nnselect-artlist-article compiler-macro nnselect-artlist-article--inliner] 4)
#@31 

(fn INLINE--FORM ARTLIST N)
(defalias 'nnselect-artlist-article--inliner #[771 "\3002\301\302\303E\304\305DEE0\207" [inline--just-use when > 0 elt 1-] 9 (#$ . 3270)])
#@50 Return the group from the ARTITEM.

(fn ARTITEM)
(defalias 'nnselect-artitem-group #[257 "\211\300\234\207" [0] 3 (#$ . 3450)])
(byte-code "\300\301\302\303#\300\207" [function-put nnselect-artitem-group compiler-macro nnselect-artitem-group--inliner] 4)
#@29 

(fn INLINE--FORM ARTITEM)
(defalias 'nnselect-artitem-group--inliner #[514 "\3002	\301
\302E0\207" [inline--just-use elt 0] 5 (#$ . 3711)])
#@51 Return the number from the ARTITEM.

(fn ARTITEM)
(defalias 'nnselect-artitem-number #[257 "\211\300\234\207" [1] 3 (#$ . 3860)])
(byte-code "\300\301\302\303#\300\207" [function-put nnselect-artitem-number compiler-macro nnselect-artitem-number--inliner] 4)
#@29 

(fn INLINE--FORM ARTITEM)
(defalias 'nnselect-artitem-number--inliner #[514 "\3002	\301
\302E0\207" [inline--just-use elt 1] 5 (#$ . 4125)])
#@80 Return the Retrieval Status Value (RSV, score) from the ARTITEM.

(fn ARTITEM)
(defalias 'nnselect-artitem-rsv #[257 "\211\300\234\207" [2] 3 (#$ . 4275)])
(byte-code "\300\301\302\303#\300\207" [function-put nnselect-artitem-rsv compiler-macro nnselect-artitem-rsv--inliner] 4)
#@29 

(fn INLINE--FORM ARTITEM)
(defalias 'nnselect-artitem-rsv--inliner #[514 "\3002	\301
\302E0\207" [inline--just-use elt 2] 5 (#$ . 4560)])
#@45 Return the group for ARTICLE.

(fn ARTICLE)
(defalias 'nnselect-article-group #[257 "\211\301V\205\n
S\234\301\234\207" [gnus-newsgroup-selection 0] 3 (#$ . 4707)])
(byte-code "\300\301\302\303#\300\207" [function-put nnselect-article-group compiler-macro nnselect-article-group--inliner] 4)
#@29 

(fn INLINE--FORM ARTICLE)
(defalias 'nnselect-article-group--inliner #[514 "\3002\301\302\303ED0\207" [inline--just-use nnselect-artitem-group nnselect-artlist-article gnus-newsgroup-selection] 6 (#$ . 5007)])
#@46 Return the number for ARTICLE.

(fn ARTICLE)
(defalias 'nnselect-article-number #[257 "\211\301V\205\n
S\234\302\234\207" [gnus-newsgroup-selection 0 1] 3 (#$ . 5228)])
(byte-code "\300\301\302\303#\300\207" [function-put nnselect-article-number compiler-macro nnselect-article-number--inliner] 4)
#@29 

(fn INLINE--FORM ARTICLE)
(defalias 'nnselect-article-number--inliner #[514 "\3002\301\302\303ED0\207" [inline--just-use nnselect-artitem-number nnselect-artlist-article gnus-newsgroup-selection] 6 (#$ . 5534)])
#@43 Return the rsv for ARTICLE.

(fn ARTICLE)
(defalias 'nnselect-article-rsv #[257 "\211\301V\205\n
S\234\302\234\207" [gnus-newsgroup-selection 0 2] 3 (#$ . 5757)])
(byte-code "\300\301\302\303#\300\207" [function-put nnselect-article-rsv compiler-macro nnselect-article-rsv--inliner] 4)
#@29 

(fn INLINE--FORM ARTICLE)
(defalias 'nnselect-article-rsv--inliner #[514 "\3002\301\302\303ED0\207" [inline--just-use nnselect-artitem-rsv nnselect-artlist-article gnus-newsgroup-selection] 6 (#$ . 6051)])
#@69 Return the pair `(nnselect id . real id)' of ARTICLE.

(fn ARTICLE)
(defalias 'nnselect-article-id #[257 "\211
\301V\205S\234\302\234B\207" [gnus-newsgroup-selection 0 1] 4 (#$ . 6268)])
(byte-code "\300\301\302\303#\300\207" [function-put nnselect-article-id compiler-macro nnselect-article-id--inliner] 4)
#@29 

(fn INLINE--FORM ARTICLE)
(defalias 'nnselect-article-id--inliner #[514 "\3002\301
\302DE0\207" [inline--just-use cons nnselect-article-number] 6 (#$ . 6586)])
#@347 Sorts a sequence into categories.
Returns a list of the form
`((key1 (element11 element12)) (key2 (element21 element22))'.
The category key for a member of the sequence is obtained
as `(keyfunc member)' and the corresponding element is just
`member' (or `(valuefunc member)' if `valuefunc' is non-nil).

(fn SEQUENCE KEYFUNC &optional VALUEFUNC)
(defalias 'nnselect-categorize #[770 "\211\206\300\301C\205\302\303\304$\305!\"\210\211\242\207" [identity nil mapc make-closure #[257 "\300
!\301!\303\302\242\"\211\203\211AB\241\207\302D\302\242B\240\207" [V0 V1 V2 assoc] 7 "\n\n(fn MEMBER)"] reverse] 11 (#$ . 6758)])
(byte-code "\300\301\302\303#\300\207" [function-put nnselect-categorize compiler-macro nnselect-categorize--inliner] 4)
#@58 

(fn INLINE--FORM SEQUENCE KEYFUNC &optional VALUEFUNC)
(defalias 'nnselect-categorize--inliner #[1027 "\3002\261\301!\203\202\302\303!\301!\203\202\302\304!\301!\203(\202+\302\305!\306\307\310\311\312DED\313D\314\315D\316\317\320C\321\322\323\320ED\324\323\307\320ED\325\326\322\313EDE\327\325\330\324\331\325DE\330\332\322\324E\313EFEE\333	DE\313FE
=\203z\211\266\202\202\204\334DC\"\266\202
=\203\220\211\266\202\202\232\334DC\"\266\202
=\203\246\211\266\202\202\260\334DC\"\266\2020\207" [inline--just-use macroexp-copyable-p make-symbol "sequence" "keyfunc" "valuefunc" let valuefunc or quote identity result unless null mapc lambda member let* key funcall value kr assoc if push cdr list reverse macroexp-let*] 23 (#$ . 7521)])
#@17 

(fn ARTICLES)
(defalias 'ids-by-group #[257 "\300\301C\205\302\303\304#\305!\"\210\211\242\207" [nnselect-article-id nil mapc make-closure #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] reverse] 8 (#$ . 8306)])
(byte-code "\300\301\302\303#\300\207" [function-put ids-by-group compiler-macro ids-by-group--inliner] 4)
#@30 

(fn INLINE--FORM ARTICLES)
(defalias 'ids-by-group--inliner #[514 "\3002\301
\302\303D\302\304DF0\207" [inline--just-use nnselect-categorize function nnselect-article-group nnselect-article-id] 7 (#$ . 8765)])
#@32 

(fn ARTICLES &optional TYPE)
(defalias 'numbers-by-group #[513 "\211\300\267\202<\301!\302\303C\205\304\305\306#\307!\"\210\211\242\207\310\311\211\206%\312\303C\205;\304\305\313$\307!\"\210\211\242\207\302\303C\205Q\304\305\314#\307!\"\210\211\242\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (range 6 tuple 30)) gnus-uncompress-range nnselect-article-number nil mapc make-closure #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] reverse #[257 "\211@\301V\205\f
@S\234\301\234\207" [gnus-newsgroup-selection 0] 3 "\n\n(fn ELEM)"] #[257 "\211@\301V\205\f
@S\234\302\234
AB\207" [gnus-newsgroup-selection 0 1] 3 "\n\n(fn ELEM)"] identity #[257 "\300
!\301!\303\302\242\"\211\203\211AB\241\207\302D\302\242B\240\207" [V0 V1 V2 assoc] 7 "\n\n(fn MEMBER)"] #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"]] 12 (#$ . 8985)])
(byte-code "\300\301\302\303#\300\207" [function-put numbers-by-group compiler-macro numbers-by-group--inliner] 4)
#@45 

(fn INLINE--FORM ARTICLES &optional TYPE)
(defalias 'numbers-by-group--inliner #[770 "\3002F\301\302\303\304DE\305\306D\307\310D\307\311DFD\302\303\312DE\305\313\314C\310\315\314DDE\313\314C\316\311\315\314DD\317\314DEEFD\320\305\307\310D\307\311DFDF0\207" [inline--just-use cond eq quote range nnselect-categorize gnus-uncompress-range function nnselect-article-group nnselect-article-number tuple lambda elem car cons cdr t] 15 (#$ . 10259)])
#@60 Ensures that the GROUP has an nnselect prefix.

(fn GROUP)
(defalias 'nnselect-add-prefix '(macro . #[257 "\300\301D\302BB\207" [gnus-group-prefixed-name gnus-group-short-name ('(nnselect "nnselect"))] 4 (#$ . 10719)]))
#@54 Retrieve the list of articles for GROUP.

(fn GROUP)
(defalias 'nnselect-get-artlist '(macro . #[257 "\300\301D\302\303\304BBDE\207" [when gnus-nnselect-group-p nnselect-uncompress-artlist gnus-group-get-parameter ('nnselect-artlist t)] 7 (#$ . 10946)]))
#@51 Add NOVITEM to the list of headers.

(fn NOVITEM)
(defalias 'nnselect-add-novitem '(macro . #[257 "\300\301D\302B\303BB\207" [let* novitem ((artno (and novitem (mail-header-number novitem))) (art (car-safe (rassq artno artids)))) ((when art (setf (mail-header-number novitem) art) (push novitem headers)))] 4 (#$ . 11209)]))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\302#\210\311\211\2030\211@\307
N\203)\310
N\204)\312\310\307N#\210
A\266\202\202\210\313\307\310\314#\210\315\310\316\317\320DD\321\322\314\323\324&\207" [custom-declare-group nnselect nil "Virtual groups in Gnus with arbitrary selection methods." :group gnus defvaralias nnir-retrieve-headers-override-function nnselect-retrieve-headers-override-function (saved-value saved-variable-comment) put make-obsolete-variable "28.1" custom-declare-variable funcall function #[0 "\300\207" [nil] 1 ""] "A function that retrieves article headers for ARTICLES from GROUP.\nThe retrieved headers should populate the `nntp-server-buffer'.\nReturns either the retrieved header format 'nov or 'headers.\n\nIf this variable is nil, or if the provided function returns nil,\n  `gnus-retrieve-headers' will be called instead." :version :type (repeat function)] 8)
#@37 

(fn SERVER &optional DEFINITIONS)
(defalias 'nnselect-open-server #[513 "
\211\203\211<\203\211\206)
\306
\"A\206)
\211\307\232\203 	\206
\306
\n\"A\206
\306
\"A\206
\f\211\203M
\310\311@@@@@A@#\232\204M\211A\262
\2021\211@@\262
\206

\211\203p
\310\311@@@A@#\232\204p\211A\262
\202V\211@\262
\206
A\312\211\203
\211A\262\242\313
8\262
\262
;\204|\312\314C\3152
\211
\242\206\243	\240\210\204\261\316\317\320\"\"\210\nD\211\203\311\211@\316\317\321\"\"\210
A\266\202\202\264\210\211\242A@\322\235\203\334\310\323\242@\"\202\346\310\311\242@\242A@#\211\242B\204
\211\235\204
\306
@\"\204
\211B
\266\2020\266\204\232\203|
\262
\312\262\202|\266\202\211\203&
\306\"\204&


BB\211\262
\262
@\2060
\324\325
#\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" nnselect nnoo-change-server gnus-newsrc-alist] 17 (#$ . 12451)])
(nnoo-register-function 'nnselect-open-server)
#@25 

(fn &optional SERVER)
(defalias 'nnselect-server-opened #[256 "\300\207" [t] 2 (#$ . 13832)])
(nnoo-register-function 'nnselect-server-opened)
#@47 

(fn GROUP &optional SERVER DONT-CHECK INFO)
(defalias 'nnselect-request-group #[1025 "\303\304!\305\"\306
!\205\307\310\311\312#!\313
\204;\314\311\315\316\310\317\312#!\211\262!#\210\320\2069\321
\"A@\262
\"\210
G\211\262\322U\203`\323\324\325\"\210\326!\203Y\327!\210\330\324	\"\331\332!\210\202nr\nq\210\331\333\334%\210)
\207" [gnus-newsrc-hashtb gnus-ephemeral-servers nntp-server-buffer gnus-group-prefixed-name gnus-group-short-name (nnselect "nnselect") gnus-nnselect-group-p nnselect-uncompress-artlist gnus-group-get-parameter nnselect-artlist t nil gnus-group-set-parameter nnselect-compress-artlist nnselect-run nnselect-specs nnselect-request-update-info gethash 0 nnheader-report nnselect "Selection produced empty results." gnus-ephemeral-group-p gnus-kill-ephemeral-group assq-delete-all nnheader-insert "" "211 %d %d %d %s\n" 1] 16 (#$ . 13983)])
(nnoo-register-function 'nnselect-request-group)
#@50 

(fn ARTICLES GROUP &optional SERVER FETCH-OLD)
(defalias 'nnselect-retrieve-headers #[1026 "\306\307!\310\"r\311
!q\210\206\312
!\205\313\314\315\316#!\316\317\320C\2055\321\322\323#\324\n!\"\210\211\242\266\202\320r\nq\210
\211\2030
\211@\211\242
\243\325\326\327\"\330\"\331!\332\333\316#\242\206^\n
\334 \210\f\203o\f\"\206u\335#\211\211\336\267\202\350eb\210m\204%
\337 \211\205\215\211\340H\341
\"\242\211\203\242\340I\210\fB\262\f\266\342y\210\202\200\210\202&
\343\344!\210)*eb\210m\204\343\345 \211\205\306\211\340H\341
\"\242\211\203\333\340I\210\fB\262\f\266\342y\210\202\271)\210\202&
\211<\203

\211\203
\211@\211\205\373\211\340H\341
	\"\242\211\203
\340I\210
B\262
\266
A\266\202\202\356\266\202&
\346\347
#\210\210)\266
A\266\202\202?\210\325
\350\"\211\262*\266\203)\207" [gnus-newsgroup-selection gnus-inhibit-demon nntp-server-buffer gnus-override-method nnselect-retrieve-headers-override-function gnus-headers-retrieved-by gnus-group-prefixed-name gnus-group-short-name (nnselect "nnselect") gnus-summary-buffer-name gnus-nnselect-group-p nnselect-uncompress-artlist gnus-group-get-parameter nnselect-artlist t nnselect-article-id nil mapc make-closure #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] reverse sort mapcar cdr < gnus-find-method-for-group gnus-group-find-parameter gnus-fetch-old-headers erase-buffer gnus-retrieve-headers #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nov 125 headers 174)) nnheader-parse-nov 0 rassq 1 gnus-run-hooks gnus-parse-headers-hook nnheader-parse-head error "Unknown header type %s while requesting articles                     of group %s" #[514 "
\300H
\300HW\207" [0] 5 "\n\n(fn X Y)"] gnus-extra-headers nnmail-extra-headers] 23 (#$ . 14929)])
(nnoo-register-function 'nnselect-retrieve-headers)
#@49 

(fn ARTICLE &optional GROUP SERVER TO-BUFFER)
(defalias 'nnselect-request-article #[1025 "\306\211C\306\211\247\203:r	q\210\nG\307U\2046\307V\205#\nS\234\307\234\307V\2051\nS\234\310\234B\262)\202\276
\211\203H\211<\203H\211\206g
\311
\"A\206g
\211\312\232\203Z\f\206S
\311

\"A\206S
\311
&\"A\206S
'\211\203\211
\313\314@@@@@A@#\232\204\211\211A\262
\202m\211@@\262
\206S
(\211\203\255
\313\314@@@A@#\232\204\255\211A\262
\202\223\211@\262
\206S
)A\306\211\203Q
\211A\262\242\315
8\262
\262
;\204\271\306\316C\3172B
\211
\242\206\340\f\240\210\204\356\320\321\322\"\"\210
&D\211\203
\211@\320\321\323\"\"\210
A\266\202\202\362\210\211\242A@\324\235\203
\313\325\242@\"\202$
\313\314\242@\242A@#\211\242B\204>
\211\235\204>
\311
@\"\204>
\211B
\266\2020\266\204\232\203\271
\262
\306\262\202\271\266\202\211\203d
\311\"\204d


BB\211\262
\262
@\326=\203\213
r	q\210\327!\211\203\206
\320\321\330\"\331!\"\210\210)\202\221
CC\240\210\332\333\334\335\nBCB\336\337B\340\316BEB\341\242BD!\262
\211G\307U\204\276
\211\307\234\307\234
\307\234\310\234B\262
A\247\205\352
\342\343A@#\210\203\342
rq\210\306*\344A@\"\210*\202\351
\345A@\"\210
)\207" [gnus-override-method gnus-summary-buffer gnus-newsgroup-selection gnus-server-method-cache gnus-select-method gnus-server-alist nil 0 1 assoc "native" format "%s:%s" 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil #1="") "%s" nnselect gnus-id-to-thread #[257 "\211\205\237\211\306V\205\237\300\307\306V\205	S\234\306\234!\310\211C\3112\211\211
\242\206(\n\240\210\2046\312\313\314\"\"\210\f
D\211\203N\211@\312\313\315\"\"\210
A\266\202\2029\210\211\242A@\316\235\203a\317\320\242@\"\202k\317\321\242@\242A@#\211\242B\204\205\211\235\204\205\322
@\"\204\205\211B
\266\2020\266\204C\211\300\242\235\203\230\300\242\202\234\211\300\242B\262
\240\207" [V0 gnus-newsgroup-selection gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist 0 gnus-find-method-for-group nil server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil #1#) format "%s" "%s:%s" assoc] 12 "\n\n(fn X)"] gnus-articles-in-thread gnus-search-run-query search-query-spec query id criteria #1# shortcut search-group-spec message "Requesting article %d from group %s" gnus-request-article-this-buffer gnus-request-article gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-article-decode-hook] 23 (#$ . 16938)])
(nnoo-register-function 'nnselect-request-article)
#@76 

(fn ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST INTERNAL-MOVE-GROUP)
(defalias 'nnselect-request-move-article #[1540 "\301V\205S\234\301\234\301V\205S\234\302\234A@\303
!\303!\304
\"\305\3061X\211;\203;\303
!@\202<\211\307
!\204F\310
!\210\311\312\313\314#!!\262
0\266\202\202[\266\315\204d\316\317\"\210\320A@\f\f\205\214	\205\214\321\322\"\203\212	\301\225\315O\202\214	&\207" [gnus-newsgroup-selection 0 1 gnus-find-method-for-group gnus-server-equal request-move-article (error) featurep require fboundp intern format "%s-%s" nil error "The group %s does not support article moving" gnus-request-move-article string-match "^[^:]+:"] 21 (#$ . 20015)])
(nnoo-register-function 'nnselect-request-move-article)
#@49 

(fn ARTICLE GROUP BUFFER &optional NO-ENCODE)
(defalias 'nnselect-request-replace-article #[1027 "rq\210\302V\205	S\234)\303
!\210\211G
\302H\304H\305H\306\3071M\211;\2030\310
!@\2021\211\311
!\204;\312
!\210\313\314\315\316#!!\262
0\266\202\202P\266\317\204X\320\321\"\210\322		$rq\210\323\324#\324#	\325\326\327\304&)\207" [gnus-summary-buffer gnus-newsgroup-selection 0 vectorp 1 2 request-replace-article (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil user-error "The group %s does not support article editing" gnus-request-replace-article cl-nsubstitute vector :test equal :count] 18 (#$ . 20786)])
(nnoo-register-function 'nnselect-request-replace-article)
#@46 

(fn ARTICLES GROUP &optional SERVER FORCE)
(defalias 'nnselect-request-expire-articles #[1026 "\211\203\235\301\302\301C\205\303\304\305#\306	!\"\210\211\242\266\202\211\203\224\211@\211\242
\243\211\307\310\311\"\312\"\313\3141^\211;\203A\315
!@\202B\211\316
!\204L\317
!\210\320\321\322\323#!!\262
0\266\202\202a\266\301\204i\324\325\"\210\326\315!!\204v\324\327\"\210\310\304\330\"\331\332\f#)\"B\262\266
A\266\202\202\210\307\333\301\"\312\"\207\207" [nnimap-expunge nil nnselect-article-id mapc make-closure #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] reverse sort mapcar cdr < request-expire-articles (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" error "Group %s does not support article expiration" gnus-check-server "Couldn't open server for group %s" #[257 "\301
\300\"@\207" [V0 rassq] 4 "\n\n(fn ART)"] immediately gnus-request-expire-articles delq] 20 (#$ . 21530)])
(nnoo-register-function 'nnselect-request-expire-articles)
(defalias 'nnselect-warp-to-article #[0 "\302`\303\"\211\205\304
!\266\302`\305\"\206\306 \307V\2034\302`\303\"\211\205&\304
!\266\302`\305\"\2067\306 \2027\310\311!\211\307V\205A
S\234\307\234
\307V\205MS\234\312\234\313	!\210\314\315\316\211\314\211C&\207" [gnus-newsgroup-selection gnus-newsgroup-name get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 0 error "Can't warp to a pseudo-article" 1 gnus-ephemeral-group-p nil gnus-summary-read-group-1 t] 11])
(nnoo-register-function 'nnselect-warp-to-article)
#@27 

(fn GROUP ARTICLE MARK)
(defalias 'nnselect-request-update-mark #[771 "
\303V\205\nS\234\303\234\303V\205S\234\304\234\305#
\2036	>\2036
U\2036\306!\2036\n\262
\207" [gnus-newsgroup-selection gnus-auto-expirable-marks gnus-expirable-mark 0 1 gnus-request-update-mark gnus-group-auto-expirable-p] 9 (#$ . 23258)])
(nnoo-register-function 'nnselect-request-update-mark)
#@39 

(fn GROUP ACTIONS &optional SERVER)
(defalias 'nnselect-request-set-mark #[770 "\300\301\302\303\"\304\305C\205\300\306\307#\310!\"\210\211\242\266\202\262
\"\207" [mapc #[257 "\300
@A\"\207" [gnus-request-set-mark] 4 "\n\n(fn REQUEST)"] cl-mapcan #[257 "\211
G\300U\203
\211A\262\242\202\301\302\303GD\"
\211A\262\242\242\304\305\306#\307!\310\311C\205=\312\305\313#\314!\"\210\211\242\266\202\262
\"\207" [3 signal wrong-number-of-arguments (range action marks) mapcar make-closure #[257 "\211@\302\303A\304\"!\300\301F\207" [V0 V1 gnus-compress-sequence sort <] 6 "\n\n(fn ARTGROUP)"] gnus-uncompress-range nnselect-article-number nil mapc #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] reverse] 15 "\n\n(fn ACT)"] cdr nil make-closure #[257 "\211@\300!\302\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 assoc] 7 "\n\n(fn MEMBER)"] reverse] 13 (#$ . 23652)])
(nnoo-register-function 'nnselect-request-set-mark)
#@36 

(fn GROUP INFO &optional SERVER)
(defalias 'nnselect-request-update-info #[770 "\304\305!\306\"\206\307
!\205\310\311\312\313#!\314\314\211\211\203%\315\316\"\210\316\233\211\240\266AA\211\314\240\266\317\320G\"\321\314C\205N\322\323\324#\325!\"\210\211\242\266\202\262
\211\203

\211@\211\242
\243\314\326
\327\330\331$\332
\n\"A@\262
\316
8\333\334\332\"\3358\"!AA\211\336\3358\337\314\340\323\341	\"\"\"\"\240\266
\211\203\366\211@\211\242
\243\211C\342!\314\337\314\343=\203\273\340\323\344\"\"\202\314\345\242!\240\210\340\323\346\"\"\"\211\262\203\355\347\"\211\203\344\211\244\266\202\357BB\262\210\266
A\266\202\202\227\210)\266
A\266\202\202R\210\211\211\203?
\211@\211\242
\243\342!\211\343=\2046
\236\350!
\203)


\241\266\2028

B\211\262B\262\266\266
A\266\202\202
\210\351
\236\204L
\351C
B\262

\314\211\203X
\315\316\"\210\316\233\211\240\266\352\320GB#)\207" [gnus-newsgroup-selection gnus-newsgroup-active gnus-newsrc-hashtb gnus-active-hashtb gnus-group-prefixed-name gnus-group-short-name (nnselect "nnselect") gnus-nnselect-group-p nnselect-uncompress-artlist gnus-group-get-parameter nnselect-artlist t nil gnus-info--grow-entry 3 number-sequence 1 nnselect-article-id mapc make-closure #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] reverse cl-sort < :key car gethash gnus-uncompress-sequence gnus-range-difference 2 gnus-add-to-range delq mapcar #[257 "\211A\300>?\205\n\211@\207" [V0] 3 "\n\n(fn ART)"] gnus-article-mark-to-type tuple #[257 "\301
A\300\242\236\211\262\205
@
AB\207" [V0 nil] 4 "\n\n(fn ID)"] gnus-uncompress-range #[257 "\211A\300\242>\205\n\211@\207" [V0] 3 "\n\n(fn ID)"] alist-get gnus-compress-sequence unexist puthash] 26 (#$ . 24750)])
(nnoo-register-function 'nnselect-request-update-info)
#@38 

(fn HEADER &optional GROUP SERVER)
(defalias 'nnselect-request-thread #[769 "rq\210\306\307!\310\"\311H\311V\203\311H\202]\312`\313\"\211\205#\314
!\266\312`\315\"\206.\316 \311V\203L\312`\313\"\211\205>\314
!\266\312`\315\"\206]\316 \202]\317\320H!\211\205[\321\322\323!\"\262
\311V\205\270	\311H\311V\203q\311H\202\266\312`\313\"\211\205|\314
!\266\312`\315\"\206\207\316 \311V\203\245\312`\313\"\211\205\227\314
!\266\312`\315\"\206\266\316 \202\266\317\320H!\211\205\264\321\324\323!\"\262
S\234\311\234\n\203t\325\326!\327\211C\33023
\211
\242\206\321\240\210\204\337\331\332\333\"\f\"\210
@D\211\203\370\211@\331\332\334\"\"\210
A\266\202\202\343\210\211\242A@\335\235\203
\336\337\242@\"\202
\336\340\242@\242A@#\211\242B\204/
\211\f\235\204/
\341
@\f\"\204/
\211\fB
\266\2020\266\204!\203t\342\327\206b
\343\344\"\203Z
\336\340\345\346\"\345\347\"\206V
\350#\202b
\336\340@A@#\n?\205h
D\"C\320H\351\352H\206w
\350!B\353\354\355\356#B\357\360BD	GC\211\242T\361\362B\363BD!\327C\327C\327\331\332\364$\"\210\365\366\367\242\370\"\371\n\242\"\"\327\360#\262
\372\373\374	!#\210\242Y\203o\327\371\242\"\375\327C\205\346
\331\332\376#\377!\"\210\211\242\266\202\262
\211\203Z\211@\211\242
\243
\201E
A\"A@\262
\201F
8\262
\211\203Q\211@\211\242
\243\211C\211\201G\242!\240\210\342\327\201H\332\201I\"	\"\"\211\262\203H\201J\336\201K\201LB\"@\"!J\n\244\210\266
A\266\202\202\266
A\266\202\202\352
\266\346	GBC\201M\346	GBD#\210\266\212\202\201\201N \205\201O \266\202)\207" [gnus-summary-buffer gnus-newsgroup-selection gnus-refer-thread-use-search gnus-select-method gnus-server-method-cache gnus-server-alist gnus-group-prefixed-name gnus-group-short-name (nnselect "nnselect") 0 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-id-to-thread 4 cl-some #[257 "\211\205\211\300V\205\211\207" [0] 3 "\n\n(fn X)"] gnus-articles-in-thread #[257 "\211\205\211\300V\205\211\207" [0] 3 "\n\n(fn X)"] gnus-search-server-to-engine gnus-find-method-for-group nil server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil #1="") format "%s" "%s:%s" assoc delq string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" match-string 1 2 #1# split-string 5 query mapconcat #[257 "\300\301\"\207" [format "id:%s"] 4 "\n\n(fn I)"] " or " thread t gnus-search-run-query search-query-spec search-group-spec #[257 "\302\304\305\306$\240\203\301\302\242T\301\242B\240\207\307\310!\"\300\211\242T\240\207" [V0 V1 V2 gnus-newsgroup-selection cl-position :test equal vconcat vector] 7 "\n\n(fn ARTICLE)"] gnus-fetch-headers append sort < number-sequence gnus-group-set-parameter nnselect-artlist nnselect-compress-artlist nnselect-article-id #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] reverse gnus-predefined-server-alist gnus-newsrc-hashtb gnus-article-mark-lists gnus-newsgroup-active gnus-active-hashtb gethash 3 gnus-uncompress-sequence mapcar #[257 "\211A\300\242>\205\n\211@\207" [V0] 3 "\n\n(fn ART)"] intern "gnus-newsgroup-%s" rassq puthash gnus-warp-to-article gnus-summary-refer-thread] 30 (#$ . 26720)])
(nnoo-register-function 'nnselect-request-thread)
#@31 

(fn GROUP &optional SERVER)
(defalias 'nnselect-close-group #[513 "\303\304!\305\"\204\306
!\210\307\310
!\205 \311
!\210\312\313\n\"\211\207" [gnus-group-is-exiting-without-update-p gnus-newsgroup-selection gnus-ephemeral-servers gnus-group-prefixed-name gnus-group-short-name (nnselect "nnselect") nnselect-push-info nil gnus-ephemeral-group-p gnus-kill-ephemeral-group assq-delete-all nnselect] 6 (#$ . 30339)])
(nnoo-register-function 'nnselect-close-group)
#@36 

(fn GROUP &optional SERVER ARGS)
(defalias 'nnselect-request-create-group #[769 "\302\303\"\210\304\305\"\306\236\307\310\"\206\311\312\313\314#!\307\315\"\206*\316\317\320\211\321\320\322&\310B\315BD\323\306#\210\323\324\325\307\324\"\206F\326!!#\210\327\211\330
	\"A@\262
\"\266\321\207" [obarray gnus-newsrc-hashtb message "Creating nnselect group %s" gnus-group-prefixed-name (nnselect "nnselect") nnselect-specs alist-get nnselect-function intern completing-read "Function: " functionp nnselect-args read-from-minibuffer "Args: " nil t "nil" gnus-group-set-parameter nnselect-artlist nnselect-compress-artlist nnselect-run nnselect-request-update-info gethash] 15 (#$ . 30816)])
(nnoo-register-function 'nnselect-request-create-group)
#@32 

(fn GROUP &optional ARTICLE)
(defalias 'nnselect-request-type #[513 "\211\247\203&\211\301V\203&\302
\301V\205S\234\301\234\301V\205\"S\234\303\234\"\207\304\207" [gnus-newsgroup-selection 0 gnus-request-type 1 unknown] 6 (#$ . 31585)])
(nnoo-register-function 'nnselect-request-type)
#@25 

(fn &optional SERVER)
(defalias 'nnselect-request-post #[256 "\204	\302\303\304\"\207\305\306A\307V\205	AS\234\307\234!!\207" [gnus-message-group-art gnus-newsgroup-selection nnheader-report nnselect "Can't post to an nnselect group" gnus-request-post gnus-find-method-for-group 0] 5 (#$ . 31888)])
(nnoo-register-function 'nnselect-request-post)
#@40 

(fn GROUP NEW-NAME &optional SERVER)
(defalias 'nnselect-request-rename-group #[770 "\300\207" [t] 4 (#$ . 32249)])
(nnoo-register-function 'nnselect-request-rename-group)
#@21 

(fn GROUP METHOD)
(defalias 'nnselect-request-scan #[514 "
\205\300\301\302!\303\"\304\305#\205\306!\207" [gnus-group-get-parameter gnus-group-prefixed-name gnus-group-short-name (nnselect "nnselect") nnselect-rescan t nnselect-request-group-scan] 6 (#$ . 32429)])
(nnoo-register-function 'nnselect-request-scan)
#@36 

(fn GROUP &optional SERVER INFO)
(defalias 'nnselect-request-group-scan #[769 "\301\302!\303\"\304\305\306\307#!\310\311GB#\210\312\313\314!#\207" [gnus-active-hashtb gnus-group-prefixed-name gnus-group-short-name (nnselect "nnselect") nnselect-run gnus-group-get-parameter nnselect-specs t puthash 1 gnus-group-set-parameter nnselect-artlist nnselect-compress-artlist] 10 (#$ . 32756)])
(nnoo-register-function 'nnselect-request-group-scan)
#@51 Say whether GROUP is nnselect or not.

(fn GROUP)
(defalias 'gnus-nnselect-group-p #[257 "\301
!\203\302
!@\303=\206@\303=\207" [gnus-command-method gnus-group-prefixed-p gnus-find-method-for-group nnselect] 3 (#$ . 33213)])
#@90 Apply nnselect-function to nnselect-args from SPECS.
Return an article list.

(fn SPECS)
(defalias 'nnselect-run #[257 "\300\301\"\300\302\"\3031

!0\207\304\305\306%\210\307\207" [alist-get nnselect-function nnselect-args (debug error) gnus-error 3 "nnselect-run: %s on %s gave error %s" []] 10 (#$ . 33449)])
#@233 Make an nnselect group containing the thread with article HEADER.
The current server will be searched.  If the registry is
installed, the server that the registry reports the current
article came from is also searched.

(fn HEADER)
(defalias 'nnselect-search-thread #[257 "\211\306H\307\310H\206\311!B\312\313\314\315#B\316\317BD\320!\321\211C\3222\213\211
\242\206*	\240\210\2048\323\324\325\"\n\"\210\fD\211\203P\211@\323\324\326\"\"\210
A\266\202\202;\210\211\242A@\327\235\203c\330\331\242@\"\202m\330\332\242@\242A@#\211\242B\204\207\211\n\235\204\207\333
@\n\"\204\207\211\nB
\266\2020\266\204CC\334\305!\205\240
\205\240\335\306H\336\"@\211\205
\320
!\321\211C\3222
\211
\242\206\266	\240\210\204\304\323\324\325\"\n\"\210\fD\211\203\334\211@\323\324\326\"\"\210
A\266\202\202\307\210\211\242A@\327\235\203\357\330\331\242@\"\202\371\330\332\242@\242A@#\211\242B\204
\211\n\235\204
\333
@\n\"\204
\211\nB
\266\2020\266\204\211\2030
\211C\211\235\203)
\202,
\211B\262
\262\337\340\341 P\342\343D\321p-B\321\211\344\345\346B\347\350B\351BDBDB\352CD&\210\353\354\306H!!\207" [gnus-newsgroup-name gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-registry-enabled 4 split-string 5 #1="" query mapconcat #[257 "\300\301\"\207" [format "id:%s"] 4 "\n\n(fn I)"] " or " thread t gnus-find-method-for-group nil server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil #1#) format "%s" "%s:%s" assoc boundp gnus-registry-get-id-key group gnus-group-read-ephemeral-group "nnselect-" message-unique-id nnselect "nnselect" nnselect-specs nnselect-function gnus-search-run-query nnselect-args search-query-spec search-group-spec nnselect-artlist gnus-summary-goto-subject gnus-id-to-article gnus-current-window-configuration] 19 (#$ . 33774)])
#@67 Copy mark-lists from GROUP to the originating groups.

(fn GROUP)
(defalias 'nnselect-push-info #[257 "\306\307C\205\310\311\312#\313!\"\210\211\242\266\202\314\315
	\"A@\262
\316
8\262
!\306\307C\205:\310\311\317#\313!\"\210\211\242\266\202\262
\306\307C\n\205R\310\311\320#\313\n!\"\210\211\242\266\202\307\211
\f\211\203\350\211@\211\242
\243\307\321\322\323\"!J\211\262\203\337
\324!\325=\203\230\314!\306\307C\205\221\310\311\326#\313!\"\210\211\242\266\202\262
\202\331\324!\327=\203\302\330\331\211\206\247\332\307C\205\275\310\311\333$\313!\"\210\211\242\266\204\202\331\306\307C\205\327\310\311\334#\313!\"\210\211\242\266\202BB\262\266
A\266\202\202Y\210\306\307C
\205\375\310\311\335#\313
!\"\210\211\242\266\202\211\205\327\211@\211\242
\243
\315
	\"A@\262
\336!\307\211\203\316\f\211\203@\211@\211\242
\243\307\337\340\"\"A\324!\341
\3421d
\211;\203G
\343
!@\202H
\211\344
!\204R
\345
!\210\346\321\322\347#!!\262
0\266\202\202g
\266\307\203\263
\350!\204\263
\351\f\340\3528\"\"\353\354!\"\353\354!\"\211\203\227
\211\355CEB\262
\203\261
\356\315@\"\"\262
\357CEB\262\266\211\327=\203\f
\203\370
\360=\203\370
A\203\370

\307B\211\203\362
@:\203\340
@ABU\203\350

A\241\210\202\353
\262A\262\202\315
\211A\262\266\361\362\363\340\3528\"#\364\"\262\202%\365\366\367\370\340\3528\"!\"\361\371\"\"\372\"\262
\204/\373=\2037B	B\262	\266
A\266\202\202
\210\211\203X\374!\204R\375\376\"\210\377\"\210CD\307\211\203j\201E\352\"\210\352\233\211\240\266\201F\211\316V\203\224\2118\204\224\211S\211\262\233\203u\211\233\307\241\210\202u\210\201G\314\201H\353\337\f\"A\"\361\337\f\"A\371\"\"!\"\210\201I\315@\"\372#\210\201J\372\211#\210)\266
A\266\202\202\377\262
)\207" [gnus-newsgroup-unreads gnus-newsrc-hashtb gnus-newsgroup-unseen gnus-newsgroup-active gnus-article-mark-lists gnus-newsgroup-articles nnselect-article-number nil mapc make-closure #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] reverse gnus-uncompress-range gethash 2 #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] intern format "gnus-newsgroup-%s" gnus-article-mark-to-type range #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] tuple #[257 "\211@\301V\205\f
@S\234\301\234\207" [gnus-newsgroup-selection 0] 3 "\n\n(fn ELEM)"] #[257 "\211@\301V\205\f
@S\234\302\234
AB\207" [gnus-newsgroup-selection 0 1] 3 "\n\n(fn ELEM)"] identity #[257 "\300
!\301!\303\302\242\"\211\203\211AB\241\207\302D\302\242B\240\207" [V0 V1 V2 assoc] 7 "\n\n(fn MEMBER)"] #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] #[257 "\211\303V\205\n\n
S\234\303\234\300!\304\301\242\"\211\203\211AB\241\207\301D\301\242B\240\207" [V0 V1 gnus-newsgroup-selection 0 assoc] 7 "\n\n(fn MEMBER)"] gnus-list-of-unread-articles assoc alist-get request-set-mark (error) gnus-find-method-for-group featurep require fboundp "%s-%s" gnus-article-unpropagatable-p gnus-list-range-intersection 3 gnus-remove-from-range copy-tree add gnus-sorted-range-intersection del score sort map-merge list #[514 "
@
@W\207" [] 4 "\n\n(fn ELT1 ELT2)"] gnus-compress-sequence gnus-sorted-union gnus-sorted-difference gnus-uncompress-sequence < t unexist gnus-check-group error "Can't open server for %s" gnus-request-set-mark gnus-active-hashtb gnus-save-score gnus-summary-default-score gnus-atomic-be-safe inhibit-quit gnus-info--grow-entry 5 gnus-update-read-articles gnus-add-to-range gnus-get-unread-articles-in-group gnus-group-update-group] 30 (#$ . 35868)])
#@95 Search a group from the summary buffer.
Pass NO-PARSE on to the search engine.

(fn NO-PARSE)
(defalias 'gnus-summary-make-search-group #[257 "\302 \210\303\304\305\"\203\306\307\310\311\"\310\312\"\206\313#\202&\306\307	@	A@#\262
DCBC\314\"\207" [gnus-newsgroup-name gnus-select-method gnus-warp-to-article search-group-spec string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 "" gnus-group-make-search-group] 9 (#$ . 40144) "P"])
(provide 'nnselect)