;ELC
;;; Compiled
;;; in Emacs version 26.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\303 \203/ \307@!\203/ \211A\210\202 ?\202\303 \310=\204@ \311=\203` \210A\211\205\303 \203\\ \307@!\204\\ \211A\210\202I \202\303 \312=\204r \313=\204r \n=\203{ \307A@!?\202\303 9\203\264 \314\315\316 !\"\203\264 \317 \314\320\316 !\"\203\241 \321\316 !\322\224\322\225O!\202\245 \316 !G\"\211\205\260 \307A@!)\202\303 ;\203\277 \323!\202\303 \324\325\")\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 1 gnus-advanced-score-article error "Unknown advanced score type: %s"] 7 (#$ . 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>\203% \312
\f\"\202U \313>\2034 \312\314
!\f\"\202U \315>\203@
\f\230\202U \316>\203Q \312\314\317
!!\f\"\202U \320\321\"+\207" [type case-fold-search gnus-advanced-headers index header match s symbol-name "" (r R regexp Regexp) string-match (s S string String) regexp-quote (e E exact Exact) (f F fuzzy Fuzzy) gnus-simplify-subject-fuzzy error "No such string match type: %s"] 4 (#$ . 2682)])
(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\307 H!\"\305\306\307\n!\"\f\310\267\202* \n\232\202. \311\n \"\202. \311 \n\"\202. \312\313\f\"*\207" [gnus-advanced-headers index match date type apply encode-time parse-time-string #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (at 22 before 28 after 35)) time-less-p error "No such date score type: %s"] 5])
(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!& ' (\3201e ';\203E \321'!@\202G ' )\322)!\204U \323)!\210\324\316\325\326)(#!!)0\202g \210\315*\204u \312\230\204u \n\314*\327H\330\331\332\f#\210\n\f&\"\205\370 \312\230\203\221 \333 eb\210 \203\271 \311=\203\255 `\334\335\315\336#\206\250 d}\210\202\271 \334\335\315\336#\206\266 `d}\210\337+!\227\337+!=? ,+\340>\203\321 \341\202\341 +\342>\203\334 \334\202\341 \343\344+\" -eb\210-.\315\336#\210~\210*
\205\370 \345
!-\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 (r R regexp Regexp) re-search-forward (s S string String) error "Invalid match type: %s" mm-destroy-parts gnus-newsgroup-name group func method gnus-advanced-headers type case-fold-search search-func match] 7])
(provide 'gnus-logic)
|