;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 \307HB B\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 (#$ . 782)])#@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=\203UA\262\205\262\203S\305@!\204SA\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 (#$ . 1288)])#@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 (#$ . 2078)])#@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 (#$ . 2285)])#@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 (#$ . 2947)])#@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 (#$ . 3167)])#@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! \3161]\211;\203<\317!@\202=\211\211\205U\320!\204K\321!\210\322\314\323\324#!!\2620\266\202\202`\266\313\204p\310\230\204p\262\312\262\n\325H\262\326\327\330#\210 \"\205\351\310\230\203\215\331 \262eb\210\203\265\307=\203\251`\332\333\313\334#\206\244d}\210\202\265\332\333\313\334#\206\262`d}\210\335!\227\335!=?\336\267\202\316\337\202\323\332\202\323\340\341\"eb\210\211\313\334#~\210\203\346\342!\210)\262\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 198 R 198 regexp 198 Regexp 198 s 202 S 202 string 202 String 202)) re-search-forward error "Invalid match type: %s" mm-destroy-parts] 16 (#$ . 3554)]) (provide 'gnus-logic)