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



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require gnus gnus-score gnus-util] 2)
(defvar gnus-advanced-headers nil)
(defvar gnus-advanced-not (byte-code "\300\301\302\303\"!\207" [intern format "%c" 172] 4))
(defconst gnus-advanced-index '(("number" 0 gnus-advanced-integer) ("subject" 1 gnus-advanced-string) ("from" 2 gnus-advanced-string) ("date" 3 gnus-advanced-date) ("message-id" 4 gnus-advanced-string) ("references" 5 gnus-advanced-string) ("chars" 6 gnus-advanced-integer) ("lines" 7 gnus-advanced-integer) ("xref" 8 gnus-advanced-string) ("head" nil gnus-advanced-body) ("body" nil gnus-advanced-body) ("all" nil gnus-advanced-body)))
(autoload 'parse-time-string "parse-time")
#@98 Apply advanced scoring RULE to all the articles in the current group.

(fn RULE &optional TRACE)
(defalias 'gnus-score-advanced #[513 "\305\211\211\211\205Y\211@\306@!\211\262\203QA@\206\n\262
\247\203)
_\262	\307H\236\211\262\203>\211A\\\241\210\202Q	\307HBB\203Q\310B\fB\211A\262
)\202\207" [gnus-newsgroup-headers gnus-advanced-headers gnus-score-interactive-default-score gnus-newsgroup-scored gnus-score-trace nil gnus-advanced-score-rule 0 "A file"] 9 (#$ . 783)])
#@51 Apply RULE to `gnus-advanced-headers'.

(fn RULE)
(defalias 'gnus-advanced-score-rule #[257 "\211@\211\302=\204\211\303=\203-
A\262
\204\304\207
\203*\305@!\203*
A\262\202
?\207\211\306=\2049\211\307=\203U
A\262
\205\262
\203S\305@!\204S
A\262\202A
\207\211\310=\204g\211\311=\204g\211=\203n\305A@!?\207\2119\203\245\312\313\314!\"\203\245\315	\312\316\314!\"\203\224\317\314!\320\224\320\225O!\202\230\314!G\"\211\205\243\305A@!)\207\211;\203\256\321!\207\322\323\"\207" [gnus-advanced-not gnus-advanced-headers & and t gnus-advanced-score-rule | or ! not string-match "^[0-9]+-$\\|^\\^+$" symbol-name gnus-parent-headers "^\\([0-9]+\\)-$" string-to-number 1 gnus-advanced-score-article error "Unknown advanced score type: %s"] 9 (#$ . 1290)])
#@13 

(fn RULE)
(defalias 'gnus-advanced-score-article #[257 "\211@\301
\227\"\211\204\302\303\"\207\211AA@
A@\206A@AA@#\207" [gnus-advanced-index assoc error "No such header: %s"] 7 (#$ . 2081)])
#@99 See whether string MATCH of TYPE matches `gnus-advanced-headers' in INDEX.

(fn INDEX MATCH TYPE)
(defalias 'gnus-advanced-string #[771 "\211\206\302\303
!\227\303!=?	H\206\304
\305\267\202>\306\"\202B\306\307!\"\202B
\230\202B\306\307\310!!\"\202B\311\312\")\207" [case-fold-search gnus-advanced-headers s symbol-name "" #s(hash-table size 16 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (r 28 R 28 regexp 28 Regexp 28 s 35 S 35 string 35 String 35 e 44 E 44 exact 44 Exact 44 f 50 F 50 fuzzy 50 Fuzzy 50)) string-match regexp-quote gnus-simplify-subject-fuzzy error "No such string match type: %s"] 9 (#$ . 2289)])
#@25 

(fn INDEX MATCH TYPE)
(defalias 'gnus-advanced-integer #[771 "\211\301>\204\302\303\"\207\211H\206\304\"\207" [gnus-advanced-headers (< > <= >= =) error "No such integer score type: %s" 0] 6 (#$ . 2952)])
#@25 

(fn INDEX MATCH TYPE)
(defalias 'gnus-advanced-date #[771 "\301\302H!!\301\302!!\303\267\202 

\232\207\304
\"\207\304\"\207\305\306\"\207" [gnus-advanced-headers encode-time parse-time-string #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (at 18 before 22 after 27)) time-less-p error "No such date score type: %s"] 8 (#$ . 3173)])
#@26 

(fn HEADER MATCH TYPE)
(defalias 'gnus-advanced-body #[771 "\304\230\203	\305\262rq\210\306\230\203\307\202\"\310\230\203!\311\202\"\312\313\211\211\314\315P!	\3161Y\211;\203<\317
!@\202=\211\320
!\204G\321
!\210\322\314\323\324#!!\262
0\266\202\202\\\266\313\204l\310\230\204l\262\312\262\n\325H\262\326\327\330#\210	\"\205\344\310\230\203\211\331 \262
eb\210\203\261\307=\203\245`\332\333\313\334#\206\240d}\210\202\261\332\333\313\334#\206\256`d}\210\335!\227\335!=?\336\267\202\312\337\202\317\332\202\317\340\341\"eb\210\211\313\334#\210~\210)\210\211\205\344\342
!\266\204)\207" [nntp-server-buffer gnus-newsgroup-name gnus-advanced-headers case-fold-search "all" "article" "head" gnus-request-head "body" gnus-request-body gnus-request-article nil intern "request-" (error) gnus-find-method-for-group featurep require fboundp format "%s-%s" 0 gnus-message 7 "Scoring article %s..." gnus-score-decode-text-parts search-forward "\n\n" t symbol-name #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (r 194 R 194 regexp 194 Regexp 194 s 198 S 198 string 198 String 198)) re-search-forward error "Invalid match type: %s" mm-destroy-parts] 16 (#$ . 3561)])
(provide 'gnus-logic)