| Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/gnus/gnus-logic.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\240 d}\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)