HOME

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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require nnoo gnus-group message gnus-util] 2)
#@33 Internal: stores current query.
(defvar nnir-memo-query nil (#$ . 521))
#@34 Internal: stores current server.
(defvar nnir-memo-server nil (#$ . 599))
#@33 Internal: stores search result.
(defvar nnir-artlist nil (#$ . 679))
#@59 Internal: the history for querying search options in nnir
(defvar nnir-search-history nil (#$ . 754))
#@29 Internal: temporary buffer.
(defconst nnir-tmp-buffer " *nnir*" (#$ . 862))
#@70 Mapping from user readable keys to IMAP search items for use in nnir
(defvar nnir-imap-search-arguments '(("whole message" . "TEXT") ("subject" . "SUBJECT") ("to" . "TO") ("from" . "FROM") ("body" . "BODY") ("imap" . "")) (#$ . 944))
#@140 The IMAP search item to use for anything other than
  `nnir-imap-search-arguments'. By default this is the name of an
  email header field
(defvar nnir-imap-search-other "HEADER %S" (#$ . 1185))
#@49 The history for querying search options in nnir
(defvar nnir-imap-search-argument-history nil (#$ . 1386))
#@54 Returns number of articles in artlist.

(fn ARTLIST)
(defalias 'nnir-artlist-length '(macro . #[257 "\300
D\207" [length] 3 (#$ . 1499)]))
#@80 Returns from ARTLIST the Nth artitem (counting starting at 1).

(fn ARTLIST N)
(defalias 'nnir-artlist-article '(macro . #[514 "\300\301\302BB\303\304DEE\207" [when > (0) elt 1-] 8 (#$ . 1644)]))
#@51 Returns the group from the ARTITEM.

(fn ARTITEM)
(defalias 'nnir-artitem-group '(macro . #[257 "\300
\301BB\207" [elt (0)] 4 (#$ . 1849)]))
#@52 Returns the number from the ARTITEM.

(fn ARTITEM)
(defalias 'nnir-artitem-number '(macro . #[257 "\300
\301BB\207" [elt (1)] 4 (#$ . 1996)]))
#@81 Returns the Retrieval Status Value (RSV, score) from the ARTITEM.

(fn ARTITEM)
(defalias 'nnir-artitem-rsv '(macro . #[257 "\300
\301BB\207" [elt (2)] 4 (#$ . 2145)]))
#@45 Returns the group for ARTICLE

(fn ARTICLE)
(defalias 'nnir-article-group '(macro . #[257 "\300\301\302ED\207" [nnir-artitem-group nnir-artlist-article nnir-artlist] 5 (#$ . 2320)]))
#@46 Returns the number for ARTICLE

(fn ARTICLE)
(defalias 'nnir-article-number '(macro . #[257 "\300\301\302ED\207" [nnir-artitem-number nnir-artlist-article nnir-artlist] 5 (#$ . 2510)]))
#@43 Returns the rsv for ARTICLE

(fn ARTICLE)
(defalias 'nnir-article-rsv '(macro . #[257 "\300\301\302ED\207" [nnir-artitem-rsv nnir-artlist-article nnir-artlist] 5 (#$ . 2703)]))
#@65 Returns the pair `(nnir id . real id)' of ARTICLE

(fn ARTICLE)
(defalias 'nnir-article-ids #[257 "\211
\301V\205S\234\302\234B\207" [nnir-artlist 0 1] 4 (#$ . 2887)])
(put 'nnir-article-ids 'byte-optimizer 'byte-compile-inline-expand)
#@374 Sorts a sequence into categories and 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'. If `valuefunc' is non-nil, the element of the list
is `(valuefunc member)'.

(fn SEQUENCE KEYFUNC &optional VALUEFUNC)
(defalias 'nnir-categorize '(macro . #[770 "\300\301D\302\303\304\305\306\302\307\n\310BD\311\n\203\n\312B\202\313DD\314BBEE\315BBBE\207" [unless null let (value) mapc lambda (member) y (member) x (member) member ((if (assoc y value) (push x (cadr (assoc y value))) (push (list y (list x)) value))) (value)] 15 (#$ . 3134)]))
(byte-code "\303\304!\210\305\236\203\305\236A\306\307\310\"\240\210\202\"\305\306\307\310\"\310\211FB\305	\236\204.\305\311D	B\312\305!\210\313\314\315\316#\210\317\305\310\320\321\322%\210\323\324\325\326\327DD\330\331\332\333\334\321\305&	\210\323\335\325\326\336DD\337\331\332\333\340\321\305&	\210\323\341\325\326\342DD\343\331\332\333\344\321\305&	\210\323\345\325\326\346DD\347\331\332\333\350\306\351\n\"B\321\305&	\210\323\352\325\326\353DD\354\333\355\321\305&\210\323\356\325\326\357DD\360\333\361\321\305&\210\323\362\325\326\363DD\364\333\365\321\305&\210\323\366\325\326\367DD\370\333\371\321\305&\210\372\373\374\375#\210\323\373\325\326\376DD\377\333\201@\321\305&\210\323\374\325\326\201ADD\201B\333\201C\321\305&\210\323\201D\325\326\201EDD\201F\333\201G\321\305&\210\323\201H\325\326\201IDD\201J\333\201K\321\305&\210\323\201L\325\326\201MDD\201N\333\201O\321\305&\210\323\201P\325\326\201QDD\201R\333\201S\321\305&\210\323\201T\325\326\201UDD\201V\333\201W\321\305&\210\323\201X\325\326\201YDD\201Z\333\201[\321\305&\210\323\201\\\325\326\201]DD\201^\333\201_\321\305&\210\323\201`\325\326\201aDD\201b\333\201c\321\305&\210\323\201d\325\326\201eDD\201f\333\201g\321\305&\210\323\201h\325\326\201iDD\201j\333\201k\321\305&\210\323\201l\325\326\201mDD\201n\333\201o\321\305&\210\323\201p\325\326\201qDD\201r\331\332\333\201s\321\305&	\210\323\201t\325\326\201uDD\201v\331\332\333\201w\321\305&	\210\323\201x\325\326\201yDD\201z\331\332\333\201{\321\305&	\207" [nnoo-definition-alist nnoo-state-alist nnir-imap-search-arguments require gnus-sum nnir mapcar list nil "*internal-non-initialized-backend*" nnoo-define-basics-1 gnus-declare-backend "nnir" mail virtual custom-declare-group "Search groups in Gnus with assorted search engines." :group gnus custom-declare-variable nnir-ignored-newsgroups funcall function #[0 "\300\207" [#1=""] 1 #1#] "A regexp to match newsgroups in the active file that should\n  be skipped when searching." :version "24.1" :type (regexp) nnir-summary-line-format #[0 "\300\207" [nil] 1] "The format specification of the lines in an nnir summary buffer.\n\nAll the items from `gnus-summary-line-format' are available, along\nwith three items unique to nnir summary buffers:\n\n%Z    Search retrieval score value (integer)\n%G    Article original full group name (string)\n%g    Article original short group name (string)\n\nIf nil this will use `gnus-summary-line-format'." (choice (const :tag "gnus-summary-line-format" nil) string) nnir-retrieve-headers-override-function #[0 "\300\207" [nil] 1] "If non-nil, a function that accepts an article list and group\nand populates the `nntp-server-buffer' with the retrieved\nheaders. Must return either 'nov or 'headers indicating the\nretrieved header format.\n\nIf this variable is nil, or if the provided function returns nil for a search\nresult, `gnus-retrieve-headers' will be called instead." (choice (const :tag "gnus-retrieve-headers" nil) function) nnir-imap-default-search-key #[0 "\300\207" [#2="whole message"] 1 #2#] "The default IMAP search key for an nnir search. Must be one of\n  the keys in `nnir-imap-search-arguments'. To use raw imap queries\n  by default set this to \"imap\"." choice #[257 "\300
@D\207" [const] 3 "\n\n(fn ELEM)"] nnir-swish++-configuration-file #[0 "\300\301!\207" [expand-file-name "~/Mail/swish++.conf"] 2] "Configuration file for swish++." (file) nnir-swish++-program #[0 "\300\207" [#3="search"] 1 #3#] "Name of swish++ search executable." (string) nnir-swish++-additional-switches #[0 "\300\207" [nil] 1] "A list of strings, to be given as additional arguments to swish++.\n\nNote that this should be a list.  I.e., do NOT use the following:\n    (setq nnir-swish++-additional-switches \"-i -w\") ; wrong\nInstead, use this:\n    (setq nnir-swish++-additional-switches \\='(\"-i\" \"-w\"))" (repeat (string)) nnir-swish++-remove-prefix #[0 "\300\301!\302P\207" [getenv "HOME" "/Mail/"] 2] "The prefix to remove from each file name returned by swish++\nin order to get a group name (albeit with / instead of .).  This is a\nregular expression.\n\nThis variable is very similar to `nnir-namazu-remove-prefix', except\nthat it is for swish++, not Namazu." (regexp) make-obsolete-variable nnir-swish-e-index-file nnir-swish-e-index-files "Emacs 23.1" #[0 "\300\301!\207" [expand-file-name "~/Mail/index.swish-e"] 2] "Index file for swish-e.\nThis could be a server parameter.\nIt is never consulted once `nnir-swish-e-index-files', which should be\nused instead, has been customized." (file) #[0 "C\207" [nnir-swish-e-index-file] 1] "List of index files for swish-e.\nThis could be a server parameter." (repeat (file)) nnir-swish-e-program #[0 "\300\207" [#4="swish-e"] 1 #4#] "Name of swish-e search executable.\nThis cannot be a server parameter." (string) nnir-swish-e-additional-switches #[0 "\300\207" [nil] 1] "A list of strings, to be given as additional arguments to swish-e.\n\nNote that this should be a list.  I.e., do NOT use the following:\n    (setq nnir-swish-e-additional-switches \"-i -w\") ; wrong\nInstead, use this:\n    (setq nnir-swish-e-additional-switches \\='(\"-i\" \"-w\"))\n\nThis could be a server parameter." (repeat (string)) nnir-swish-e-remove-prefix #[0 "\300\301!\302P\207" [getenv "HOME" "/Mail/"] 2] "The prefix to remove from each file name returned by swish-e\nin order to get a group name (albeit with / instead of .).  This is a\nregular expression.\n\nThis variable is very similar to `nnir-namazu-remove-prefix', except\nthat it is for swish-e, not Namazu.\n\nThis could be a server parameter." (regexp) nnir-hyrex-program #[0 "\300\207" [#5="nnir-search"] 1 #5#] "Name of the nnir-search executable." (string) nnir-hyrex-additional-switches #[0 "\300\207" [nil] 1] "A list of strings, to be given as additional arguments for nnir-search.\nNote that this should be a list. I.e., do NOT use the following:\n    (setq nnir-hyrex-additional-switches \"-ddl ddl.xml -c nnir\") ; wrong !\nInstead, use this:\n    (setq nnir-hyrex-additional-switches \\='(\"-ddl\" \"ddl.xml\" \"-c\" \"nnir\"))" (repeat (string)) nnir-hyrex-index-directory #[0 "\300\301!\207" [getenv "HOME"] 2] "Index directory for HyREX." (directory) nnir-hyrex-remove-prefix #[0 "\300\301!\302P\207" [getenv "HOME" "/Mail/"] 2] "The prefix to remove from each file name returned by HyREX\nin order to get a group name (albeit with / instead of .).\n\nFor example, suppose that HyREX returns file names such as\n\"/home/john/Mail/mail/misc/42\".  For this example, use the following\nsetting:  (setq nnir-hyrex-remove-prefix \"/home/john/Mail/\")\nNote the trailing slash.  Removing this prefix gives \"mail/misc/42\".\n`nnir' knows to remove the \"/42\" and to replace \"/\" with \".\" to\narrive at the correct group name, \"mail.misc\"." (directory) nnir-namazu-program #[0 "\300\207" [#6="namazu"] 1 #6#] "Name of Namazu search executable." (string) nnir-namazu-index-directory #[0 "\300\301!\207" [expand-file-name "~/Mail/namazu/"] 2] "Index directory for Namazu." (directory) nnir-namazu-additional-switches #[0 "\300\207" [nil] 1] "A list of strings, to be given as additional arguments to namazu.\nThe switches `-q', `-a', and `-s' are always used, very few other switches\nmake any sense in this context.\n\nNote that this should be a list.  I.e., do NOT use the following:\n    (setq nnir-namazu-additional-switches \"-i -w\") ; wrong\nInstead, use this:\n    (setq nnir-namazu-additional-switches \\='(\"-i\" \"-w\"))" (repeat (string)) nnir-namazu-remove-prefix #[0 "\300\301!\302P\207" [getenv "HOME" "/Mail/"] 2] "The prefix to remove from each file name returned by Namazu\nin order to get a group name (albeit with / instead of .).\n\nFor example, suppose that Namazu returns file names such as\n\"/home/john/Mail/mail/misc/42\".  For this example, use the following\nsetting:  (setq nnir-namazu-remove-prefix \"/home/john/Mail/\")\nNote the trailing slash.  Removing this prefix gives \"mail/misc/42\".\n`nnir' knows to remove the \"/42\" and to replace \"/\" with \".\" to\narrive at the correct group name, \"mail.misc\"." (directory) nnir-notmuch-program #[0 "\300\207" [#7="notmuch"] 1 #7#] "Name of notmuch search executable." (string) nnir-notmuch-additional-switches #[0 "\300\207" [nil] 1] "A list of strings, to be given as additional arguments to notmuch.\n\nNote that this should be a list.  I.e., do NOT use the following:\n    (setq nnir-notmuch-additional-switches \"-i -w\") ; wrong\nInstead, use this:\n    (setq nnir-notmuch-additional-switches \\='(\"-i\" \"-w\"))" (repeat (string)) nnir-notmuch-remove-prefix #[0 "\300\301!\302P\207" [getenv "HOME" "/Mail/"] 2] "The prefix to remove from each file name returned by notmuch\nin order to get a group name (albeit with / instead of .).  This is a\nregular expression.\n\nThis variable is very similar to `nnir-namazu-remove-prefix', except\nthat it is for notmuch, not Namazu." (regexp)] 11)
#@837 Alist of supported search engines.
Each element in the alist is a three-element list (ENGINE FUNCTION ARGS).
ENGINE is a symbol designating the searching engine.  FUNCTION is also
a symbol, giving the function that does the search.  The third element
ARGS is a list of cons pairs (PARAM . PROMPT).  When issuing a query,
the FUNCTION will issue a query for each of the PARAMs, using PROMPT.

The value of `nnir-search-engine' must be one of the ENGINE symbols.
For example, for searching a server using namazu include
    (nnir-search-engine namazu)
in the server definition.  Note that you have to set additional
variables for most backends.  For example, the `namazu' backend
needs the variables `nnir-namazu-program',
`nnir-namazu-index-directory' and `nnir-namazu-remove-prefix'.

Add an entry here when adding a new search engine.
(defvar nnir-engines (byte-code "\302\303\304\305\306\307\"\310\211\311	\257CE\312B\207" [nnir-imap-search-arguments nnir-imap-default-search-key imap nnir-run-imap criteria "Imap Search in" mapcar car nil nnir-imap-search-argument-history ((gmane nnir-run-gmane ((gmane-author . "Gmane Author: "))) (swish++ nnir-run-swish++ ((swish++-group . "Swish++ Group spec (regexp): "))) (swish-e nnir-run-swish-e ((swish-e-group . "Swish-e Group spec (regexp): "))) (namazu nnir-run-namazu nil) (notmuch nnir-run-notmuch nil) (hyrex nnir-run-hyrex ((hyrex-group . "Hyrex Group spec (regexp): "))) (find-grep nnir-run-find-grep ((grep-options . "Grep options: "))))] 9) (#$ . 12859))
(byte-code "\301\302\303\304\305DD\306\307\310\311\312\313\314\315\316\317\320\321\"BED&	\207" [nnir-engines custom-declare-variable nnir-method-default-engines funcall function #[0 "\300\207" [((nnimap . imap) (nntp . gmane))] 1] "Alist of default search engines keyed by server method." :version "24.1" :group nnir :type repeat cons (choice (const nnimap) (const nntp) (const nnspool) (const nneething) (const nndir) (const nnmbox) (const nnml) (const nnmh) (const nndraft) (const nnfolder) (const nnmaildir)) choice mapcar #[257 "\300
@D\207" [const] 3 "\n\n(fn ELEM)"]] 16)
#@571 Create an nnir group.  Prompt for a search query and determine
the groups to search as follows: if called from the *Server*
buffer search all groups belonging to the server on the current
line; if called from the *Group* buffer search any marked groups,
or the group on the current line, or all the groups under the
current topic. Calling with a prefix-arg prompts for additional
search-engine specific constraints. A non-nil `specs' arg must be
an alist with `nnir-query-spec' and `nnir-group-spec' keys, and
skips all prompting.

(fn NNIR-EXTRA-PARMS &optional SPECS)
(defalias 'gnus-group-make-nnir-group #[513 "\302
\236A\206V\303 \203\303 CC\202V\204+\304 \203\"\304 C\202(\305\306 	\"A\205V\307C\310\311\312\313\314\315!\316\"\317\320%\206P\304 \203J\304 C\202P\305\306 	\"A\"\210\211\242\262
\321\236A\206p\322\323\324\325\326\307\327#BC\205o\330\331\"#\332\333\334 P\335\336D\307\211\211\211\337\321	B\302BDB\340\307BD&\207" [gnus-group-marked gnus-topic-alist nnir-group-spec gnus-server-server-name gnus-group-group-name assoc gnus-group-topic-name nil mapc make-byte-code 257 "\211\302\303\"\203\304\305\306\307\"\306\310\"\206\311#\202\"\304\305	@	A@#\262

\312\300\242\"\203?\312\300\242\"\211AA@B\240\262
\202H\300CD\300\242B\240\207" vconcat vector [gnus-select-method string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 "" assoc] 8 "\n\n(fn MEMBER)" nnir-query-spec apply append query read-string "Query: " nnir-search-history mapcar #[257 "\300\301@!!\207" [nnir-read-parms nnir-server-to-search-engine] 4 "\n\n(fn X)"] gnus-group-read-ephemeral-group "nnir-" message-unique-id nnir "nnir" nnir-specs nnir-artlist] 15 (#$ . 14958) "P"])
#@64 Search a group from the summary buffer.

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

(fn SERVER &optional DEFINITIONS)
(defalias 'nnir-open-server #[513 "
\211\203<\203\206<
\306	\"A\206<
\307\232\203!\n\206%
\306\"A\206%
\306\f\"A\206%

\203V\310\311@@@@@A@#\232\204V\211A\210\2024@@)\206%
\203\202\310\311@@@A@#\232\204\202\211A\210\202b@)\206%
A\312\211\203\"
\313\211A\2428\211;\204\224\312\314 \3152
\206\276\n \204\312\316\317	\"\210\316\320\fD\"\210A@\321\235\203\343\310\322@\"\202\355\310\311@A@#\211!B\211\"	\235\204
\204
\306\"@	\"\204
\"	B!*0+\232\203\224\312\211\204\231+\211#\2039
\306	\"\2049
#B	B#))@\211\203J
\323
#\202T
\324\325\326\"\210\323\327#\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" nnoo-change-server add-hook gnus-summary-mode-hook nnir-mode nnir opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 8 (#$ . 17139)])
(nnoo-register-function 'nnir-open-server)
#@47 

(fn GROUP &optional SERVER DONT-CHECK INFO)
(defalias 'nnir-request-group #[1025 "\303\"\210\304!\305\203\204+\306\300\307\310\311\312#!\211#\210\313\314\315	\"J8\"\210r\nq\210G\211\262\316U\203F\317!\210\320\321\322\"\210\202O\323\324\325\n%\210)\266\207" [nnir-artlist gnus-newsrc-hashtb nntp-server-buffer nnir-possibly-change-group gnus-group-guess-full-name-from-command-method nil gnus-group-set-parameter nnir-run-query gnus-group-get-parameter nnir-specs t nnir-request-update-info 2 intern-soft 0 nnir-close-group nnheader-report nnir "Search produced empty results." nnheader-insert "211 %d %d %d %s\n" 1] 14 (#$ . 18610)])
(nnoo-register-function 'nnir-request-group)
#@50 

(fn ARTICLES &optional GROUP SERVER FETCH-OLD)
(defalias 'nnir-retrieve-headers #[1025 "rq\210\306\205!\307C\310\311\312\313\314\315!\316\"\317\320%\"\210\211\242\262
\307
\203
\211A\262\242\211@
A@\321\322\323\"\324\"\325\326\"\203R\327\330\331\332\"\331\333\"\206N\334#\202Z\327\330	@	A@#\262
\211\211\203k\n<\203k\n\206\231
\335\n\"A\206\231
\n\336\232\203}	\206\202
\335\n\f\"A\206\202
\335\n
\"A\206\202
122\203\263\n\327\3302@@@2@@A@#\232\204\2632\211A2\210\202\2212@@)\206\202
344\203\337\n\327\3304@@4@A@#\232\204\3374\211A4\210\202\2774@)\206\202
5A\307\2116788\203
\3378\211A8\2428\2117;\204\361\n7\307\3069:7\3402o
7\206
	7:\204'
\310\341\"\210\310\342\f
D\"\2107A@\343\235\203@
\327\3447@\"\202J
\327\3307@7A@#\211;7B\211<\235\204k
9\204k
\335<@\"\204k
<B;*0+\232\203\36176\307\2118\204\3666+\211=\203\226
\335\n\"\204\226
\n=BB=))>\307\345 \210?\203\256
?\"\206\264
\346\307#\211@\211\347\267\202\311
\350\262\202\321
\351\262\202\321
\352\353@#\210\210eb\210m\204\376
\211 \211\205\342
\211\354H\355
\"@\211\203\367
\354I\210\nB\262\n\332y\266\202\325
)\266\202\"\321
\356\"\262
\345 \210\310\357\"\210\360\266\203)\207" [nntp-server-buffer gnus-select-method server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist t nil mapc make-byte-code 257 "\211\302V\205\n	
S\234\302\234
\211
\302V\205	S\234\303\234B\262
\304\300\242\"\2037\304\300\242\"\211AA@B\240\262
\202@\300CD\300\242B\240\207" vconcat vector [nnir-artlist 0 1 assoc] 7 "\n\n(fn MEMBER)" sort mapcar cdr < string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 server-name #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1#) "%s" erase-buffer gnus-retrieve-headers #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nov 445 headers 451)) nnheader-parse-nov nnheader-parse-head error "Unknown header type %s while requesting articles                     of group %s" 0 rassq #[514 "
\300H
\300HW\207" [0] 5 "\n\n(fn X Y)"] nnheader-insert-nov nov gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result gnus-override-method nnir-retrieve-headers-override-function gnus-headers-retrieved-by] 19 (#$ . 19322)])
(nnoo-register-function 'nnir-retrieve-headers)
#@49 

(fn ARTICLE &optional GROUP SERVER TO-BUFFER)
(defalias 'nnir-request-article #[1025 "\306\"\210;\203S

\211\203<\203\206F
\307	\"A\206F
\310\232\203+\n\206/
\307\"A\206/
\307\f\"A\206/

$$\203`\311\312$@@@$@@A@#\232\204`$\211A$\210\202>$@@)\206/
%&&\203\214\311\312&@@&@A@#\232\204\214&\211A&\210\202l&@)\206/
'A\313\211()**\203,
\314*\211A*\2428\211);\204\236)\313\315+,)\3162
)\206\310\n),\204\324\317\320	\"\210\317\321\fD\"\210)A@\322\235\203\355\311\323)@\"\202\367\311\312)@)A@#\211-)B\211.	\235\204
+\204
\307.@	\"\204
.	B-*0+\232\203\236)(\313\211*\204\243(+\211/\203C
\307	\"\204C
/B	B/))@\324=\204S
\325\326\327#\207\212\313
;\203\313\211\203j
<\203j
\206\227\307	\"A\206\227\310\232\203|
\n\206\200\307\"A\206\200\307\f\"A\206\200
$$\203\261
\311\312$@@@$@@A@#\232\204\261
$\211A$\210\202\217
$@@)\206\200%&&\203\335
\311\312&@@&@A@#\232\204\335
&\211A&\210\202\275
&@)\206\200'A\313\211()**\203}\314*\211A*\2428\211);\204\357
)\313\315+,)\3162m)\206\n),\204%\317\320	\"\210\317\321\fD\"\210)A@\322\235\203>\311\323)@\"\202H\311\312)@)A@#\211-)B\211.	\235\204i+\204i\307.@	\"\204i.	B-*0+\232\203\357
)(\313\211*\204\364
(+\211/\203\224\307	\"\204\224/B	B/))0\330\311\331\"B\332\333B\334\315BE\262
1\203\274\2112\232\203\2743\232\204\310\335
\"1\21123\336\2621G\337U?\205
\337V\205\3371S\234\337\234\337V\205\3541S\234\336\234\340\341#\210\203rq\210\313\342\"\266)\202\f\343
\"\210

B\266\202\266\202)\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers nnir-possibly-change-group assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") "%s" nnimap nnheader-report nnir "nnir-request-article only groks message ids for nnimap servers: %s" query "HEADER Message-ID %s" criteria #1# shortcut nnir-run-imap 1 0 message "Requesting article %d from group %s" gnus-request-article-this-buffer gnus-request-article opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result gnus-override-method nnir-artlist nnir-memo-query nnir-memo-server] 13 (#$ . 22059)])
(nnoo-register-function 'nnir-request-article)
#@76 

(fn ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST INTERNAL-MOVE-GROUP)
(defalias 'nnir-request-move-article #[1540 "\304\"\210\305V\205S\234\305\234\305V\205S\234\306\234A@\307
!\307!\310
\"\311\3121\\	;\203B\307	!@\202C	\313!\204N\314!\210\315\316\317\320\n#!!)0\202^\210\321*\204h\322\323\"\210\324A@\f\f\205\221	\205\221	\325\326\"\203\216\211\305\225\321O\202\217\211\262
&\207" [nnir-artlist group func method nnir-possibly-change-group 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 "^[^:]+:"] 22 (#$ . 24748)])
(nnoo-register-function 'nnir-request-move-article)
#@46 

(fn ARTICLES GROUP &optional SERVER FORCE)
(defalias 'nnir-request-expire-articles #[1026 "\303\"\210\211\203\227\205%\304C\305\306\307\310\311\312!\313\"\314\315%\"\210\211\242\262
\304
\203\217
\211A\262\242\211@
A@\316\317\320\"\321\"\322\3231j;\203P\324!@\202Q\325\n!\204\\\326\n!\210\327\330\331\332\n	#!!)0\202l\210\304*\204u\333\334\"\210\335\324!!\204\202\333\336\"\210\337
	#B\266\205\202&\316\340\304\"\321\"\207\207" [group func method nnir-possibly-change-group nil mapc make-byte-code 257 "\211\302V\205\n	
S\234\302\234
\211
\302V\205	S\234\303\234B\262
\304\300\242\"\2037\304\300\242\"\211AA@B\240\262
\202@\300CD\300\242B\240\207" vconcat vector [nnir-artlist 0 1 assoc] 7 "\n\n(fn MEMBER)" sort mapcar cdr < request-expire-articles (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" error "The group %s does not support article deletion" gnus-check-server "Couldn't open server for group %s" gnus-request-expire-articles delq] 16 (#$ . 25552)])
(nnoo-register-function 'nnir-request-expire-articles)
(defalias 'nnir-warp-to-article #[0 "\302!\210\303`\304\"\211\203\305
!\210\210\303`\306\"\206\307 \310V\2038\303`\304\"\211\203+\305
!\210\210\303`\306\"\206;\307 \202;\311\312!\211\310V\205E	
S\234\310\234
\310V\205Q	S\234\313\234\314!\315\316\211\317\211C&\207" [gnus-newsgroup-name nnir-artlist nnir-possibly-change-group 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 gnus-summary-read-group-1 t nil] 11])
(nnoo-register-function 'nnir-warp-to-article)
#@27 

(fn GROUP ARTICLE MARK)
(defalias 'nnir-request-update-mark #[771 "
\301V\205\nS\234\301\234\301V\205S\234\302\234
\203(\211\203(\303#\206)\207" [nnir-artlist 0 1 gnus-request-update-mark] 9 (#$ . 27248)])
(nnoo-register-function 'nnir-request-update-mark)
#@39 

(fn GROUP ACTIONS &optional SERVER)
(defalias 'nnir-request-set-mark #[770 "\300\"\210\301\211\203y\211@\211\211G\302U\203\211
A\262\242\202%\303\304\301GD\"
\211A\262\242@\305!\205M\301C\306\307\310\311\312\313!\314\"\315\316%\305!\"\210\211\242\262
\211\211\203p\211@\211@\317\320A@\321\"!ED\nB\262\n
A\266\202\202N\266
A\266\202\202\210\211\205\225\301C\306\307\310\322\312\313!\323\"\315\316%\"\210\211\242\262
\211\205\252\211@\324
@A@\"\210
A\266\202\202\225\262
\207" [nnir-possibly-change-group nil 3 signal wrong-number-of-arguments gnus-uncompress-range mapc make-byte-code 257 "\211\302V\205\n	
S\234\302\234
\302V\205	S\234\303\234\304\300\242\"\2032\304\300\242\"\211AA@B\240\262
\202;\300CD\300\242B\240\207" vconcat vector [nnir-artlist 0 1 assoc] 7 "\n\n(fn MEMBER)" gnus-compress-sequence sort < "\211@
A@\301\300\242\"\203\301\300\242\"\211AA@B\240\262
\202(\300CD\300\242B\240\207" [assoc] gnus-request-set-mark] 18 (#$ . 27528)])
(nnoo-register-function 'nnir-request-set-mark)
#@36 

(fn GROUP INFO &optional SERVER)
(defalias 'nnir-request-update-info #[770 "\303\"\210\304\233\305\240\210
AA\305\240\210\306!\307\310GB!\2059\305C\311\312\313\314\315\316!\317\"\320\321%\307\310GB!\"\210\211\242\262
\322	\"\310GBL\210\211??\205\313\211
A\262\242\323
A@!\324\325@\n\"J8\304
8\3248AA\326\3248\327\305\330\312\313\331\315\316!\332\"\333\334%\n\"\"\"\240\210
\211\203\306\211@\211C\211\242\203\234\211\242
\211\242A\240\210\242\202\244\335\336\305\242GD\"\337\327\305\330\312\313\340\315\316\f!\341\"\333\334%\"\"#\266
A\266\202\202\203\266\202C\207" [nnir-artlist gnus-active-hashtb gnus-newsrc-hashtb nnir-possibly-change-group 3 nil gnus-group-guess-full-name-from-command-method gnus-uncompress-range 1 mapc make-byte-code 257 "\211\302V\205\n	
S\234\302\234
\211
\302V\205	S\234\303\234B\262
\304\300\242\"\2037\304\300\242\"\211AA@B\240\262
\202@\300CD\300\242B\240\207" vconcat vector [nnir-artlist 0 1 assoc] 7 "\n\n(fn MEMBER)" intern reverse 2 intern-soft gnus-add-to-range delq mapcar "\301
A\300\"\205\n\211@\207" [gnus-member-of-range] 4 "\n\n(fn ART)" signal wrong-number-of-arguments gnus-add-marked-articles "\301
A\300\242\"\205\211@\207" [gnus-member-of-range]] 26 (#$ . 28590)])
(nnoo-register-function 'nnir-request-update-info)
#@31 

(fn GROUP &optional SERVER)
(defalias 'nnir-close-group #[513 "\302\"\210\303!\203\304
!\204\305
\300#\210\306\304
!\205,\307
!\210\310\311	\236	\"\211\207" [nnir-artlist gnus-ephemeral-servers nnir-possibly-change-group gnus-group-guess-full-name-from-command-method gnus-ephemeral-group-p gnus-group-set-parameter nil gnus-kill-ephemeral-group delq nnir] 7 (#$ . 29912)])
(nnoo-register-function 'nnir-close-group)
#@145 Ask `nnir-compose-result' to construct a result vector,
and if it is non-nil, add it to artlist.

(fn DIRNAM ARTNO SCORE PREFIX SERVER ARTLIST)
(defalias 'nnir-add-result '(macro . #[1542 "\300\301\302\257DC\303\304\305\301EEE\207" [let result nnir-compose-result when (not (null result)) push] 14 (#$ . 30350)]))
(autoload 'nnmaildir-base-name-to-article-number "nnmaildir")
#@149 Extract the group from dirnam, and create a result vector
ready to be added to the list of search results.

(fn DIRNAM ARTICLE SCORE PREFIX SERVER)
(defalias 'nnir-compose-result #[1285 "\301\302P\"\203\303\304\305\211$\262\306Q!\205\252\307\301\310\301\311\"\203<\312\313\314\315\"\314\316\"\2068\304#\202D\312\313@A@#\262
\"\203N\317\202O\320O\262\321\322\323\321\324\304\n\325\305%\325\305%\326\327\"\301\310\301\311\"\203\201\312\313\314\315\"\314\316\"\206}\304#\202\211\312\313@A@#\262
\"\203\237\330\307\301\331\"O\325#\202\243\332!\332!#\262
\207" [gnus-select-method string-match "^" replace-match "" t file-readable-p 0 "\\`nnmaildir:" "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 -5 -1 replace-regexp-in-string "[/\\]" "." "^[./\\]" nil vector gnus-group-full-name nnmaildir-base-name-to-article-number ":" string-to-number] 17 (#$ . 30746)])
(autoload 'nnimap-change-group "nnimap")
#@203 Run a search against an IMAP back-end server.
This uses a custom query language parser; see `nnir-imap-make-query' for
details on the language and supported extensions.

(fn QUERY SRV &optional GROUPS)
(defalias 'nnir-run-imap #[770 "\212\306\236A\211\203<\203\206A
\307	\"A\206A
\310\232\203&\n\206*
\307\"A\206*
\307\f\"A\206*

$$\203[\311\312$@@@$@@A@#\232\204[$\211A$\210\2029$@@)\206*
%&&\203\207\311\312&@@&@A@#\232\204\207&\211A&\210\202g&@)\206*
'A\313\211()**\203'
\314*\211A*\2428\211);\204\231)\313\315+,)\3162
)\206\303\n),\204\317\317\320	\"\210\317\321\fD\"\210)A@\322\235\203\350\311\323)@\"\202\362\311\312)@)A@#\211-)B\211.	\235\204
+\204
\307.@	\"\204
.	B-*0+\232\203\231)(\313\211*\204\236(+\211/\203>
\307	\"\204>
/B	B/))A@\324\211\203T
<\203T
\206\201\307	\"A\206\201\310\232\203f
\n\206j\307\"A\206j\307\f\"A\206j
$$\203\233
\311\312$@@@$@@A@#\232\204\233
$\211A$\210\202y
$@@)\206j%&&\203\307
\311\312&@@&@A@#\232\204\307
&\211A&\210\202\247
&@)\206j'A\313\211()**\203g\314*\211A*\2428\211);\204\331
)\313\315+,)\3162W)\206\n),\204\317\320	\"\210\317\321\fD\"\210)A@\322\235\203(\311\323)@\"\2022\311\312)@)A@#\211-)B\211.	\235\204S+\204S\307.@	\"\204S.	B-*0+\232\203\331
)(\313\211*\204\336
(+\211/\203~\307	\"\204~/B	B/))8\325\236A\206\222\30701\"A\315\206\233\326!\327\330\"\210\331\332\3332\276\334\335\336\337\332\340
$\341\"\342\343%\"0\"\266\206)\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers query assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") "%s" 2 criteria nnir-get-active message "Opening server %s" apply vconcat found mapcar make-byte-code 257 "\304C\3051]\306\307!\302\"\205Yr\310 q\210\311\312\"\210\313C\314\315\303\316\230\203'\301\202+\317\303\301\"\"\320\321\322\323\324\325\300\n\n\n$\326\"\327\330%@\205J\331\332A\"A\"\210\311\333\242#\266)\311\334\"0\202a\210\202b\210\211\242\237\207" vector [nil (quit) nnimap-change-group gnus-group-short-name nnimap-buffer message "Searching %s..." 0 nnimap-command "UID SEARCH %s" #1# nnir-imap-make-query mapc make-byte-code 257 "\304
!\211\305V\205&\302\306\301\307#\302\242B\240\210\310\300\236\203!\311\312\302\242C\"\210\303\211\242T\240\207" vconcat vector [string-to-number 0 vector 100 shortcut throw found] 7 "\n\n(fn ARTNUM)" assoc "SEARCH" "Searching %s... %d matches" "Searching %s...done"] 14 "\n\n(fn GROUP)" opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result nnir-imap-default-search-key nnir-imap-search-arguments] 22 (#$ . 31725)])
#@1165 Parse the query string and criteria into an appropriate IMAP search
expression, returning the string query to make.

This implements a little language designed to return the expected results
to an arbitrary query string to the end user.

The search is always case-insensitive, as defined by RFC2060, and supports
the following features (inspired by the Google search input language):

Automatic "and" queries
    If you specify multiple words then they will be treated as an "and"
    expression intended to match all components.

Phrase searches
    If you wrap your query in double-quotes then it will be treated as a
    literal string.

Negative terms
    If you precede a term with "-" then it will negate that.

"OR" queries
    If you include an upper-case "OR" in your search it will cause the
    term before it and the term after it to be treated as alternatives.

In future the following will be added to the language:
 * support for date matches
 * support for location of text matching within the query
 * from/to/etc headers
 * additional search terms
 * flag based searching
 * anything else that the RFC supports, basically.

(fn CRITERIA QSTRING)
(defalias 'nnir-imap-make-query #[514 "\300\301!\"\207" [nnir-imap-query-to-imap nnir-imap-parse-query] 6 (#$ . 34863)])
#@66 Turn a s-expression format query into IMAP.

(fn CRITERIA QUERY)
(defalias 'nnir-imap-query-to-imap #[514 "\300\301\302\303\304\305!\306\"\307\310%\311#\207" [mapconcat make-byte-code 257 "\301\300\"\207" vconcat vector [nnir-imap-expr-to-imap] 4 "\n\n(fn ITEM)" " "] 9 (#$ . 36156)])
#@77 Convert EXPR into an IMAP search expression on CRITERIA

(fn CRITERIA EXPR)
(defalias 'nnir-imap-expr-to-imap #[514 "\211;\203\300\301#\207\211\302=\203\303\207\211\242\304=\203+\300\305\306A@\"\306\3078\"#\207\211\242\310=\203;\300\311\312A\"\"\207\211:\203H\300\313\312\"\"\207\314\315\"\207" [format "%s %S" and nil or "OR %s %s" nnir-imap-expr-to-imap 2 not "NOT (%s)" nnir-imap-query-to-imap "(%s)" error "Unhandled input: %S"] 9 (#$ . 36451)])
#@249 Turn STRING into an s-expression based query based on the IMAP
query language as defined in `nnir-imap-make-query'.

This involves turning individual tokens into higher level terms
that the search language can then understand and use.

(fn STRING)
(defalias 'nnir-imap-parse-query #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216
c\210eb\210\311\312 \204(\313 
B\262
\202\314
!\262
*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil nnir-imap-end-of-input nnir-imap-next-expr reverse] 8 (#$ . 36927)])
#@75 Return the next expression from the current buffer.

(fn &optional COUNT)
(defalias 'nnir-imap-next-expr #[256 "\300
!\301 \211\302\267\202\303\304\305!E\202
\207" [nnir-imap-next-term nnir-imap-peek-symbol #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (or 11)) or nnir-imap-next-expr 2] 7 (#$ . 37535)])
#@69 Return the next TERM from the current buffer.

(fn &optional COUNT)
(defalias 'nnir-imap-next-term #[256 "\300
!\211\301\267\202\302\202\303\304 D\202\211\207" [nnir-imap-next-symbol #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (and 9 not 13)) and not nnir-imap-next-expr] 4 (#$ . 37890)])
#@71 Return the next symbol from the current buffer, but don't consume it.
(defalias 'nnir-imap-peek-symbol #[0 "\212\300 )\207" [nnir-imap-next-symbol] 1 (#$ . 38232)])
#@203 Return the next symbol from the current buffer, or nil if we are
at the end of the buffer.  If supplied COUNT skips some symbols before
returning the one at the supplied position.

(fn &optional COUNT)
(defalias 'nnir-imap-next-symbol #[256 "\211\247\203\211\301V\203\302
S!\210\303\304 ?\205\207\305\306!\203%\301u\210\307\202\207\305\310!\2031\311\310!\202\207\305\312!\203?\313\311\314!!\202\207\305\315!\203L\316u\210\317\202\207\305\320!\203Y\321u\210\322\202\207\305\323!\203f\316u\210\307\202\207`\324\325\326\303#\203\200\327\224\330\331\332\327!\"\203\202\333u\210\202\202db

{\266\202)\207" [case-fold-search 1 nnir-imap-next-symbol t nnir-imap-end-of-input looking-at "-" not "\"" nnir-imap-delimited-string "(" nnir-imap-parse-query ")" "\\band\\b" 3 and "\\bor\\b" 2 or "\\bnot\\b" search-forward-regexp "[[:blank:]]" nil 0 string-match "[^[:blank:]]" match-string -1] 7 (#$ . 38404)])
#@68 Return a delimited string from the current buffer.

(fn DELIMITER)
(defalias 'nnir-imap-delimited-string #[257 "`\300\301u\210\211\204)\302\300\303#\204\304\305\"\210`\211\306Z
S{\307\232\204%`\262\210\202
T
S{\207" [nil 1 search-forward t error "Unmatched delimited input with %s in query" 2 "\\"] 7 (#$ . 39330)])
#@29 Are we at the end of input?
(defalias 'nnir-imap-end-of-input #[0 "\300\301w\210\302\303!\207" ["[[:blank:]]" nil looking-at "$"] 2 (#$ . 39661)])
#@219 Run QUERY against swish++.
Returns a vector of (group name, file name) pairs (also vectors,
actually).

Tested with swish++ 4.7 on GNU/Linux and with swish++ 5.0b2 on
Windows NT 4.0.

(fn QUERY SERVER &optional GROUP)
(defalias 'nnir-run-swish++ #[770 "\212\304\236A\305\236A\306\307\"\310\311\312\311\313\"\203+\314\315\316\317\"\316\320\"\206'\321#\2023\314\315@A@#\262
\"\203=\322\202>\323\310\211\211\211\321\232\203M\324\325!\210\326	!q\210\327 \210\203e\330\331\n\n#\210\202k\330\332\n\"\210\n\310\333\310\334\306\335\"\336\306\337\"C\"BBBBBB\330\340\n\341\342\343\233\344##\210\345\346\"\211\203\260\211\347U\204\260\350\351\352#\210\353V\203\260\354	!\210\266eb\210\355\356\310\333#\203

\316\317!\262\316\320!\262
\357
!\262\360
!\262\311\"\203\265
\203\265\203\351\311\"\203\265\361\n%\211\203\375\211B\262\210\202\265\330\362!\210\345\363\364\365\"\"\266\211)\207" [gnus-select-method nnir-tmp-buffer nnir-swish++-program gnus-verbose query swish++-group nnir-read-server-parm nnir-swish++-remove-prefix nil string-match "\\`nnmaildir:" "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 "" ":[0-9]+" "^[0-9]+\\(\\.[a-z0-9]+\\)?$" error "swish++: You didn't enter anything" get-buffer-create erase-buffer message "Doing swish++ query %s on %s..." "Doing swish++ query %s..." t "--config-file" nnir-swish++-configuration-file append nnir-swish++-additional-switches "%s args: %s" mapconcat identity 4 " " apply call-process 0 nnheader-report nnir "Couldn't run swish++: %s" 6 display-buffer re-search-forward "\\(^[0-9]+\\) \\([^ ]+\\) [0-9]+ \\(.*\\)$" file-name-nondirectory file-name-directory nnir-compose-result "Massaging swish++ output...done" vector sort #[514 "
\300\234
\300\234V\207" [2] 5 "\n\n(fn X Y)"]] 22 (#$ . 39815)])
#@191 Run given query against swish-e.
Returns a vector of (group name, file name) pairs (also vectors,
actually).

Tested with swish-e-2.0.1 on Windows NT 4.0.

(fn QUERY SERVER &optional GROUP)
(defalias 'nnir-run-swish-e #[770 "\212\303\236A\304\305\"\206\306\307!\310\211\211\211\211\311\232\203\306\312!\210\313!q\210\314 \210\315\316\"\210\304\317\n\"\2068\306\320!\304\321\"	\310\322\310\323\324\325D#BBBBB\315\326	\327\330\331\233\332##\210\333\334\"\211\203|\211\335U\204|\336\337\340#\210\n\341V\203|\342!\210\266eb\210\343\344\310\322#\203\351\345\346!\262\345\347!\262\350\345\351!!\262\352\353\"\203\201
\203\201\352\354P\"\203\267\355\311\322\211$\262
\335\356O\262\352\357\"\210\360\361\362\345\346\"#\262
\360\363\362#\262
\364\365\"\366!\366!#B\262\202\201\315\367!\210\333\364\370\371\"\"\266\207)\207" [nnir-tmp-buffer nnir-swish-e-program gnus-verbose query nnir-read-server-parm nnir-swish-e-remove-prefix error "Missing parameter `nnir-swish-e-remove-prefix'" nil "" "swish-e: You didn't enter anything" get-buffer-create erase-buffer message "Doing swish-e query %s..." nnir-swish-e-index-files "Missing parameter `nnir-swish-e-index-files'" nnir-swish-e-additional-switches t "-f" append "-w" "%s args: %s" mapconcat identity 4 " " apply call-process 0 nnheader-report nnir "Couldn't run swish-e: %s" 6 display-buffer re-search-forward "\\(^[0-9]+\\) \\([^ ]+\\) \"\\([^\"]+\\)\" [0-9]+$" match-string 1 3 file-name-directory 2 string-match "^[0-9]+$" "^" replace-match -1 "^[./\\]*\\(.*\\)$" replace-regexp-in-string "/" "." "\\\\" vector gnus-group-full-name string-to-number "Massaging swish-e output...done" sort #[514 "
\300\234
\300\234V\207" [2] 5 "\n\n(fn X Y)"]] 22 (#$ . 41657)])
#@37 

(fn QUERY SERVER &optional GROUP)
(defalias 'nnir-run-hyrex #[770 "\212\303\304\236A\305\236A\306\307\"\303\211\211\204$\203$\310\311\312\n\"!\262\313!q\210\314 \210\315\316\"\210	\303\317\303\320\306\321\"\322\306\323\"\fC\"BBBBBB\315\324	\325\326\327\233\330##\210\331\332\"\211\203w\211\333U\204w\334\335\336#\210\n\337V\203w\340!\210\266\315\341\"\210\342\333!\210eb\210\343\344!\210\203\223\345!\210eb\210\346\347\303\317#\203\326\350\351!\262
\350\352!\262\350\353!\262\354\"\203\274\355\356\317\211$\262
\357\360\361\362\363#\"\364!\364!#B\262\202\226\315\365!\210\331\357\366	\367\"\"\266\207)\207" [nnir-tmp-buffer nnir-hyrex-program gnus-verbose nil hyrex-group query nnir-read-server-parm nnir-hyrex-remove-prefix regexp-opt mapcar #[257 "\211\300\301\"\203\211\302\225\303O\202\211\207" [string-match "^[^:]+:" 0 nil] 5 "\n\n(fn X)"] get-buffer-create erase-buffer message "Doing hyrex-search query %s..." t "-i" nnir-hyrex-index-directory append nnir-hyrex-additional-switches "%s args: %s" mapconcat identity 4 " " apply call-process 0 nnheader-report nnir "Couldn't run hyrex-search: %s" 6 display-buffer "Doing hyrex-search query \"%s\"...done" sit-for delete-non-matching-lines "^\\S + [0-9]+ [0-9]+$" keep-lines re-search-forward "\\(\\S +\\) \\([0-9]+\\) \\([0-9]+\\)" match-string 1 2 3 string-match replace-match "" vector gnus-group-full-name replace-regexp-in-string "/" "." string-to-number "Massaging hyrex-search output...done." sort #[514 "
\300\234
\300\234\231\203\f\301\207
\302\234
\302\234W\207" [0 t 1] 5 "\n\n(fn X Y)"]] 20 (#$ . 43430)])
#@194 Run given query against Namazu.  Returns a vector of (group name, file name)
pairs (also vectors, actually).

Tested with Namazu 2.0.6 on a GNU/Linux system.

(fn QUERY SERVER &optional GROUP)
(defalias 'nnir-run-namazu #[770 "\212\305\306\305\307\"\203\310\311\312\313\"\312\314\"\206\315#\202%\310\311@A@#\262
\"\203/\316\2020\317\320\321\236A\322\323\"\320\211\211\324	!\325\326\327\"\210\330\n!q\210\331 \210\320\332\320\333\334\335\336\322\337\"
\322\340\"D\"BBBBBBB\341\342\343\344\345\233\346##\210\347\350\"\211\203\226\211\351U\204\226\352\353\354#\210\f\355V\203\226\356\n!\210\266eb\210\357\360\320\332#\203\331\312\361!\262\362\312\345!!\262\363\312\345!!\262
\305\"\203\233
\203\233\364
%\211\203\325\211B\262\210\202\233\347\365\366\367\"\")\266\207)\207" [gnus-select-method process-environment nnir-tmp-buffer nnir-namazu-program gnus-verbose string-match "\\`nnmaildir:" "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 "" ":[0-9]+" "^[0-9]+$" nil query nnir-read-server-parm nnir-namazu-remove-prefix copy-sequence setenv "LC_MESSAGES" "C" get-buffer-create erase-buffer t "-q" "-a" "-s" append nnir-namazu-additional-switches nnir-namazu-index-directory message "%s args: %s" mapconcat identity 4 " " apply call-process 0 nnheader-report nnir "Couldn't run namazu: %s" 6 display-buffer re-search-forward "^\\([0-9,]+\\.\\).*\\((score: \\([0-9]+\\)\\))\n\\([^ ]+\\)" 3 file-name-directory file-name-nondirectory nnir-compose-result vector sort #[514 "
\300\234
\300\234V\207" [2] 5 "\n\n(fn X Y)"]] 23 (#$ . 45070)])
#@139 Run QUERY against notmuch.
Returns a vector of (group name, file name) pairs (also vectors,
actually).

(fn QUERY SERVER &optional GROUP)
(defalias 'nnir-run-notmuch #[770 "\212\304\236A\305\236A\306\307\"\310\311\312\311\313\"\203+\314\315\316\317\"\316\320\"\206'\321#\2023\314\315@A@#\262
\"\203=\322\202>\323\310\211\211\321\232\203L\324\325!\210\326	!q\210\327 \210\203d\330\331		#\210\202j\330\332	\"\210\n\310\333\310\334\335\336\337\306\340\"C\"BBBBBBB\330\341\n\342\343\344\233\345##\210\346\347\"\211\203\255\211\350U\204\255\351\352\353#\210\354V\203\255\355	!\210\266eb\210m\204\372\356\357 \360 \"\262
\361
!\262\362
!\262\317y\210\311\"\203\262
\203\262\203\343\311\"\203\262\363\321	%\211\203\366\211B\262\210\202\262\330\364!\210\266\210)\207" [gnus-select-method nnir-tmp-buffer nnir-notmuch-program gnus-verbose query notmuch-group nnir-read-server-parm nnir-notmuch-remove-prefix nil string-match "\\`nnmaildir:" "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 "" ":[0-9]+" "^[0-9]+$" error "notmuch: You didn't enter anything" get-buffer-create erase-buffer message "Doing notmuch query %s on %s..." "Doing notmuch query %s..." t "search" "--format=text" "--output=files" append nnir-notmuch-additional-switches "%s args: %s" mapconcat identity 4 " " apply call-process 0 nnheader-report nnir "Couldn't run notmuch: %s" 6 display-buffer buffer-substring-no-properties line-beginning-position line-end-position file-name-nondirectory file-name-directory nnir-compose-result "Massaging notmuch output...done"] 22 (#$ . 46688)])
#@87 Run find and grep to obtain matching articles.

(fn QUERY SERVER &optional GROUPLIST)
(defalias 'nnir-run-find-grep #[770 "
\211\203<\203\206<
\306	\"A\206<
\307\232\203!\n\206%
\306\"A\206%
\306\f\"A\206%

%%\203V\310\311%@@@%@@A@#\232\204V%\211A%\210\2024%@@)\206%
&''\203\202\310\311'@@'@A@#\232\204\202'\211A'\210\202b'@)\206%
(A\312\211)*++\203\"
\313+\211A+\2428\211*;\204\224*\312\314,-*\3152
*\206\276\n*-\204\312\316\317	\"\210\316\320\fD\"\210*A@\321\235\203\343\310\322*@\"\202\355\310\311*@*A@#\211.*B\211/	\235\204
,\204
\306/@	\"\204
/	B.*0+\232\203\224*)\312\211+\204\231)+\2110\2039
\306	\"\2049
0B	B0))\323\324@!\325P!\306
AA\"A@\306\326\"A\306\327\"A\206a
\330!\204k
\331\332	\"\210\333\334\335\336\337\340\334\341\f\f\f$\342\"\343\344%\"\"\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" intern symbol-name "-directory" query grep-options nnir-get-active error "No directory found in method specification of server %s" apply vconcat mapcar make-byte-code 257 "\211\306\307\310\206	\300\"\210\311 \312\313\314\315\316!\317\"\320$\216\321\f!q\210
\322V\203(\323p!\210\324\301!\210\2044\325\202c\326\327\"\203D\211\313\225\306O\202E\211\262
\330
!\203Q\211\202a\330\331\332\333\306\334%\211\262!\205a\211\262
\211\204k\335\336!\210\212\337\340\341\306\334\341\342\343\344\345\346\347\350\351\352\353\303\205\207\354\303\355\334#\356\302\357BB\"B&\210)\210m\204\352\354`\360 {\333\334#\361\362!@!
@\325\230\203\263
A\262\202\245\363\364GS\306
S\211\262\313Y\203\320\211A\262\242
B\262
\202\271\211\237\266\202\325#\316\365\300\"\313#B\262\210\366y\266\202\223\307\367\206\361\300\"\210
)\262
\207" vector [nnir-tmp-buffer gnus-verbose nil message "Searching %s using find-grep..." current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 get-buffer-create 6 pop-to-buffer cd "." string-match "^[^:]+:" file-directory-p replace-regexp-in-string "\\." "/" t error "Cannot locate directory for group" apply call-process "find" "-maxdepth" "1" "-type" "f" "-name" "[0-9]*" "-exec" "grep" "-l" append split-string "\\s-" "-e" ("{}" "+") line-end-position string-to-number last mapconcat identity gnus-group-full-name 1 "Searching %s using find-grep...done"] 26 "\n\n(fn X)" opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 22 (#$ . 48327)])
#@80 Run a search against a gmane back-end server.

(fn QUERY SRV &optional GROUPS)
(defalias 'nnir-run-gmane #[770 "\306\307\236A\211\203	<\203	\206C
\310	\n\"A\206C
	\311\232\203'\206,
\310	\f\"A\206,
\310	
\"A\206,
899\203]	\312\3139@@@9@@A@#\232\204]9\211A9\210\202;9@@)\206,
:;;\203\211	\312\313;@@;@A@#\232\204\211;\211A;\210\202i;@)\206,
<A\314\211=>??\203)
\315?\211A?\2428\211>;\204\233	>\314\306@A>\3162
>\206\305>A\204\321\317\320\n\"\210\317\321\f
D\"\210>A@\322\235\203\352\312\323>@\"\202\364\312\313>@>A@#\211B>B\211C\n\235\204
@\204
\310C@\n\"\204
C\nBB*0+\232\203\233>=\314\211?\204\240=+\211D\203@
\310	\n\"\204@
	DB\nBD))A@\324\325\326#\327\236\203]
\312\330\327\236A\"\202^
\331\312\332$\306\314\333\334!\210r\335E!q\210\336 \210\337\340\341\342\343B\344B!Q!\210\345\306!\210\346ed\347#\210eb\210\350y\210m\204\323
l\204\315
\351\352!\204\315
\353 \211\354H\355\310\356\357H\"A!\360\361\"\203\313
\362\363\364\350\"\"\355\364\365\"!#B\262\266\350y\210\202\222
)\366\362\367!\237\")\207" [case-fold-search server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist t query assoc "native" format "%s:%s" nil 4 server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") "%s" mapconcat #[257 "\301
\302\303\304#)\266\203\203\305\306\307!\"\207\310\311\"\207" [inhibit-changing-match-data "gmane" nil t string-match format "group:%s" gnus-group-short-name error "Can't search non-gmane groups: %s"] 8 "\n\n(fn X)"] " " gmane-author "author:%s" #1# "%s %s %s" require mm-url get-buffer-create erase-buffer mm-url-insert "http://search.gmane.org/nov.php" "?" mm-url-encode-www-form-urlencoded "query" (("HITSPERPAGE" . "999")) set-buffer-multibyte decode-coding-region utf-8 1 looking-at "
" nnheader-parse-nov 8 string-to-number X-Score 9 string-match " \\([^:]+\\)[:/]\\([0-9]+\\)" vector gnus-group-prefixed-name match-string 2 apply delete-dups gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result nnir-tmp-buffer] 20 (#$ . 51307)])
#@47 Say whether GROUP is nnir or not.

(fn GROUP)
(defalias 'gnus-nnir-group-p #[257 "\300
!\203
\301
!@\302=\207\211\205\303\304\"\207" [gnus-group-prefixed-p gnus-find-method-for-group nnir string-match "^nnir"] 4 (#$ . 53778)])
#@90 Reads additional search parameters according to `nnir-engines'.

(fn NNIR-SEARCH-ENGINE)
(defalias 'nnir-read-parms #[257 "\301\302\"8\303\304\"\207" [nnir-engines 2 assoc mapcar nnir-read-parm] 5 (#$ . 54015)])
#@118 Reads a single search parameter.
`parmspec' is a cons cell, the car is a symbol, the cdr is a prompt.

(fn PARMSPEC)
(defalias 'nnir-read-parm #[257 "\211@
A\211<\203#\302\303\"\304
\"\206\305	B\306A\"B\266\202\202(
\307!B\207" [nnir-imap-search-arguments nnir-imap-search-other apply gnus-completing-read assoc nil format read-string] 9 (#$ . 54237)])
#@77 Invoke appropriate search engine function (see `nnir-engines').

(fn SPECS)
(defalias 'nnir-run-query #[257 "\300\301\302\303\304\305\301\306!\307\"\310\311%\312\236A\"\"\207" [apply vconcat mapcar make-byte-code 257 "\211@\302
!\303
	\"A@\211\205\211\304\300\236AA@#\207" vector [nnir-engines nnir-server-to-search-engine assoc nnir-query-spec] 8 "\n\n(fn X)" nnir-group-spec] 10 (#$ . 54606)])
#@15 

(fn SERVER)
(defalias 'nnir-server-to-search-engine #[257 "\306\307\310#\206K
\311
\211\203<\203\206E
\311	\"A\206E
\312\232\203*\n\206.
\311\"A\206.
\311\f\"A\206.

\203_\313\314@@@@@A@#\232\204_\211A\210\202=@@)\206.
\203\213\313\314@@@A@#\232\204\213\211A\210\202k@)\206.
A\315\211\203+
\316\211A\2428\211;\204\235\315\310\3172
\206\307\n\204\323\320\321	\"\210\320\322\fD\"\210A@\323\235\203\354\313\324@\"\202\366\313\314@A@#\211B\211	\235\204
\204
\311@	\"\204
	B*0+\232\203\235\315\211\204\242+\211 \203B
\311	\"\204B
 B	B ))@!\"A\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers nnir-read-server-parm nnir-search-engine t assoc "native" format "%s:%s" nil 4 server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result nnir-method-default-engines] 8 (#$ . 55016)])
#@204 Returns the parameter value corresponding to `key' for
`server'. If no server-specific value is found consult the global
environment unless `not-global' is non-nil.

(fn KEY SERVER &optional NOT-GLOBAL)
(defalias 'nnir-read-server-parm #[770 "
\211\203<\203\206<
\306	\"A\206<
\307\232\203!\n\206%
\306\"A\206%
\306\f\"A\206%

\203V\310\311@@@@@A@#\232\204V\211A\210\2024@@)\206%
\203\202\310\311@@@A@#\232\204\202\211A\210\202b@)\206%
A\312\211\203\"
\313\211A\2428\211;\204\224\312\314\3152
\206\276\n\204\312\316\317	\"\210\316\320\fD\"\210A@\321\235\203\343\310\322@\"\202\355\310\311@A@#\211B\211	\235\204
\204
\306@	\"\204
	B*0+\232\203\224\312\211\204\231+\211\2039
\306	\"\2049
B	B))\211\203S

AA\236\203S

AA\236A@\202c

\204b
\323!\203b
J\202c
\312\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" boundp opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 9 (#$ . 56410)])
#@31 

(fn GROUP &optional SERVER)
(defalias 'nnir-possibly-change-group #[513 "\211\203\301
!\204\302
!\210\303!\205 \304\305\306!\307\"\300\310#\211\207" [nnir-artlist nnir-server-opened nnir-open-server gnus-nnir-group-p gnus-group-get-parameter gnus-group-prefixed-name gnus-group-short-name (nnir "nnir") t] 6 (#$ . 57965)])
#@25 

(fn &optional SERVER)
(defalias 'nnir-server-opened #[256 "\211\211\203<\203\206<
\306	\"A\206<
\307\232\203!\n\206%
\306\"A\206%
\306\f\"A\206%

\203V\310\311@@@@@A@#\232\204V\211A\210\2024@@)\206%
\203\202\310\311@@@A@#\232\204\202\211A\210\202b@)\206%
A\312\211\203\"
\313\211A\2428\211;\204\224\312\314\3152
\206\276\n\204\312\316\317	\"\210\316\320\fD\"\210A@\321\235\203\343\310\322@\"\202\355\310\311@A@#\211B\211 	\235\204
\204
\306 @	\"\204
 	B*0+\232\203\224\312\211\204\231+\211!\2039
\306	\"\2049
!B	B!))@\211\206C
\323\"\324\"!#\203Y
\310\325##\202Z
\232*\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" nnir nnoo-current-server "%s+%s" opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result backend nnoo-parent-backend] 7 (#$ . 58304)])
(autoload 'nnimap-make-thread-query "nnimap")
#@236 Make an nnir group based on the thread containing the 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 'nnir-search-thread #[257 "\306\307!B\310\311BD\312!\313\211\3142h\206\f\n\204$\315\316
\"\210\315\317 D\"\210A@\320\235\203=\321\322@\"\202E\321\323@A@#\211!B\211\"
\235\204d	\204d\324\"@
\"\204d\"
B!*0+CC\325\326!\205}\205}\327\330H\331\"@\211\205\341\312
!\313\211\3142\340\206\222\f\n\204\234\315\316
\"\210\315\317 D\"\210A@\320\235\203\265\321\322@\"\202\275\321\323@A@#\211!B\211\"
\235\204\334	\204\334\324\"@
\"\204\334\"
B!*0+\211\203\370\211C\211\235\203\361\202\364\211B\262
\262\332\313\333B\334BD\"\210\335\336\330H!!\207" [gnus-newsgroup-name no-enter-cache nocache method gnus-select-method gnus-server-method-cache query nnimap-make-thread-query criteria #1="" gnus-find-method-for-group nil server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1#) format "%s" "%s:%s" assoc boundp gnus-registry-enabled gnus-registry-get-id-key 4 group gnus-group-make-nnir-group nnir-query-spec nnir-group-spec gnus-summary-goto-subject gnus-id-to-article gnus-server-alist gnus-predefined-server-alist name name-method] 10 (#$ . 59770)])
#@12 

(fn SRV)
(defalias 'nnir-get-active #[257 "\211\211\203<\203\206<
\306	\"A\206<
\307\232\203!\n\206%
\306\"A\206%
\306\f\"A\206%

!!\203V\310\311!@@@!@@A@#\232\204V!\211A!\210\2024!@@)\206%
\"##\203\202\310\311#@@#@A@#\232\204\202#\211A#\210\202b#@)\206%
$A\312\211%&''\203\"
\313'\211A'\2428\211&;\204\224&\312\314()&\3152
&\206\276\n&)\204\312\316\317	\"\210\316\320\fD\"\210&A@\321\235\203\343\310\322&@\"\202\355\310\311&@&A@#\211*&B\211+	\235\204
(\204
\306+@	\"\204
+	B**0+\232\203\224&%\312\211'\204\231%+\211,\2039
\306	\"\2049
,B	B,))\312\323!\210r-q\210p\312eb\210.\203]
.\324\230\204]
\325.!\210@\326=\203\215
m\204\352
\3271\202
\330\331`\332\312w\210`{\"!B\211\2620\202\206
\210\202\207
\210\312y\210\202d
m\204\352
\3331\337
\330\312f\334=\203\247
\331\335!\"\202\325
`\324\336\312w\210
`{\262
\312f\337=\203\316
`T\262\340u\210\336\312w\210\211`{P\262
\202\262
\331
\"\266\202!B\211\2620\202\343
\210\202\344
\210\312y\210\202\215
\266)\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") "%s" gnus-request-list #1# delete-matching-lines nntp (error) string-as-unibyte gnus-group-full-name "^ 	" (error) 34 read "^ 	\\\\" 92 2 opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result nntp-server-buffer nnir-ignored-newsgroups] 11 (#$ . 61413)])
#@112 Call `gnus-registry-action' with the original article group.

(fn ACTION DATA-HEADER FROM &optional TO METHOD)
(defalias 'nnir-registry-action #[1283 "\301\211\302H\302V\205\302HS\234\302\234%\207" [nnir-artlist gnus-registry-action 0] 11 (#$ . 63305)])
(defalias 'nnir-mode #[0 "\304!@\305=\205?	\206\n\306\303!\205?\205?\307\310\311\312#\210\307\313\311\312#\210\307\314\311\312#\210\315\310\316\312\211$\210\315\313\316\312\211$\210\315\314\316\312\211$\207" [gnus-newsgroup-name nnir-summary-line-format gnus-summary-line-format gnus-registry-enabled gnus-find-method-for-group nnir boundp remove-hook gnus-summary-article-delete-hook gnus-registry-action t gnus-summary-article-move-hook gnus-summary-article-expire-hook add-hook nnir-registry-action] 5])
(defalias 'gnus-summary-create-nnir-group #[0 "\302\303!\204\n\304\305!\210\306\307!\310\311!r	q\210\312\313\314!$)\207" [gnus-newsgroup-name gnus-group-buffer nnir-server-opened #1="" nnir-open-server "nnir" gnus-read-group "Group name: " (nnir #1#) gnus-group-guess-full-name-from-command-method gnus-group-make-group nil gnus-group-find-parameter] 9 nil nil])
#@36 

(fn GROUP &optional SERVER ARGS)
(defalias 'nnir-request-create-group #[769 "\301\302\"\210\303\304\"\305\236\306
\236A\206\307\310\311\312\313#BC\314\236A\206)\310\315\312\211#CC\306B\314BD\316\305#\210\316\317\211	\236A\206D\320!#\210\321\322\323\"J8\"\266\324\207" [gnus-newsrc-hashtb message "Creating nnir group %s" gnus-group-prefixed-name (nnir "nnir") nnir-specs nnir-query-spec query read-string "Query: " nil nnir-search-history nnir-group-spec "Server: " gnus-group-set-parameter nnir-artlist nnir-run-query nnir-request-update-info 2 intern-soft t] 14 (#$ . 64457)])
(nnoo-register-function 'nnir-request-create-group)
#@37 

(fn GROUP &optional FORCE SERVER)
(defalias 'nnir-request-delete-group #[769 "\300\207" [t] 4 (#$ . 65116)])
(nnoo-register-function 'nnir-request-delete-group)
#@25 

(fn &optional SERVER)
(defalias 'nnir-request-list #[256 "\300\207" [t] 2 (#$ . 65285)])
(nnoo-register-function 'nnir-request-list)
#@21 

(fn GROUP METHOD)
(defalias 'nnir-request-scan #[514 "\300\207" [t] 3 (#$ . 65426)])
(nnoo-register-function 'nnir-request-scan)
(defalias 'nnir-request-close #[0 "\300\207" [t] 1])
(byte-code "\300\301!\210\302\303!\210\304\303!\207" [nnoo-register-function nnir-request-close nnoo-define-skeleton-1 nnir provide] 2)