;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:42:55 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/gnus-logic.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-logic.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\304\305!\210\304\306!\210\304\307!\210\301B\310\301!\204\311\302B\310\302!\204)\312\313\314\315\"!\303B\316\317\320\321\"\207" [current-load-list gnus-advanced-headers gnus-advanced-not gnus-advanced-index require gnus gnus-score gnus-util boundp nil intern format "%c" 172 (("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"] 4) #@71 Apply advanced scoring RULE to all the articles in the current group. (defalias 'gnus-score-advanced #[(rule &optional trace) "\306\211 \211A@\211\205Q\307\f@!\203\n\310H \236\211\2032 \211A\fA@\206,\n\\\241\210\202\n\310H\fA@\206=\nB B \203\311\fB\fB\f\202+\207" [gnus-newsgroup-headers score gnus-advanced-headers headers rule gnus-newsgroup-scored nil gnus-advanced-score-rule 0 "A file" gnus-score-interactive-default-score trace gnus-score-trace] 3 (#$ . 1375)]) #@40 Apply RULE to `gnus-advanced-headers'. (defalias 'gnus-advanced-score-rule #[(rule) "@\211\304=\204 \305=\2036\211A@\210\204\306\202\307\2031\307@!\2031\211A@\210\202?\202\307 \310=\204B \311=\203d\211A@\210\205\307\203`\307@!\204`\211A@\210\202L\202\307 \312=\204v \313=\204v \n=\203\307A@!?\202\307 9\203\270\314\315\316 !\"\203\270\317 \314\320\316 !\"\203\245\321\316 !\322\224\322\225O!\202\251\316 !G\"\211\205\264\307A@!)\202\307 ;\203\303\323!\202\307\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 0 gnus-advanced-score-article error "Unknown advanced score type: %s"] 7 (#$ . 1874)]) (defalias 'gnus-advanced-score-article #[(rule) "@\305 \227\n\"\211\204\306\307\"\2023 \211AA)@ \211A@)\206% \211A@)\211AA)@#*\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!=?\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 (#$ . 2917)]) (defalias 'gnus-advanced-integer #[(index match type) "\304>\204 \305\306\"\207 \n H\206\307\"\207" [type match gnus-advanced-headers index (< > <= >= =) error "No such integer score type: %s" 0] 4]) (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\307\212 q\210\310\230\203\311\202!\312\230\203 \313\202!\314\315\315\316\317P!  !\320\321\322\217*\204<\n\314\"\323H\324\325\326\f#\210\n\f \"\205\255eb\210 \203v \311=\203j`\327\330\315\331#\206ed}\210\202v\327\330\315\331#\206s`d}\210\332#!\227\332#!=?$#\333>\203\216\334\202\236#\335>\203\231\327\202\236\336\337#\"%eb\210%&\315\331#~\210*,\207" [header nntp-server-buffer request-func ofunc article gnus-newsgroup-name "all" "article" "head" gnus-request-head "body" gnus-request-body gnus-request-article nil intern "request-" #1=#:G97322 (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..." search-forward "\n\n" t symbol-name (r R regexp Regexp) re-search-forward (s S string String) error "Invalid match type: %s" group func gnus-advanced-headers type case-fold-search search-func match] 5]) (provide 'gnus-logic)