;ELC ;;; Compiled ;;; in Emacs version 27.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!\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") #@71 Apply advanced scoring RULE to all the articles in the current group. (defalias 'gnus-score-advanced #[(rule &optional trace) "\306\211\211 \306\211\205c @\307\n@!\211\203[\nA@\206$ \247\203.\n_\f\310H\f\236\211\203C \211A\n\\\241\210\202[\f\310H\nB\fB\f \203[\311\nBB A\211\204\306-\207" [multiple score new-score gnus-newsgroup-headers gnus-advanced-headers --dolist-tail-- nil gnus-advanced-score-rule 0 "A file" rule gnus-score-interactive-default-score gnus-newsgroup-scored trace gnus-score-trace] 4 (#$ . 1107)]) #@40 Apply RULE to `gnus-advanced-headers'. (defalias 'gnus-advanced-score-rule #[(rule) "@\211\304=\204 \305=\2034\210A\211\204\306\202\304\203/\307@!\203/\211A\210\202?\202\304 \310=\204@ \311=\203`\210A\211\205\304\203\\\307@!\204\\\211A\210\202I\202\304 \312=\204r \313=\204r \n=\203{\307A@!?\202\304 9\203\265\314\315\316 !\"\203\265\317 \314\320\316 !\"\203\242\321\322\316 !\323\224\323\225#!\202\246\316 !G\"\211\205\261\307A@!)\202\304 ;\203\300\324!\202\304\325\326\")\207" [rule type 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 substring 1 gnus-advanced-score-article error "Unknown advanced score type: %s"] 8 (#$ . 1667)]) (defalias 'gnus-advanced-score-article #[(rule) "@\304 \227\n\"\211\204\305\306\"\202' AA@ A@\206 A@AA@#*\207" [rule header gnus-advanced-index func assoc error "No such header: %s"] 5]) #@76 See whether string MATCH of TYPE matches `gnus-advanced-headers' in INDEX. (defalias 'gnus-advanced-string #[(index match type) "\206\306\307!\227\307!=?\n H\206\310\311\267\202?\312 \f\"\202C\312\313 !\f\"\202C \f\230\202C\312\313\314 !!\f\"\202C\315\316\"+\207" [type case-fold-search gnus-advanced-headers index header match s symbol-name "" #s(hash-table size 16 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (r 30 R 30 regexp 30 Regexp 30 s 37 S 37 string 37 String 37 e 46 E 46 exact 46 Exact 46 f 52 F 52 fuzzy 52 Fuzzy 52)) string-match regexp-quote gnus-simplify-subject-fuzzy error "No such string match type: %s"] 4 (#$ . 2696)]) (defalias 'gnus-advanced-integer #[(index match type) "\304>\204 \305\306\"\207 \nH\206\307 \"\207" [type gnus-advanced-headers index match (< > <= >= =) error "No such integer score type: %s" 0] 3]) (defalias 'gnus-advanced-date #[(index match type) "\305\306 H!!\305\306\n!!\f\307\267\202( \n\232\202,\310\n \"\202,\310 \n\"\202,\311\312\f\"*\207" [gnus-advanced-headers index match date type encode-time parse-time-string #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (at 20 before 26 after 33)) time-less-p error "No such date score type: %s"] 4]) (defalias 'gnus-advanced-body #[(header match type) "\306\230\203\307r q\210\310\230\203\311\202!\312\230\203 \313\202!\314\315\211\315\316\317P!%\3201\\\211;\203?\321!@\202@\211\322!\204J\323!\210\324\316\325\326#!!\2620\266\202\202`\210\315\266\202\204m\312\230\204m\n\314&\327H\330\331\332\f#\210\n\f%\"\205\351\312\230\203\211\333 eb\210 \203\261 \311=\203\245`\334\335\315\336#\206\240d}\210\202\261\334\335\315\336#\206\256`d}\210\337'!\227\337'!=?('\340\267\202\315\341\202\322\334\202\322\342\343'\")eb\210)*\315\336#\210~\210* \205\351\344 !-\207" [header nntp-server-buffer request-func ofunc article handles "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 197 R 197 regexp 197 Regexp 197 s 201 S 201 string 201 String 201)) re-search-forward error "Invalid match type: %s" mm-destroy-parts gnus-newsgroup-name gnus-advanced-headers type case-fold-search search-func match] 10]) (provide 'gnus-logic)