ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/nnir.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 523))
#@34 Internal: stores current server.
(defvar nnir-memo-server nil (#$ . 601))
#@33 Internal: stores search result.
(defvar nnir-artlist nil (#$ . 681))
#@59 Internal: the history for querying search options in nnir
(defvar nnir-search-history nil (#$ . 756))
#@29 Internal: temporary buffer.
(defconst nnir-tmp-buffer " *nnir*" (#$ . 864))
#@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" . "")) (#$ . 946))
#@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" (#$ . 1187))
#@49 The history for querying search options in nnir
(defvar nnir-imap-search-argument-history nil (#$ . 1388))
#@40 Returns number of articles in artlist.
(defalias 'nnir-artlist-length '(macro . #[(artlist) "\301D\207" [artlist length] 2 (#$ . 1501)]))
#@64 Returns from ARTLIST the Nth artitem (counting starting at 1).
(defalias 'nnir-artlist-article '(macro . #[(artlist n) "\302\303\304BB\305 \306DEE\207" [n artlist when > (0) elt 1-] 6 (#$ . 1646)]))
#@37 Returns the group from the ARTITEM.
(defalias 'nnir-artitem-group '(macro . #[(artitem) "\301\302BB\207" [artitem elt (0)] 3 (#$ . 1853)]))
#@38 Returns the number from the ARTITEM.
(defalias 'nnir-artitem-number '(macro . #[(artitem) "\301\302BB\207" [artitem elt (1)] 3 (#$ . 2000)]))
#@67 Returns the Retrieval Status Value (RSV, score) from the ARTITEM.
(defalias 'nnir-artitem-rsv '(macro . #[(artitem) "\301\302BB\207" [artitem elt (2)] 3 (#$ . 2149)]))
#@31 Returns the group for ARTICLE
(defalias 'nnir-article-group '(macro . #[(article) "\301\302\303ED\207" [article nnir-artitem-group nnir-artlist-article nnir-artlist] 4 (#$ . 2324)]))
#@32 Returns the number for ARTICLE
(defalias 'nnir-article-number '(macro . #[(article) "\301\302\303ED\207" [article nnir-artitem-number nnir-artlist-article nnir-artlist] 4 (#$ . 2514)]))
#@29 Returns the rsv for ARTICLE
(defalias 'nnir-article-rsv '(macro . #[(article) "\301\302\303ED\207" [article nnir-artitem-rsv nnir-artlist-article nnir-artlist] 4 (#$ . 2707)]))
#@51 Returns the pair `(nnir id . real id)' of ARTICLE
(defalias 'nnir-article-ids #[(article) "\211\302V\205 S\234\303\234B\207" [article nnir-artlist 0 1] 3 (#$ . 2891)])
(put 'nnir-article-ids 'byte-optimizer 'byte-compile-inline-expand)
#@331 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)'.
(defalias 'nnir-categorize '(macro . #[(sequence keyfunc &optional valuefunc) "\303\304D\305\306\307\310\311\305\312 \313BD\314\n\203 \n\315B\202 \316DD\317BBEE\320BBBE\207" [sequence keyfunc valuefunc 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)] 12 (#$ . 3138)]))
(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\327\330\331\332\321\305& \210\323\333\310\334\327\330\331\335\321\305& \210\323\336\310\337\327\330\331\340\321\305& \210\323\341\342\343\327\330\331\344\306\345\n\"B\321\305& \210\323\346\347\350\331\351\321\305&\210\323\352\353\354\331\355\321\305&\210\323\356\357\360\331\361\321\305&\210\323\362\363\364\331\365\321\305&\210\366\367\370\371#\210\323\367\372\373\331\374\321\305&\210\323\370\375\376\331\377\321\305&\210\323\201@ \201A \201B \331\201C \321\305&\210\323\201D \201E \201F \331\201G \321\305&\210\323\201H \201I \201J \331\201K \321\305&\210\323\201L \201M \201N \331\201O \321\305&\210\323\201P \201Q \201R \331\201S \321\305&\210\323\201T \201U \201V \331\201W \321\305&\210\323\201X \201Y \201Z \331\201[ \321\305&\210\323\201\\ \201] \201^ \331\201_ \321\305&\210\323\201` \201a \201b \331\201c \321\305&\210\323\201d \201e \201f \331\201g \321\305&\210\323\201h \201i \201j \331\201k \321\305&\210\323\201l \201m \201n \327\330\331\201o \321\305& \210\323\201p \201q \201r \327\330\331\201s \321\305& \210\323\201t \201u \201v \327\330\331\201w \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 "" "*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 "*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 "*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 "whole message" "*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 #[(elem) "\301@D\207" [elem const] 2] nnir-swish++-configuration-file (expand-file-name "~/Mail/swish++.conf") "*Configuration file for swish++." (file) nnir-swish++-program "search" "*Name of swish++ search executable." (string) nnir-swish++-additional-switches 'nil "*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 (concat (getenv "HOME") "/Mail/") "*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" (expand-file-name "~/Mail/index.swish-e") "*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) (list nnir-swish-e-index-file) "*List of index files for swish-e.\nThis could be a server parameter." (repeat (file)) nnir-swish-e-program "swish-e" "*Name of swish-e search executable.\nThis cannot be a server parameter." (string) nnir-swish-e-additional-switches 'nil "*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 (concat (getenv "HOME") "/Mail/") "*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 "nnir-search" "*Name of the nnir-search executable." (string) nnir-hyrex-additional-switches 'nil "*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 (getenv "HOME") "*Index directory for HyREX." (directory) nnir-hyrex-remove-prefix (concat (getenv "HOME") "/Mail/") "*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 "namazu" "*Name of Namazu search executable." (string) nnir-namazu-index-directory (expand-file-name "~/Mail/namazu/") "*Index directory for Namazu." (directory) nnir-namazu-additional-switches 'nil "*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 (concat (getenv "HOME") "/Mail/") "*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 "notmuch" "*Name of notmuch search executable." (string) nnir-notmuch-additional-switches 'nil "*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 (concat (getenv "HOME") "/Mail/") "*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) (#$ . 12098))
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\"BED& \207" [nnir-engines custom-declare-variable nnir-method-default-engines '((nnimap . imap) (nntp . gmane)) "*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 #[(elem) "\301@D\207" [elem const] 2]] 16)
#@532 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.
(defalias 'gnus-group-make-nnir-group #[(nnir-extra-parms &optional specs) "\306\236A\206H \307 \203 \307 CC\202H \204+ \310 \203\" \310 C\202( \311\312 \n\"A\205H \313\314\315 \206D \310 \203> \310 C\202D \311\312 \n\"A\"\210 ) \316\236A\206c \317\320\321\322\323\313\324#BC
\205b \325\326\f\"# \327\330\331 P\332\333D\313\211\211\211\334\316 B\306\fBDB\335\313BD&*\207" [specs gnus-group-marked gnus-topic-alist value group-spec nnir-extra-parms nnir-group-spec gnus-server-server-name gnus-group-group-name assoc gnus-group-topic-name nil mapc #[(member) "\306\307 \"\203 \310\311\312\313 \"\312\314 \"\206 \315#\202# \310\311\n@\nA@#) \316\f
\"\203A \316\f
\"\211 A A@B\240)\202I \f CD
B\211*\207" [member gname gnus-select-method x y value string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 "" assoc #1=#:v] 7] nnir-query-spec apply append query read-string "Query: " nnir-search-history mapcar #[(x) "\301\302@!!\207" [x nnir-read-parms nnir-server-to-search-engine] 3] gnus-group-read-ephemeral-group "nnir-" message-unique-id nnir "nnir" nnir-specs nnir-artlist query-spec] 11 (#$ . 14144) "P"])
#@41 Search a group from the summary buffer.
(defalias 'gnus-summary-make-nnir-group #[(nnir-extra-parms) "\305 \210\306\307\310 \"\203 \311\312\313\314 \"\313\315 \"\206 \316#\202' \311\312\n@\nA@#)CDCBC\317\f \")\207" [gnus-newsgroup-name gname gnus-select-method spec nnir-extra-parms gnus-warp-to-article nnir-group-spec string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 "" gnus-group-make-nnir-group] 7 (#$ . 15838) "P"])
(defalias 'nnir-open-server #[(server &optional definitions) "\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#))@\211 $\203N\323$%#\202Y\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 backend definitions] 6])
(nnoo-register-function 'nnir-open-server)
(defalias 'nnir-request-group #[(group &optional server dont-check info) "\306 \"\210\307!\310\f\203
\204- \311 \304\312\313 \314\315#!\211#\210\316 \317\320 \"J8\"\210rq\210\fG\211\321U\203G \322!\210\323\324\325\"\210\202O \326\327\n\330\n%\210+\f\207" [group server length pgroup nnir-artlist dont-check 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 gnus-newsrc-hashtb nntp-server-buffer] 8])
(nnoo-register-function 'nnir-request-group)
(defalias 'nnir-retrieve-headers #[(articles &optional group server fetch-old) "rq\210\306 \205 \307\310\311 \"\210\n)\307 \f\203>\f\211A\242\211 *@ +*A@ ,\312\313\314,\"\315\" -+ .\316\317.\"\203U \320\321\322\323.\"\322\324.\"\206Q \325#\202_ \320\321/@/A@#)\211 0\211 0\203t 0<\203t 0\206\272\32601\"A\206\2720\327\232\203\212 /\206\236\32602\"A\206\236\32603\"A\206\2364 55\203\305 0\320\3215@@@5@@A@#\232\204\305 5\211A5\210\202\242 5@@)\206\2366 77\203\362 0\320\3217@@7@A@#\232\204\362 7\211A7\210\202\321 7@)\206\2368A\307\211 9 : ;;\203\233\330;\211A;\2428\211:;\2040:\307\306 < = :\3312\213:\2060/:=\204=\310\3321\"\210\310\33323D\"\210:A@\334\235\203X\320\335:@\"\202b\320\321:@:A@#\211 >:B\211 ?1\235\204\207<\204\207\326?@1\"\204\207?1B1>*0+\232\203:9\307\211;\204 9+\211 @\203\267\32601\"\204\2670@B1B1@)) A\307 B\336 \210C\203\322C-+\"\206\331\337-+\307#\211D E\340E\341\"\203\354\342B\202\340E\303\"\203\372\343B\202\344\345D+#\210)eb\210m\2049B \211 F\205F\346H G\347G,\"@\211 H\2032F\346HI\210F B\323y\210+\202.\202 \312 \350\"\336 \210\310\351 \"\210,\341\207" [nntp-server-buffer articles value headers articles-by-group gnus-inhibit-demon t nil mapc #[(member) "\306V\205\n S\234\306\234\211\211\306V\205 \nS\234\307\234)B \310\f
\"\2039 \310\f
\"\211 A A@B\240)\202A \f CD
B\211*\207" [member nnir-artlist article x y value 0 1 assoc #1=#:v] 5] sort mapcar cdr < string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #2="" 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 #2#) "%s" erase-buffer gnus-retrieve-headers eql nov nnheader-parse-nov nnheader-parse-head error "Unknown header type %s while requesting articles of group %s" 0 rassq #[(x y) "\302H \302HW\207" [x y 0] 3] nnheader-insert-nov group-articles artgroup articleids artlist gname gnus-select-method server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist 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 parsefunc nnir-retrieve-headers-override-function gnus-headers-retrieved-by #3=#:temp novitem artno art] 7])
(nnoo-register-function 'nnir-retrieve-headers)
(defalias 'nnir-request-article #[(article &optional group server to-buffer) "\306 \"\210\n;\203V \211\203 <\203 \206I\307 \"A\206I \310\232\203+ \f\2062\307
\"A\2062\307 $\"A\2062% &&\203b \311\312&@@@&@@A@#\232\204b &\211A&\210\202@ &@@)\2062' ((\203\216 \311\312(@@(@A@#\232\204\216 (\211A(\210\202n (@)\2062)A\313\211 * + ,,\203/\314,\211A,\2428\211+;\204\240 +\313\315 - . +\3162 +\206\312 \f+.\204\326 \317\320 \"\210\317\321
$D\"\210+A@\322\235\203\360 \311\323+@\"\202\372 \311\312+@+A@#\211 /+B\211 0 \235\204-\204\3070@ \"\2040 B/*0+\232\203\240 +*\313\211,\204\245 *+\211 1\203F\307 \"\204F 1B B1))@\324=\204V\325\326\327 #\207\212\n\313 \211;\203\326 \211\203p <\203p \206\240\307 \"A\206\240 \310\232\203\202\f\206\211\307
\"A\206\211\307 $\"A\206\211% &&\203\271 \311\312&@@@&@@A@#\232\204\271&\211A&\210\202\227&@@)\206\211' ((\203\345 \311\312(@@(@A@#\232\204\345(\211A(\210\202\305(@)\206\211)A\313\211 * + ,,\203\206\314,\211A,\2428\211+;\204\367 +\313\315 - . +\3162v+\206!\f+.\204-\317\320 \"\210\317\321
$D\"\210+A@\322\235\203G\311\323+@\"\202Q\311\312+@+A@#\211 /+B\211 0 \235\204r-\204r\3070@ \"\204r0 B/*0+\232\203\367+*\313\211,\204\374*+\211 1\203\235\307 \"\204\235 1B B1))2\330\311\331\n\"B\332\333B\334\315BE3\203\3064\232\203\306 5\232\204\324\335 \"34 5\3363G\337U?\205*\n\337V\205\3523\nS\234\337\234\n\337V\205\3673\nS\234\336\234 6 7\340\34167#\2108\203 r8q\210\313 9\34267\"\210*\202$\34367\"\21076*B+\207" [group server article gnus-server-method-cache gnus-select-method gnus-server-alist 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 gnus-predefined-server-alist 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-artlist nnir-memo-query nnir-memo-server artno artfullgroup to-buffer gnus-article-decode-hook] 6])
(nnoo-register-function 'nnir-request-article)
(defalias 'nnir-request-move-article #[(article group server accept-form &optional last internal-move-group) "\306 \"\210\n\307V\205 \nS\234\307\234 \n\307V\205 \nS\234\310\234 A@ \311! \311\f! \312 \" \313\f \3141l ;\203M \311!@\202N \315 !\204\\ \316 !\210\317\320\321\322 #!!)0\202n \210\323*\204w \324\325\f\"\210\326
\f A@ \205\244 \205\244 !\327\330!\"\203\241 !\307\225\323O\202\243 !)&.\207" [group server article nnir-artlist artfullgroup artno 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 "^[^:]+:" accept-form to-newsgroup to-method from-method move-is-internal func method last gname] 9])
(nnoo-register-function 'nnir-request-move-article)
(defalias 'nnir-request-expire-articles #[(articles group &optional server force) "\306 \"\210\n\203\243 \205 \307 \310\311 \"\210\f)\307 \203\232 \211A \242\211 @ A@ \312\313\314 \"\315\" !\316 \"\3171q ;\203R \320!@\202S #\321#!\204a \322#!\210\323\324\325\326#\"#!!)0\202s \210\307*\204} \327\330 \"\210\331\320 !!\204\214 \327\332 \"\210\333! \n#
B,\202 \312\334\307
\"\315\"*\207 \207" [group server force articles value not-deleted nnir-possibly-change-group nil mapc #[(member) "\306V\205\n S\234\306\234\211\211\306V\205 \nS\234\307\234)B \310\f
\"\2039 \310\f
\"\211 A A@B\240)\202A \f CD
B\211*\207" [member nnir-artlist article x y value 0 1 assoc #1=#:v] 5] 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 articles-by-group group-articles artgroup articleids artlist func method] 7])
(nnoo-register-function 'nnir-request-expire-articles)
(defalias 'nnir-warp-to-article #[nil "\306!\210\307`\310\"\211\203 \311 !\210)\307`\312\"\206 \313 \314V\203: \307`\310\"\211\203- \311 !\210)\307`\312\"\206= \313 \202= \315\316!\211\314V\205H \nS\234\314\234 \n\314V\205U \nS\234\317\234 \320! \321\f\322\211\323\211
C&,\207" [gnus-newsgroup-name to cur nnir-artlist backend-article-group backend-article-number 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 quit-config] 8])
(nnoo-register-function 'nnir-warp-to-article)
(defalias 'nnir-request-update-mark #[(group article mark) "\305V\205\n S\234\305\234\305V\205 S\234\306\234\211\203* \n\203* \307 \n\f#\206+ \f*\207" [article nnir-artlist artnumber artgroup mark 0 1 gnus-request-update-mark] 5])
(nnoo-register-function 'nnir-request-update-mark)
(defalias 'nnir-request-set-mark #[(group actions &optional server) "\306 \"\210\307 \307 \211 \203\204
@\211\211 G\310U\203& \211A\242\202. \311\312\307GD\" \211A\242 @ \313!\205R \307 \314\315\313!\"\210)\211 \307 \211 \203{
@\211@\316\317A@\320\"!\fED\nB
A\211\204] .
A\211\204 *\n\205\224 \307 \314\321\n\"\210)\307 \211 \205\262
@\322@A@\"\210
A\211\204\234 \307+\207" [group server mlist actions action --dolist-tail-- nnir-possibly-change-group nil 3 signal wrong-number-of-arguments gnus-uncompress-range mapc #[#2=(member) "\306V\205\n S\234\306\234\306V\205 S\234\307\234\310 \f\"\2032 \310 \f\"\211 A\n
A@B\240)\202: \nCD\fB\211*\207" [member nnir-artlist x y value #1=#:v 0 1 assoc] 4] gnus-compress-sequence sort < #[#2# "@A@\305\n \"\203 \305\n \"\211 A \fA@B\240)\202' \n CD B\211*\207" [member x y value #3=#:v assoc] 4] gnus-request-set-mark #4=#:--cl-rest-- range marks value articles-by-group artgroup request] 6])
(nnoo-register-function 'nnir-request-set-mark)
(defalias 'nnir-request-update-info #[(group info &optional server) "\306 \"\210\307\n\233\310\240\210\nAA\310\240\210\311!\312\313 GB!\205+ \310 \314\315\312\313 GB!\"\210\f) \316\"\313 GBL\210
??\205\277
\211A\242 \317A@! \320\321@ \"J8 \307 8 \320 8 \nAA\322\320\n8\323\310\324\325 \"\"\"\240\210 \310 !\211 \"\203\272 \"@\211!\211 #\203\230 #\211A#\242\202\240 \326\327\310#GD\" $\330$\323\310\324\331 \"\"#\210*\"A\211\"\204\202 .\2028 *\207" [group server info nnir-artlist value articles-by-group nnir-possibly-change-group 3 nil gnus-group-guess-full-name-from-command-method gnus-uncompress-range 1 mapc #[(member) "\306V\205\n S\234\306\234\211\211\306V\205 \nS\234\307\234)B \310\f
\"\2039 \310\f
\"\211 A A@B\240)\202A \f CD
B\211*\207" [member nnir-artlist article x y value 0 1 assoc #1=#:v] 5] intern reverse 2 intern-soft gnus-add-to-range delq mapcar #[(art) "\302A \"\205\n @\207" [art read gnus-member-of-range] 3] signal wrong-number-of-arguments gnus-add-marked-articles #[(art) "\302A \"\205\n @\207" [art range gnus-member-of-range] 3] gnus-active-hashtb group-articles articleids gnus-newsrc-hashtb group-info marks read mark --dolist-tail-- range type] 9])
(nnoo-register-function 'nnir-request-update-info)
(defalias 'nnir-close-group #[(group &optional server) "\305 \"\210\306! \203 \307\n!\204 \310\n\303 #\210\311\307\n!\205- \312\n!\210\313\314\f\236\f\"\211)\207" [group server pgroup 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] 4])
(nnoo-register-function 'nnir-close-group)
#@98 Ask `nnir-compose-result' to construct a result vector,
and if it is non-nil, add it to artlist.
(defalias 'nnir-add-result '(macro . #[(dirnam artno score prefix server artlist) "\306\307\310 \n \f\257DC\311\312\313\307
EEE\207" [dirnam artno score prefix server artlist let result nnir-compose-result when (not (null result)) push] 8 (#$ . 29656)]))
(autoload 'nnmaildir-base-name-to-article-number "nnmaildir")
#@108 Extract the group from dirnam, and create a result vector
ready to be added to the list of search results.
(defalias 'nnir-compose-result #[(dirnam article score prefix server) "\306\307P \"\203 \310\311\312\211 $\313 \nQ!\205\241 \314\306\315 \306\316\f\"\2038 \317\320\321\322\f\"\321\323\f\"\2064 \311#\202@ \317\320
@
A@#)\"\203I \324\202J \325O\326\211 \327\311\312$\330\331\312$ \332\333 \"\306\315 \306\316\f\"\203| \317\320\321\322\f\"\321\323\f\"\206x \311#\202\204 \317\320
@
A@#)\"\203\230 \334\n\314\306\335\n\"O \336#\202\233 \337\n!\337!!#)\207" [prefix dirnam article server gname gnus-select-method string-match "^" replace-match "" t file-readable-p 0 "\\`nnmaildir:" "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 -5 -1 gnus-replace-in-string "^[./\\]" "[/\\]" "." vector gnus-group-full-name nnmaildir-base-name-to-article-number ":" nil string-to-number group score] 10 (#$ . 30079)])
(autoload 'nnimap-change-group "nnimap")
#@170 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.
(defalias 'nnir-run-imap #[(query srv &optional groups) "\212\300\236A \211\203 \n<\203 \n\206D\306\n \"A\206D\n\307\232\203& \f\206-\306\n
\"A\206-\306\n \"A\206- \203] \n\310\311 @@@ @@A@#\232\204] \211A \210\202; @@)\206- \203\211 \n\310\311 @@ @A@#\232\204\211 \211A \210\202i @)\206-!A\312\211 \" # $$\203*\313$\211A$\2428\211#;\204\233 \n#\312\314 % & #\3152#\206\305 \f#&\204\321 \316\317 \"\210\316\320
D\"\210#A@\321\235\203\353 \310\322#@\"\202\365 \310\311#@#A@#\211 '#B\211 ( \235\204%\204\306(@ \"\204( B'*0+\232\203\233 #\"\312\211$\204\240 \"+\211 )\203A\306\n \"\204A\n)B B)))A@ \211\203V\n<\203V\n\206\206\306\n \"A\206\206\n\307\232\203h\f\206o\306\n
\"A\206o\306\n \"A\206o \203\237\n\310\311 @@@ @@A@#\232\204\237 \211A \210\202} @@)\206o \203\313\n\310\311 @@ @A@#\232\204\313 \211A \210\202\253 @)\206o!A\312\211 \" # $$\203l\313$\211A$\2428\211#;\204\335\n#\312\314 % & #\3152\\#\206\f#&\204\316\317 \"\210\316\320
D\"\210#A@\321\235\203-\310\322#@\"\2027\310\311#@#A@#\211 '#B\211 ( \235\204X%\204X\306(@ \"\204X( B'*0+\232\203\335#\"\312\211$\204\342\"+\211 )\203\203\306\n \"\204\203\n)B B)))AA@\323\236A\206\230\306*+\"A\314,\206\241\324 ! , - . /\325\326\n\"\210\327\330\3312\275\332\333,\"0\".\207" [query srv server gnus-server-method-cache gnus-select-method gnus-server-alist 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" criteria nnir-get-active message "Opening server %s" apply vconcat found mapcar #[(group) "\306\3071M \310\311 !\n\"\205I r\312 q\210\313\314 \"\210\315\316\317 \320\230\203& \f\202* \321 \f\"\" \322\323
@\205; \324\325
A\"A\"\210\313\326 #\210+\313\327 \"0\202Q \210\202R \210\237)\207" [artlist group server criteria qstring result 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 #[(artnum) "\306!\211\307V\205\" \310\n \311# B\312\f\236\203 \313\314 C\"\210
T\211)\207" [artnum artn group artlist query arts string-to-number 0 vector 100 shortcut throw found] 5] assoc "SEARCH" "Searching %s... %d matches" "Searching %s...done" arts] 6] gnus-predefined-server-alist gnus-opened-servers 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 groups gnus-inhibit-demon defs qstring] 8 (#$ . 31070)])
#@1142 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.
(defalias 'nnir-imap-make-query #[(criteria qstring) "\302\303 !\"\207" [criteria qstring nnir-imap-query-to-imap nnir-imap-parse-query] 4 (#$ . 34152)])
#@45 Turn a s-expression format query into IMAP.
(defalias 'nnir-imap-query-to-imap #[(criteria query) "\301\302\303#\207" [query mapconcat #[(item) "\302 \"\207" [criteria item nnir-imap-expr-to-imap] 3] " "] 4 (#$ . 35454)])
#@57 Convert EXPR into an IMAP search expression on CRITERIA
(defalias 'nnir-imap-expr-to-imap #[(criteria expr) ";\203 \302\303 #\207\304=\203 \305\207\242\306=\203+ \302\307\310 A@\"\310 AA@\"#\207\242\311=\203; \302\312\313 A\"\"\207\203L <\203L \302\314\313 \"\"\207\315\316\"\207" [expr criteria format "%s %S" and nil or "OR %s %s" nnir-imap-expr-to-imap not "NOT (%s)" nnir-imap-query-to-imap "(%s)" error "Unhandled input: %S"] 6 (#$ . 35684)])
#@236 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.
(defalias 'nnir-imap-parse-query #[(string) "\303\304!rq\210\305\216 c\210eb\210\306\307 \204 \310 \nB\202 \311\n!,\207" [#1=#:temp-buffer string out generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil nnir-imap-end-of-input nnir-imap-next-expr reverse] 2 (#$ . 36153)])
#@53 Return the next expression from the current buffer.
(defalias 'nnir-imap-next-expr #[(&optional count) "\303!\304 \305=\203 \305\n\306\307!E\202 \n*\207" [count next term nnir-imap-next-term nnir-imap-peek-symbol or nnir-imap-next-expr 2] 4 (#$ . 36717)])
#@47 Return the next TERM from the current buffer.
(defalias 'nnir-imap-next-term #[(&optional count) "\302!\211\303=\203 \303\202 \304=\203 \304\305 D\202 )\207" [count term nnir-imap-next-symbol and not nnir-imap-next-expr] 3 (#$ . 36985)])
#@71 Return the next symbol from the current buffer, but don't consume it.
(defalias 'nnir-imap-peek-symbol #[nil "\212\300 )\207" [nnir-imap-next-symbol] 1 (#$ . 37237)])
#@181 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.
(defalias 'nnir-imap-next-symbol #[(&optional count) "\247\203 \304V\203 \305S!\210\306\307 ?\205\210 \310\311!\203% \304u\210\312\202\210 \310\313!\2031 \314\313!\202\210 \310\315!\203? \316\314\317!!\202\210 \310\320!\203L \321u\210\322\202\210 \310\323!\203Y \324u\210\325\202\210 \310\326!\203f \321u\210\312\202\210 `\327\330\331\306#\203\200 \332\224\333\334\335\332!\"\203\202 \336u\210\202\202 db\211\n{*)\207" [count case-fold-search end start 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 (#$ . 37411)])
#@52 Return a delimited string from the current buffer.
(defalias 'nnir-imap-delimited-string #[(delimiter) "`\304\305u\210\204+ \306\n\304\307#\204 \310\311\n\"\210`\211\312Z S{\313\232\204' `)\202 TS{*\207" [end start delimiter here nil 1 search-forward t error "Unmatched delimited input with %s in query" 2 "\\"] 5 (#$ . 38338)])
#@29 Are we at the end of input?
(defalias 'nnir-imap-end-of-input #[nil "\300\301w\210\302\303!\207" ["[[:blank:]]" nil looking-at "$"] 2 (#$ . 38682)])
#@184 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.
(defalias 'nnir-run-swish++ #[(query server &optional group) "\212\300\236A\306\236A\307\310 \"\311\312\313 \312\314\n\"\203+ \315\316\317\320\n\"\317\321\n\"\206' \322#\2023 \315\316 @ A@#)\"\203< \323\202= \324\311\211\211\211 6 7 8 9 : ;\211 <\322\232\203[ \325\326!\210\327=!q\210\330 \210;\203t \331\332<;#\210\202z \331\333<\"\210>\311\334\311\335\307\336 \"\337\307\340 \"<C\"BBBBBB ?\331\341>\342\343?AAAA\344##\210\345\346?\"\211 @\203\312 @\347U\204\312 \350\351\352@#\210A\353V\203\312 \354=!\210*eb\210\355\356\311\334#\203 \317\320!7\317\321!\357\f!6\360\f!\31286\"\203\316
\203\316 ;\203\312;
\"\203\316 \361
67: %\211 B\203B9B9)\202\316 \331\362!\210\345\363\3649\365\"\".\n\207" [query server gname gnus-select-method filenam dirnam 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 " " 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 #[(x y) "\302\234 \302\234V\207" [x y 2] 3] artno score article-pattern artlist prefix groupspec qstring nnir-tmp-buffer nnir-swish++-program cp-list exitstatus gnus-verbose result] 13 (#$ . 38838)])
#@156 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.
(defalias 'nnir-run-swish-e #[(query server &optional group) "\212\300\236A\306\307 \"\206 \310\311!\312\211\211\211\211 ; <\211 =\313\232\203( \310\314!\210\315>!q\210\316 \210\317\320\"\210\306\321 \"\206@ \310\322! ?\306\323 \" @A\312\324\312\325\326?@\327=D#BBBBB B\317\330A\331\332BAAAA\333##\210\334\335B\"\211 C\203\224 C\336U\204\224 \337\340\341C#\210D\342V\203\224 \343>!\210,eb\210\344\345\312\324#\203\367 \346\347!\346\350!\351\346\352!!\353\354\f\"\203\230 \203\230 \353\355<P \"\203\312 \356\313\324\211 $ \336\357O\353\360 \"\210\361\346\347 \"\362\363#\361\n\364\363#\365\366\n \"\367\f!\367
!#;B;\202\230 \317\370!\210\334\365\371;\372\"\".\207" [query server group dirnam artno score 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 " " 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 "^[./\\]*\\(.*\\)$" gnus-replace-in-string "/" "." "\\\\" vector gnus-group-full-name string-to-number "Massaging swish-e output...done" sort #[(x y) "\302\234 \302\234V\207" [x y 2] 3] artlist prefix qstring nnir-tmp-buffer index-files additional-switches nnir-swish-e-program cp-list exitstatus gnus-verbose] 11 (#$ . 40758)])
(defalias 'nnir-run-hyrex #[(query server &optional group) "\212\306\307\236A\300\236A\310\311 \"\306\211\211 9 : ;:\204. <\203. \312\313\314<\"!:\315=!q\210\316 \210\317\320\"\210>\306\321\306\322\310\323 \"\324\310\325 \"9C\"BBBBBB ?\317\326>\327\330?AAAA\331##\210\332\333?\"\211 @\203\214 @\334U\204\214 \335\336\337@#\210A\340V\203\214 \341=!\210*\317\3429\"\210\343\334!\210eb\210\344\345!\210:\203\250 \346:!\210eb\210\347\350\306\321#\203\345 \351\352!\351\353!\351\354!\355
\n\"\203\315 \356\357\321\211\n$\360\361\362\n\363\364# \"\365 !\365\f!#;B;\202\253 \317\366!\210\332\360\367;\370\"\".\207" [query server dirnam artno score prefix nil hyrex-group nnir-read-server-parm nnir-hyrex-remove-prefix regexp-opt mapcar #[(x) "\302\303 \"\203 \304\225\305O\202 )\207" [x gname string-match "^[^:]+:" 0 nil] 3] 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 " " 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 gnus-replace-in-string "/" "." string-to-number "Massaging hyrex-search output...done." sort #[(x y) "\302\234 \302\234\231\203\f \303\207\304\234 \304\234W\207" [x y 0 t 1] 3] qstring groupspec artlist group nnir-tmp-buffer nnir-hyrex-program cp-list exitstatus gnus-verbose] 11])
#@159 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.
(defalias 'nnir-run-namazu #[(query server &optional group) "\212\306\307\306\310 \"\203 \311\312\313\314 \"\313\315 \"\206 \316#\202& \311\312\n@\nA@#)\"\203/ \317\2020 \320\321\303 \236A\322\323\"\321\211\211\324\f! 8 9 : ; < =\325\326\327\"\210\330>!q\210\331 \210?\321\332\321\333\334\335\336\322\337\";\322\340\"D\"BBBBBBB @\341\342?\343\344@AAAA\345##\210\346\347@\"\211 A\203\256 A\350U\204\256 \351\352\353A#\210B\354V\203\256 \355>!\210*eb\210\356\357\321\332#\203\364 \313\360!9\361\313\362!!8\363\313\362!!\306=
\"\203\262 8\203\262 \3648
9:%\211 C\203\360 C<B<)\202\262 \346\365\366<\367\"\". \207" [server gname gnus-select-method query process-environment article string-match "\\`nnmaildir:" "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 "" ":[0-9]+" "^[0-9]+$" nil 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 " " 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 4 file-name-nondirectory nnir-compose-result vector sort #[(x y) "\302\234 \302\234V\207" [x y 2] 3] group score prefix qstring artlist article-pattern nnir-tmp-buffer nnir-namazu-program cp-list exitstatus gnus-verbose result] 14 (#$ . 44260)])
#@104 Run QUERY against notmuch.
Returns a vector of (group name, file name) pairs (also vectors,
actually).
(defalias 'nnir-run-notmuch #[(query server &optional group) "\212\300\236A\306\236A\307\310 \"\311\312\313 \312\314\n\"\203+ \315\316\317\320\n\"\317\321\n\"\206' \322#\2023 \315\316 @ A@#)\"\203< \323\202= \324\311\211\211 5 6 7 8 9\211 :\322\232\203X \325\326!\210\327;!q\210\330 \2109\203q \331\332:9#\210\202w \331\333:\"\210<\311\334\311\335\336\337\340\307\341 \":C\"BBBBBBB =\331\342<\343\344=AAAA\345##\210\346\347=\"\211 >\203\306 >\350U\204\306 \351\352\353>#\210?\354V\203\306 \355;!\210*eb\210m\204\356\357 \360 \"\361\f!5\362\f!\320y\210\31265\"\203\312
\203\312 9\203\373 \3129
\"\203\312 \363
5\3228 %\211 @\203@7B7)\202\312 \331\364!\2107. \207" [query server gname gnus-select-method filenam dirnam 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 " " 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" artno article-pattern artlist prefix groupspec qstring nnir-tmp-buffer nnir-notmuch-program cp-list exitstatus gnus-verbose result] 13 (#$ . 45945)])
#@48 Run find and grep to obtain matching articles.
(defalias 'nnir-run-find-grep #[(query server &optional grouplist) "\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*)) $\323\324$@!\325P! +\306+$AA\"A@ ,\306\326\"A -\306\327\"A .\206n\330! .,\204z\331\332\"\210\333\334\335\336.\"\".\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 #[(x) "\306\307\310\n\206 \"\210\311 \312\216\313
!q\2104\314V\203\" \315p!\210\3165!\210\n\204/ \317\202` \n 6\320\3216\"\203C 6\322\225\306O\202E 6)\323\n!\203Q \n\202_ \323\324\n\325\326\327$\211!\205_ \n)\211\204i \330\331!\210\212\332\333\334\306\327\334\n\335\336\337\340\341\342\343\344\345\3467\205\206 \3477\350\327#\3518\352BB\"B&\210*m\204\372 \347`\353 {\326\327# 9\354\3559!@! :9@\317\230\203\272 9A\2119\202\253 \356\3579GS\306 ; <<S\211<\322Y\203\337 9\211A9\242;B;\202\305 ;\237*\317#\360\361\n \":\322# B)\362y\210*\202\222 \307\363\n\206 \"\210 ,\207" [x artlist group server #1=#:wconfig nnir-tmp-buffer nil message "Searching %s using find-grep..." current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] get-buffer-create 6 pop-to-buffer cd "." string-match "^[^:]+:" 0 file-directory-p gnus-replace-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 vector gnus-group-full-name 1 "Searching %s using find-grep...done" gnus-verbose directory gname grep-options regexp path art res end] 22] opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result sym directory regexp grouplist] 6 (#$ . 47671)])
#@47 Run a search against a gmane back-end server.
(defalias 'nnir-run-gmane #[(query srv &optional groups) "\306\301 \236A \211 \203 \f<\203 \f\206J\307\f
\"A\206J\f\310\232\203) 7\2063\307\f8\"A\2063\307\f9\"A\2063: ;;\203a \f\311\312;@@@;@@A@#\232\204a ;\211A;\210\202? ;@@)\2063< ==\203\215 \f\311\312=@@=@A@#\232\204\215 =\211A=\210\202m =@)\2063>A\313\211 ? @ AA\2030\314A\211AA\2428\211@;\204\237 \f@\313\306 B C @\3152 @\206\312 7@C\204\326 \316\317
\"\210\316\32089D\"\210@A@\321\235\203\361 \311\322@@\"\202\373 \311\312@@@A@#\211 D@B\211 E
\235\204 B\204 \307E@
\"\204 E
BD*0+\232\203\237 @?\313\211A\204\244 ?+\211 F\203G\307\f
\"\204G\fFB
BF))A@ \323\324G\325# H\326 \236\203f\311\327\326 \236A\"\202g\330 I\311\331\nHI$ J\306 K\313 L\332\333!\210r\334M!q\210\335 \210\336\337\340\341\342JB\343B!Q!\210\344\306!\210\345ed\346#\210eb\210\347y\210m\204\357l\204\351\350\351!\204\351\352 \211 N\353H\354\307\355N\356H\"A! O P\357\360P\"\203\350\361\362\363\347P\" \"\354\363\364P\"!O#LBL+\347y\210\202\245)\365\361\366L!\237\".\207" [case-fold-search query qstring srv server gnus-server-method-cache 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 #1="") "%s" mapconcat #[(x) "\302\303\304\305#)\266\203\203 \306\307\310!\"\207\311\312\"\207" [x inhibit-changing-match-data "gmane" nil t string-match format "group:%s" gnus-group-short-name error "Can't search non-gmane groups: %s"] 7] " " 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 mm-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 mm-delete-duplicates gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result groups groupspec authorspec search gnus-inhibit-demon artlist nnir-tmp-buffer header xscore xref] 7 (#$ . 50613)])
#@35 Say whether GROUP is nnir or not.
(defalias 'gnus-nnir-group-p #[(group) "\301!\203
\302!@\303=\207\205 \304\305\"\207" [group gnus-group-prefixed-p gnus-find-method-for-group nnir string-match "^nnir"] 3 (#$ . 53196)])
#@65 Reads additional search parameters according to `nnir-engines'.
(defalias 'nnir-read-parms #[(nnir-search-engine) "\303 \"AA@\304\305\n\")\207" [nnir-search-engine nnir-engines parmspec assoc mapcar nnir-read-parm] 3 (#$ . 53428)])
#@103 Reads a single search parameter.
`parmspec' is a cons cell, the car is a symbol, the cdr is a prompt.
(defalias 'nnir-read-parm #[(parmspec) "@A <\203( \306\307 \"\310 \f\"\206 \311
B \f\n\312\fA \"*B\202- \n\313 !B*\207" [parmspec prompt sym result nnir-imap-search-arguments nnir-imap-search-other apply gnus-completing-read assoc nil format read-string mapping] 4 (#$ . 53669)])
#@65 Invoke appropriate search engine function (see `nnir-engines').
(defalias 'nnir-run-query #[(specs) "\301\302\303\304\305\236A\"\"\207" [specs apply vconcat mapcar #[(x) "@\306 !\307\n \"A@\211 \205 \f\310
\236A A@#+\207" [x server search-engine nnir-engines search-func specs nnir-server-to-search-engine assoc nnir-query-spec] 5] nnir-group-spec] 6 (#$ . 54064)])
(defalias 'nnir-server-to-search-engine #[(server) "\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@#\211 B\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] 7])
#@166 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.
(defalias 'nnir-read-server-parm #[(key server &optional not-global) "\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 \203Y AA\236\203Y AA\236A@\202l!\204k\323 !\203k J\202l\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 key not-global] 6 (#$ . 55808)])
(defalias 'nnir-possibly-change-group #[(group &optional server) "\203 \303!\204 \304!\210\305 !\205 \306\307\310 !\311\"\302\312#\211\207" [server group 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] 4])
(defalias 'nnir-server-opened #[(&optional server) "\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 \"\206E\323 \"\324\"!#\203[\310\325##\202\\\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] 6])
(autoload 'nnimap-make-thread-query "nnimap")
#@223 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.
(defalias 'nnir-search-thread #[(header) "\301\306!B\307\310BD\311\n!\312\211 \3132o
\206 \f\204' \314\315 \"\210\314\316 !D\"\210
A@\317\235\203@ \320\321
@\"\202H \320\322
@
A@#\211 \"
B\211 # \235\204k \204k \323#@ \"\204k # B \"*0+CC $\324\325!\205\201 \326\327H\330\"@\211 %\205\356 \311%!\312\211 \3132\355
\206\232 \f\204\245 \314\315 \"\210\314\316 !D\"\210
A@\317\235\203\276 \320\321
@\"\202\306 \320\322
@
A@#\211 \"
B\211 # \235\204\351 \204\351 \323#@ \"\204\351 # B \"*0+\211 &\203&C\211 '$\235\203$\210\202
'$B$)\331\312\332 B\333$BD\"\210\334\335\327H!!,\207" [header query gnus-newsgroup-name no-enter-cache nocache method 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 gnus-bound-and-true-p 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-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist name name-method server registry-group registry-server #2=#:x] 6 (#$ . 59140)])
(defalias 'nnir-get-active #[(srv) "\211\203 <\203 \206=\306 \n\"A\206= \307\232\203! \206&\306 \f\"A\206&\306
\"A\206&! \"\"\203W \310\311\"@@@\"@@A@#\232\204W \"\211A\"\210\2025 \"@@)\206&# $$\203\203 \310\311$@@$@A@#\232\204\203 $\211A$\210\202c $@)\206&%A\312\211 & ' ((\203#\313(\211A(\2428\211';\204\225 '\312\314 ) * '\3152'\206\277 '*\204\313 \316\317\n\"\210\316\320\f
D\"\210'A@\321\235\203\344 \310\322'@\"\202\356 \310\311'@'A@#\211 +'B\211 ,\n\235\204)\204\306,@\n\"\204,\nB+*0+\232\203\225 '&\312\211(\204\232 &+\211 -\203:\306 \n\"\204: -B\nB-))\312 . '\323'!\210r/q\210p\312 + 0eb\2101\203g1\324\230\204g\3251!\210'@\326=\203\231m\204\377\3271\216\330\331`\332\312w\210`{'\"!.B\211.0\202\222\210\202\223\210\312y\210\202om\204\377\3331\364\330\312f\334=\203\264\331\3350!'\"\202\351`\324 + 2\336\312w\2102`{+\312f\337=\203\342`T2\340u\210\336\312w\210+2`{P+\202\304\331+'\"*!.B\211.0\202\370\210\202\371\210\312y\210\202\231+.*\207" [srv server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist 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) mm-string-as-unibyte gnus-group-full-name "^ " (error) 34 read "^ \\\\" 92 2 gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result groups nntp-server-buffer cur nnir-ignored-newsgroups p] 6])
#@62 Call `gnus-registry-action' with the original article group.
(defalias 'nnir-registry-action #[(action data-header from &optional to method) "\305 \211\306H\306V\205 \n \306HS\234\306\234 \f%\207" [action data-header nnir-artlist to method gnus-registry-action 0] 6 (#$ . 62725)])
(defalias 'nnir-mode #[nil "\303!@\304=\205; \206 \n\305\306!\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-find-method-for-group nnir gnus-bound-and-true-p gnus-registry-enabled 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 #[nil "\305\306!\204\n \307\310!\210\311\312!\313\314!r\fq\210\315 \n\316\317 !$,\207" [gnus-newsgroup-name pgroup method 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] 6 nil nil])
(defalias 'nnir-request-create-group #[(group &optional server args) "\306\307\"\210\310\311\"\305 \236\312\n\236A\206 \313\314\315\316\317#BC\320\n\236A\206, \314\321\316\211#CC \312 B\320\fBD \322\305
#\210\322\323\211 \236A\206H \324
!#\210\325\326\327\"J8\"\210-\330\207" [group args specs query-spec group-spec nnir-specs message "Creating nnir group %s" gnus-group-prefixed-name (nnir "nnir") 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 gnus-newsrc-hashtb] 6])
(nnoo-register-function 'nnir-request-create-group)
(defalias 'nnir-request-delete-group #[(group &optional force server) "\300\207" [t] 1])
(nnoo-register-function 'nnir-request-delete-group)
(defalias 'nnir-request-list #[(&optional server) "\300\207" [t] 1])
(nnoo-register-function 'nnir-request-list)
(defalias 'nnir-request-scan #[(group method) "\300\207" [t] 1])
(nnoo-register-function 'nnir-request-scan)
(defalias 'nnir-request-close #[nil "\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)
Kontol Shell Bypass