;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:55 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-logic.el
;;; in Emacs version 24.3.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 (#$ . 1257)])
#@40 Apply RULE to `gnus-advanced-headers'.
(defalias 'gnus-advanced-score-rule #[(rule) "@\211\304=\204	\305=\2035\210A\211\204\306\202\305\2030\307@!\2030\211A@\210\202?\202\305	\310=\204A	\311=\203b\210A\211\205\305\203^\307@!\204^\211A@\210\202J\202\305	\312=\204t	\313=\204t	\n=\203}\307A@!?\202\305	9\203\266\314\315\316	!\"\203\266\317\314\320\316	!\"\203\243\321\316	!\322\224\322\225O!\202\247\316	!G\"\211\205\262\307A@!)\202\305	;\203\301\323!\202\305\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 (#$ . 1817)])
(defalias 'gnus-advanced-score-article #[(rule) "@\305	\227\n\"\211\204\306\307\"\202-AA@\211A@)\206\"	\211A@)AA@#*\207" [rule header gnus-advanced-index func x 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!=?\nH\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 (#$ . 2847)])
(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=\203\n\232\202:\f\311=\203)\312\n\"\202:\f\313=\2036\312\n\"\202:\314\315\f\"*\207" [gnus-advanced-headers index match date type apply encode-time parse-time-string at before time-less-p after 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!!\"#\315\320\321\217*\204E\312\230\204E\n\314$\322H\323\324\325\f#\210\n\f!\"\205\310\312\230\203a\326 eb\210\203\211\311=\203}`\327\330\315\331#\206xd}\210\202\211\327\330\315\331#\206\206`d}\210\332%!\227\332%!=?&%\333>\203\241\334\202\261%\335>\203\254\327\202\261\336\337%\"'eb\210'(\315\331#\210~\210*
\205\310\340
!-\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-" (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) 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 gnus-advanced-headers type case-fold-search search-func match] 6])
(provide 'gnus-logic)