Current File : //usr/local/share/emacs/27.2/lisp/gnus/nnir.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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))
#@60 Internal: the history for querying search options in nnir.
(defvar nnir-search-history nil (#$ . 754))
#@29 Internal: temporary buffer.
(defconst nnir-tmp-buffer " *nnir*" (#$ . 863))
#@71 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" . "")) (#$ . 945))
#@138 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" (#$ . 1187))
#@50 The history for querying search options in nnir.
(defvar nnir-imap-search-argument-history nil (#$ . 1386))
#@53 Return number of articles in artlist.
(fn ARTLIST)
(defalias 'nnir-artlist-length '(macro . #[257 "\300D\207" [length] 3 (#$ . 1500)]))
#@79 Return 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)]))
#@50 Return the group from the ARTITEM.
(fn ARTITEM)
(defalias 'nnir-artitem-group '(macro . #[257 "\300\301BB\207" [elt (0)] 4 (#$ . 1848)]))
#@51 Return the number from the ARTITEM.
(fn ARTITEM)
(defalias 'nnir-artitem-number '(macro . #[257 "\300\301BB\207" [elt (1)] 4 (#$ . 1994)]))
#@80 Return the Retrieval Status Value (RSV, score) from the ARTITEM.
(fn ARTITEM)
(defalias 'nnir-artitem-rsv '(macro . #[257 "\300\301BB\207" [elt (2)] 4 (#$ . 2142)]))
#@45 Return 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 (#$ . 2316)]))
#@46 Return 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 (#$ . 2506)]))
#@43 Return 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 (#$ . 2699)]))
#@65 Return the pair `(nnir id . real id)' of ARTICLE.
(fn ARTICLE)
(defalias 'nnir-article-ids #[257 "\211\301V\205 S\234\302\234B\207" [nnir-artlist 0 1] 4 (#$ . 2883)])
(put 'nnir-article-ids 'byte-optimizer 'byte-compile-inline-expand)
#@372 Sort 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 (#$ . 3130)]))
(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\201A DD\201B \333\201C \321\305&\210\323\201D \325\326\201E DD\201F \333\201G \321\305&\210\323\201H \325\326\201I DD\201J \333\201K \321\305&\210\323\201L \325\326\201M DD\201N \333\201O \321\305&\210\323\201P \325\326\201Q DD\201R \333\201S \321\305&\210\323\201T \325\326\201U DD\201V \333\201W \321\305&\210\323\201X \325\326\201Y DD\201Z \333\201[ \321\305&\210\323\201\\ \325\326\201] DD\201^ \333\201_ \321\305&\210\323\201` \325\326\201a DD\201b \333\201c \321\305&\210\323\201d \325\326\201e DD\201f \333\201g \321\305&\210\323\201h \325\326\201i DD\201j \333\201k \321\305&\210\323\201l \325\326\201m DD\201n \333\201o \321\305&\210\323\201p \325\326\201q DD\201r \331\332\333\201s \321\305& \210\323\201t \325\326\201u DD\201v \331\332\333\201w \321\305& \210\323\201x \325\326\201y DD\201z \331\201{ \333\201| \321\305& \210\323\201} \325\326\201~ DD\201 \331\201{ \333\201\200 &\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\nbe 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\na search result, `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\nthe keys in `nnir-imap-search-arguments'. To use raw imap queries\nby 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\nswitches make 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\302!\206\n \303\304!!\207" [regexp-quote getenv "MAILDIR" expand-file-name "~/Mail"] 3] "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." "27.1" (regexp) nnir-notmuch-filter-group-names-function #[0 "\300\207" [nil] 1] "Whether and how to use Gnus group names as \"path:\" search terms.\nWhen nil, the groups being searched in are not used as notmuch\n:path search terms. It's still possible to use \"path:\" terms\nmanually within the search query, however.\n\nWhen a function, map this function over all the group names. To\nuse the group names unchanged, set to (lambda (g) g). Multiple\ntransforms (for instance, converting \".\" to \"/\") can be added\nlike so:\n\n(add-function :filter-return\n nnir-notmuch-filter-group-names-function\n (lambda (g) (replace-regexp-in-string \"\\\\.\" \"/\" g)))" (choice function (const :tag "No" nil))] 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 ((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) (#$ . 13669))
(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))] 1] "Alist of default search engines keyed by server method." :version "27.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 "\301\236A\206X \302 \203 \302 CC\202X \204, \303 \203\" \303 C\202) \304\305\306\307 !\"\205X \310C\311\312\313\314\315\316!\317\"\320\321%\206R \303 \203K \303 C\202R \304\322\306\307 !\"\"\210\211\242\262\323\236A\206r \324\325\326\327\330\310\331#BC\205q \304\332\"#\333\334\335 P\336\337D\310\211\211\211\340\323 B\301 BDB\341\310BD&\207" [gnus-group-marked nnir-group-spec gnus-server-server-name gnus-group-group-name mapcar #[257 "\211A@\211@\207" #1=[] 3 "\n\n(fn ENTRY)"] gnus-topic-find-groups 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)" #[257 "\211A@\211@\207" #1# 3 "\n\n(fn ENTRY)"] nnir-query-spec apply append query read-string "Query: " nnir-search-history #[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 (#$ . 15694) "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@#\262CDCBC\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 (#$ . 17540) "P"])
#@37
(fn SERVER &optional DEFINITIONS)
(defalias 'nnir-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\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206)
\211\203r \310\311@@@A@#\232\204r \211A\266\202\202W \211@\262\206) A\312\211\203'\211A\262\242\3138\262\262;\204~ \312\314C\3152\211\242\206\245 \240\210\204\274 \316\317\320\321\322\323!\324\"\313\325%\"\210\n D\211\203\335 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\277 \210\211\242A@\330\235\203\360 \310\331\242@\"\202\372 \310\311\242@\242A@#\211\242B\211\235\204\204\306@\"\204\211B\266\2020\266\204\232\203~ \262\312\262\202~ \266\202\211\203:\306\"\204:BB\211\262\262@\211\203L\332#\202V\333\334\335\"\210\332\336#\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-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" nnoo-change-server add-hook gnus-summary-generate-hook nnir-mode nnir gnus-newsrc-alist] 20 (#$ . 17987)])
(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\211\314 \"A@\262\"\210r\nq\210G\211\262\315U\203H \316!\210\317\320\321\"\210\202Q \322\323\324\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 gethash 0 nnir-close-group nnheader-report nnir "Search produced empty results." nnheader-insert "211 %d %d %d %s\n" 1] 14 (#$ . 19473)])
(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\"\203T \327\330\331\332\"\331\333\"\206P \334#\202\\ \327\330\n@\nA@#\262\211\211\203l \211<\203l \211\206\235\335 \"A\206\235\211\336\232\203~ \n\206\211\335\f\"A\206\211\335
\"A\206\2114\211\203\255 \327\330@@@@@A@#\232\204\255 \211A\266\202\202\220 \211@@\262\206\2115\211\203\322 \327\330@@@A@#\232\204\322 \211A\266\202\202\267 \211@\262\206\2116A\307\211\203\207\211A\262\242\3378\262\262;\204\336 \307\306C\3402x\211\242\206\n\240\210\204 \310\311\312\341\314\315!\342\"\337\343% \"\210\f
D\211\203=\211@\310\311\312\344\314\315!\345\"\337\343%\"\210A\266\202\202 \210\211\242A@\346\235\203P\327\347\242@\"\202Z\327\330\242@\242A@#\211\242B\211 \235\204t\204t\335@ \"\204t\211 B\266\2020\266\204\232\203\336 \262\307\262\202\336 \266\202\211\203\232\335 \"\204\232B B\211\262\262 7\307\350 \2108\203\2638\"\206\271\351\307#\2119\211\352\267\202\316\353\262\202\326\354\262\202\326\355\3569#\210\210eb\210m\204\211 \211\205\347\211\357H\360\"@\211\203\376\211\357I\266\nB\262\n\332y\266\202\332)\266\202$ \321\361\"\262\350 \210\310\362\"\210)\363\266\203)\207" [nntp-server-buffer gnus-inhibit-demon gnus-select-method 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 "\211A\300\242\232\205
\301\302@\"\207" [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (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 450 headers 456)) 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 gnus-secondary-select-methods gnus-newsrc-alist gnus-override-method nnir-retrieve-headers-override-function gnus-headers-retrieved-by] 30 (#$ . 20184)])
(nnoo-register-function 'nnir-retrieve-headers)
#@49
(fn ARTICLE &optional GROUP SERVER TO-BUFFER)
(defalias 'nnir-request-article #[1025 "\306\"\210;\203U\211\203 \211<\203 \211\206G\307\"A\206G\211\310\232\203* \2063\307\n\"A\2063\307 \"A\2063\f\211\203X \311\312@@@@@A@#\232\204X \211A\266\202\202; \211@@\262\2063
\211\203| \311\312@@@A@#\232\204| \211A\266\202\202a \211@\262\2063+A\313\211\2031\211A\262\242\3148\262\262;\204\210 \313\315C\3162\"\211\242\206\257 \240\210\204\306 \317\320\321\322\323\324!\325\"\314\326%\"\210\n D\211\203\347 \211@\317\320\321\327\323\324!\330\"\314\326%\"\210A\266\202\202\311 \210\211\242A@\331\235\203\372 \311\332\242@\"\202\311\312\242@\242A@#\211\242B\211\235\204 \204 \307@\"\204 \211B\266\2020\266\204\232\203\210 \262\313\262\202\210 \266\202\211\203D\307\"\204DBB\211\262\262@\333=\204U\334\335\336#\207\212\313;\203\317\211\203k\211<\203k\211\206\232\307\"A\206\232\211\310\232\203} \206\206\307\n\"A\206\206\307 \"A\206\206\f\211\203\253\311\312@@@@@A@#\232\204\253\211A\266\202\202\216\211@@\262\206\206
\211\203\317\311\312@@@A@#\232\204\317\211A\266\202\202\264\211@\262\206\206+A\313\211\203\204\211A\262\242\3148\262\262;\204\333\313\315C\3162u\211\242\206 \240\210\204\317\320\321\322\323\324!\325\"\314\326%\"\210\n D\211\203:\211@\317\320\321\327\323\324!\330\"\314\326%\"\210A\266\202\202 \210\211\242A@\331\235\203M\311\332\242@\"\202W\311\312\242@\242A@#\211\242B\211\235\204q\204q\307@\"\204q\211B\266\2020\266\204\232\203\333\262\313\262\202\333\266\202\211\203\227\307\"\204\227BB\211\262\262,\337\311\340\"B\341\342B\343\315BE\262-\203\300\211.\232\203\300/\232\204\314\344\"-\211./\345\262-G\346U?\205\346V\205\343-S\234\346\234\346V\205\360-S\234\345\234\347\350#\210\203\frq\210\313 0\351\"\210*\202\352\"\210B\266\202\266\202)\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods nnir-possibly-change-group assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (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 gnus-newsrc-alist gnus-override-method nnir-artlist nnir-memo-query nnir-memo-server gnus-article-decode-hook] 24 (#$ . 22932)])
(nnoo-register-function 'nnir-request-article)
#@76
(fn ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST INTERNAL-MOVE-GROUP)
(defalias 'nnir-request-move-article #[1540 "\301\"\210\302V\205 S\234\302\234\302V\205 S\234\303\234A@\304!\304!\305\"\306\3071] \211;\203@ \304!@\202A \211\310!\204K \311!\210\312\313\314\315#!!\2620\266\202\202a \210\316\266\202\204j \317\320\"\210\321A@\f\f\205\223 \205\223 \322\323\"\203\220 \324\302\225\"\202\221 \211\262&\207" [nnir-artlist 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 "^[^:]+:" substring] 22 (#$ . 25839)])
(nnoo-register-function 'nnir-request-move-article)
#@46
(fn ARTICLES GROUP &optional SERVER FORCE)
(defalias 'nnir-request-expire-articles #[1026 "\300\"\210\211\203\231 \205% \301C\302\303\304\305\306\307!\310\"\311\312%\"\210\211\242\262\301\203\221 \211A\262\242\211@A@\313\314\315\"\316\"\317\3201k \211;\203N \321!@\202O \211\322!\204Y \323!\210\324\325\326\327#!!\2620\266\202\202o \210\301\266\202\204w \330\331\"\210\332\321!!\204\204 \330\333\"\210\334 #B\266\205\202& \313\335\301\"\316\"\207\207" [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] 19 (#$ . 26654)])
(nnoo-register-function 'nnir-request-expire-articles)
(defalias 'nnir-warp-to-article #[0 "\302!\210\303`\304\"\211\205 \305!\266\303`\306\"\206 \307 \310V\2038 \303`\304\"\211\205* \305!\266\303`\306\"\206; \307 \202; \311\312!\211\310V\205E S\234\310\234\310V\205Q S\234\313\234\314\315\211\316\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-summary-read-group-1 t nil] 10])
(nnoo-register-function 'nnir-warp-to-article)
#@27
(fn GROUP ARTICLE MARK)
(defalias 'nnir-request-update-mark #[771 "\301V\205\n S\234\301\234\301V\205 S\234\302\234\203( \211\203( \303#\206) \207" [nnir-artlist 0 1 gnus-request-update-mark] 9 (#$ . 28316)])
(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 \211A\262\242\202% \303\304\305GD\"\211A\262\242@\306!\205M \301C\307\310\311\312\313\314!\315\"\316\317%\306!\"\210\211\242\262\211\211\203p \211@\211@\320\321A@\322\"!ED\nB\262\nA\266\202\202N \266A\266\202\202 \210\211\205\225 \301C\307\310\311\323\313\314!\324\"\316\317%\"\210\211\242\262\211\205\252 \211@\325@A@\"\210A\266\202\202\225 \262\207" [nnir-possibly-change-group nil 3 signal wrong-number-of-arguments (range action marks) 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 (#$ . 28596)])
(nnoo-register-function 'nnir-request-set-mark)
#@36
(fn GROUP INFO &optional SERVER)
(defalias 'nnir-request-update-info #[770 "\303\"\210\304\233\211\305\240\266AA\211\305\240\266\306!\307\310GB!\205= \305C\311\312\313\314\315\316!\317\"\320\321%\307\310GB!\"\210\211\242\262\322\310GB #\210\211??\205\322 \211A\262\242\323A@!@\324\n\"A@\262\3048\3258AA\211\326\325\f8\327\305\330\312\313\331\315\316\f!\332\"\333\334% \"\"\"\240\266\211\203\315 \211@\211C\211\242\203\243 \211\242\211\242A\240\210\242\202\253 \335\336\337\242GD\"\340 \327\305\330\312\313\341\315\316\f!\342\"\333\334%\"\"#\266A\266\202\202\212 \266\202F \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)" puthash reverse gethash 2 gnus-add-to-range delq mapcar "\301A\300\"\205\n \211@\207" [gnus-member-of-range] 4 "\n\n(fn ART)" signal wrong-number-of-arguments (type . range) gnus-add-marked-articles "\301A\300\242\"\205 \211@\207" [gnus-member-of-range]] 26 (#$ . 29679)])
(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 (#$ . 31029)])
(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 (#$ . 31467)]))
(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\254 \307\310\301\311\301\312\"\203= \313\314\315\316\"\315\317\"\2069 \304#\202E \313\314@A@#\262\"\203O \320\202P \321#\262\322\323\324\322\325\304\n\326\305%\326\305%\327\330\"\301\311\301\312\"\203\202 \313\314\315\316\"\315\317\"\206~ \304#\202\212 \313\314@A@#\262\"\203\241 \331\307\310\301\332\f\"#\326#\202\245 \333!\333!#\262\207" [gnus-select-method string-match "^" replace-match "" t file-readable-p substring 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 (#$ . 31863)])
(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 \211<\203 \211\206B\307\"A\206B\211\310\232\203% \206.\307\n\"A\206.\307 \"A\206.\f\211\203S \311\312@@@@@A@#\232\204S \211A\266\202\2026 \211@@\262\206.
\211\203w \311\312@@@A@#\232\204w \211A\266\202\202\\ \211@\262\206.&A\313\211\203,\211A\262\242\3148\262\262;\204\203 \313\315C\3162 \211\242\206\252 \240\210\204\301 \317\320\321\322\323\324!\325\"\314\326%\"\210\n D\211\203\342 \211@\317\320\321\327\323\324!\330\"\314\326%\"\210A\266\202\202\304 \210\211\242A@\331\235\203\365 \311\332\242@\"\202\377 \311\312\242@\242A@#\211\242B\211\235\204\204\307@\"\204\211B\266\2020\266\204\232\203\203 \262\313\262\202\203 \266\202\211\203?\307\"\204?BB\211\262\262A@\333\236A\206T\307'(\"A\315\206]\334! )\335\336\"\210\337\323\3402\202\341\320\321\342\323\324
$\343\"\344\345%\"0\")\266\205)\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods query assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" criteria nnir-get-active message "Opening server %s" apply found mapcar "\304C\3051] \306\307!\302\"\205Y r\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" [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)" gnus-newsrc-alist nnir-imap-default-search-key nnir-imap-search-arguments gnus-inhibit-demon] 22 (#$ . 32861)])
#@1173 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 the 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 (#$ . 35413)])
#@67 Turn an 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 (#$ . 36714)])
#@78 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 (#$ . 37010)])
#@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$\216c\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 (#$ . 37487)])
#@75 Return the next expression from the current buffer.
(fn &optional COUNT)
(defalias 'nnir-imap-next-expr #[256 "\300!\301 \211\302=\203 \302\303\304!E\202 \207" [nnir-imap-next-term nnir-imap-peek-symbol or nnir-imap-next-expr 2] 7 (#$ . 38095)])
#@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 (#$ . 38353)])
#@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 (#$ . 38695)])
#@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 \302S!\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\202 db{\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 (#$ . 38867)])
#@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\306ZS{\307\232\204% `\262\210\202 TS{\207" [nil 1 search-forward t error "Unmatched delimited input with %s in query" 2 "\\"] 7 (#$ . 39793)])
#@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 (#$ . 40124)])
#@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 (#$ . 40276)])
#@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\352 \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\356\335\357#\262\352\360\"\210\361\362\363\345\346\"#\262\361\364\363#\262\365\366 \"\367!\367!#B\262\202\201 \315\370!\210\333\365\371\372\"\"\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 substring -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 (#$ . 42118)])
#@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 \302\303\225\"\202 \211\207" [string-match "^[^:]+:" substring 0] 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 (#$ . 43905)])
#@193 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 (#$ . 45549)])
#@281 Run QUERY against notmuch.
Returns a vector of (group name, file name) pairs (also vectors,
actually). If GROUPS is a list of group names, use them to
construct path: search terms (see the variable
`nnir-notmuch-filter-group-names-function').
(fn QUERY SERVER &optional GROUPS)
(defalias 'nnir-run-notmuch #[770 "\212\305\236A\306\307\"\310\311\312\311\313\"\203' \314\315\316\317\"\316\320\"\206# \321#\202/ \314\315@A@#\262\"\2039 \322\202: \323 \205I \324\310\325 \325\326\n\"\"\"\211\205U \327\330\331\332#\333Q\310\211\211\321\232\203c \334\335!\210\336\n!q\210\337 \210\203~ \340\341\n\330\342 \343##\210\202\204 \340\344\n\"\210\203\216 P\262 \310\345\310\346\347\350\351\306\352\"C\"BBBBBBB\340\353 \330\342\354\233\343##\210\355\356\"\211\203\321 \211\357U\204\321 \360\361\362#\210\f\363V\203\321 \364\n!\210\266eb\210m\204\365\366 \367 \"\262\370!\262\371!\262\317y\210\311\"\203\326 \203\326 \372\321 %\211\203\211B\262\210\202\326 \340\373!\210\266\211)\207" [gnus-select-method nnir-notmuch-filter-group-names-function nnir-tmp-buffer nnir-notmuch-program gnus-verbose query nnir-read-server-parm nnir-notmuch-remove-prefix nil string-match "\\`nnmaildir:" "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 "" ":[0-9]+" "^[0-9]+$" delq mapcar gnus-group-short-name " (" mapconcat #[257 "\300\301\"\207" [format "path:%s"] 4 "\n\n(fn G)"] " or" ")" error "notmuch: You didn't enter anything" get-buffer-create erase-buffer message "Doing notmuch query %s on %s..." identity " " "Doing notmuch query %s..." t "search" "--format=text" "--output=files" append nnir-notmuch-additional-switches "%s args: %s" 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"] 23 (#$ . 47166)])
#@87 Run find and grep to obtain matching articles.
(fn QUERY SERVER &optional GROUPLIST)
(defalias 'nnir-run-find-grep #[770 "\211\203 \211<\203 \211\206=\306\"A\206=\211\307\232\203 \206)\306\n\"A\206)\306 \"A\206)\f\211\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206)
\211\203r \310\311@@@A@#\232\204r \211A\266\202\202W \211@\262\206)(A\312\211\203'\211A\262\242\3138\262\262;\204~ \312\314C\3152\211\242\206\245 \240\210\204\274 \316\317\320\321\322\323!\324\"\313\325%\"\210\n D\211\203\335 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\277 \210\211\242A@\330\235\203\360 \310\331\242@\"\202\372 \310\311\242@\242A@#\211\242B\211\235\204\204\306@\"\204\211B\266\2020\266\204\232\203~ \262\312\262\202~ \266\202\211\203:\306\"\204:BB\211\262\262\332\333@!\334P!\306AA\"A@\306\335\"A\306\336\"A\206c\337!\204m\340\341 \"\210\342\322\343\317\320\344\322\323\f\f\f$\345\"\346\347%\"\"\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-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" intern symbol-name "-directory" query grep-options nnir-get-active error "No directory found in method specification of server %s" apply mapcar "\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 \330\313\225\"\202E \211\262\331!\203Q \211\202a \331\332\333\334\306\335%\211\262!\205a \211\262\211\204k \336\337!\210\212\340\341\342\306\335\342\343\344\345\346\347\350\351\352\353\354\303\205\207 \355\303\356\335#\357\302\360BB\"B&\210)\210m\204\352 \355`\361 {\334\335#\362\363!@!@\325\230\203\263 A\262\202\245 \364\365GS\306S\211\262\313Y\203\320 \211A\262\242B\262\202\271 \211\237\266\202\325#\316\366\300\"\313#B\262\210\367y\266\202\223 \307\370\206\361 \300\"\210)\262\207" [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 "^[^:]+:" substring 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)" gnus-newsrc-alist] 21 (#$ . 49146)])
#@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 (#$ . 52113)])
#@89 Read 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 (#$ . 52350)])
#@115 Read 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 (#$ . 52571)])
#@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 (#$ . 52937)])
#@15
(fn SERVER)
(defalias 'nnir-server-to-search-engine #[257 "\306\307\310#\206M\311\211\203 \211<\203 \211\206F\311\"A\206F\211\312\232\203) \2062\311\n\"A\2062\311 \"A\2062\f\211\203W \313\314@@@@@A@#\232\204W \211A\266\202\202: \211@@\262\2062
\211\203{ \313\314@@@A@#\232\204{ \211A\266\202\202` \211@\262\2062 A\315\211\2030\211A\262\242\3168\262\262;\204\207 \315\310C\3172!\211\242\206\256 \240\210\204\305 \320\321\322\323\324\325!\326\"\316\327%\"\210\n D\211\203\346 \211@\320\321\322\330\324\325!\331\"\316\327%\"\210A\266\202\202\310 \210\211\242A@\332\235\203\371 \313\333\242@\"\202\313\314\242@\242A@#\211\242B\211\235\204 \204 \311@\"\204 \211B\266\2020\266\204\232\203\207 \262\315\262\202\207 \266\202\211\203C\311\"\204CBB\211\262\262@ \"A\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods nnir-read-server-parm nnir-search-engine t assoc "native" format "%s:%s" nil 4 server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-newsrc-alist nnir-method-default-engines] 20 (#$ . 53347)])
#@197 Return 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 \211<\203 \211\206=\306\"A\206=\211\307\232\203 \206)\306\n\"A\206)\306 \"A\206)\f\211\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206)
\211\203r \310\311@@@A@#\232\204r \211A\266\202\202W \211@\262\206)A\312\211\203'\211A\262\242\3138\262\262;\204~ \312\314C\3152\211\242\206\245 \240\210\204\274 \316\317\320\321\322\323!\324\"\313\325%\"\210\n D\211\203\335 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\277 \210\211\242A@\330\235\203\360 \310\331\242@\"\202\372 \310\311\242@\242A@#\211\242B\211\235\204\204\306@\"\204\211B\266\2020\266\204\232\203~ \262\312\262\202~ \266\202\211\203:\306\"\204:BB\211\262\262\211\203UAA\236\203UAA\236A@\202e\204d\332!\203dJ\202e\312\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-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" boundp gnus-newsrc-alist] 21 (#$ . 54762)])
#@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 (#$ . 56324)])
#@25
(fn &optional SERVER)
(defalias 'nnir-server-opened #[256 "\211\211\203 \211<\203 \211\206=\306\"A\206=\211\307\232\203 \206)\306\n\"A\206)\306 \"A\206)\f\211\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206)
\211\203r \310\311@@@A@#\232\204r \211A\266\202\202W \211@\262\206) A\312\211\203'\211A\262\242\3138\262\262;\204~ \312\314C\3152\211\242\206\245 \240\210\204\274 \316\317\320\321\322\323!\324\"\313\325%\"\210\n D\211\203\335 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\277 \210\211\242A@\330\235\203\360 \310\331\242@\"\202\372 \310\311\242@\242A@#\211\242B\211\235\204\204\306@\"\204\211B\266\2020\266\204\232\203~ \262\312\262\202~ \266\202\211\203:\306\"\204:BB\211\262\262@\211\206E\332 \333 ! \203]\310\334 #\202_ \232*\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-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" nnir nnoo-current-server "%s+%s" gnus-newsrc-alist server backend nnoo-parent-backend] 19 (#$ . 56663)])
(autoload 'nnimap-make-thread-query "nnimap")
#@237 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\211C\3142\216 \211\242\206 \240\210\2042 \315\316\317\320\321\322!\323\"\324\325%\n\"\210 \fD\211\203S \211@\315\316\317\326\321\322!\327\"\324\325%\"\210A\266\202\2025 \210\211\242A@\330\235\203f \331\332\242@\"\202p \331\333\242@\242A@#\211\242B\211\n\235\204\212 \204\212 \334@\n\"\204\212 \211\nB\266\2020\266\204CC\335\305!\205\243
\205\243 \336\324H\337\"@\211\205.\312!\313\211C\3142,\211\242\206\271 \240\210\204\320 \315\316\317\320\321\322!\323\"\324\325%\n\"\210 \fD\211\203\361 \211@\315\316\317\326\321\322!\327\"\324\325%\"\210A\266\202\202\323 \210\211\242A@\330\235\203\331\332\242@\"\202\331\333\242@\242A@#\211\242B\211\n\235\204(\204(\334@\n\"\204(\211\nB\266\2020\266\204\211\203E\211C\211\235\203>\202A\211B\262\262\340\313\341B\342BD\"\210\343\344\324H!!\207" [gnus-newsgroup-name gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-registry-enabled query nnimap-make-thread-query criteria #1="" gnus-find-method-for-group nil server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] 4 "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) format "%s" "%s:%s" assoc boundp gnus-registry-get-id-key group gnus-group-make-nnir-group nnir-query-spec nnir-group-spec gnus-summary-goto-subject gnus-id-to-article] 17 (#$ . 58151)])
#@12
(fn SRV)
(defalias 'nnir-get-active #[257 "\211\211\203 \211<\203 \211\206=\306\"A\206=\211\307\232\203 \206)\306\n\"A\206)\306 \"A\206)\f\211\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206)
\211\203r \310\311@@@A@#\232\204r \211A\266\202\202W \211@\262\206)'A\312\211\203'\211A\262\242\3138\262\262;\204~ \312\314C\3152\211\242\206\245 \240\210\204\274 \316\317\320\321\322\323!\324\"\313\325%\"\210\n D\211\203\335 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\277 \210\211\242A@\330\235\203\360 \310\331\242@\"\202\372 \310\311\242@\242A@#\211\242B\211\235\204\204\306@\"\204\211B\266\2020\266\204\232\203~ \262\312\262\202~ \266\202\211\203:\306\"\204:BB\211\262\262\312\332!\210r(q\210peb\210)\203^)\333\230\204^\334)!\210@\335=\203\213m\204\345\3361\200\337`\340\312w\210`{\"B\211\2620\202\204\210\202\205\210\312y\210\202em\204\345\3411\332\312f\342=\203\243\337\343!\"\202\321`\333\344\312w\210`{\262\312f\345=\203\312`T\262\346u\210\344\312w\210\211`{P\262\202\256\337\"\266\202B\211\2620\202\336\210\202\337\210\312y\210\202\213\210)\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-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-request-list #1# delete-matching-lines nntp (error) gnus-group-full-name "^ " (error) 34 read "^ \\\\" 92 2 gnus-newsrc-alist nntp-server-buffer nnir-ignored-newsgroups] 19 (#$ . 59982)])
#@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 (#$ . 61851)])
(defalias 'nnir-mode #[0 "\304!@\305=\205J \203 \n\230\204 \306\307\310\"\210\311\303!\205J \205J \312\313\314\315#\210\312\316\314\315#\210\312\317\314\315#\210\320\313\321\315\211$\210\320\316\321\315\211$\210\320\317\321\315\211$\207" [gnus-newsgroup-name nnir-summary-line-format gnus-summary-line-format gnus-registry-enabled gnus-find-method-for-group nnir gnus-update-format-specifications nil summary 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\211\322\"A@\262\"\266\323\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 gethash t] 14 (#$ . 63079)])
(nnoo-register-function 'nnir-request-create-group)
#@37
(fn GROUP &optional FORCE SERVER)
(defalias 'nnir-request-delete-group #[769 "\300\207" [t] 4 (#$ . 63736)])
(nnoo-register-function 'nnir-request-delete-group)
#@25
(fn &optional SERVER)
(defalias 'nnir-request-list #[256 "\300\207" [t] 2 (#$ . 63905)])
(nnoo-register-function 'nnir-request-list)
#@21
(fn GROUP METHOD)
(defalias 'nnir-request-scan #[514 "\300\207" [t] 3 (#$ . 64046)])
(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)
Mini Shell