;ELC   
;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:42:02 1998
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/gnus-logic.el
;;; emacs version 19.34.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (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 "!!!! B!( \"!BB\"" [require gnus gnus-score gnus-util boundp gnus-advanced-headers nil current-load-list gnus-advanced-not 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)) gnus-advanced-index 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) "\fA@X @! H5 \nAA@/ 	\\ HA@A 	BB\n B\fB\f +" [gnus-newsgroup-headers nil score gnus-advanced-headers headers gnus-advanced-score-rule rule 0 gnus-newsgroup-scored gnus-score-interactive-default-score trace "A file" gnus-score-trace] 3 (#$ . 1174)])
#@40 Apply RULE to `gnus-advanced-headers'.
(defalias 'gnus-advanced-score-rule #[(rule) "@= 	=2 A Ă - @!- A ? 	=> 	=\\ A X @!X AE  	=o 	=o 	\n=x A@!? 	9 	!\" 	!\" 	!ҔҕO! 	!G\" A@!) 	; ! \")" [rule type & and t gnus-advanced-score-rule | or ! not gnus-advanced-not string-match "^[0-9]+-$\\|^\\^+$" symbol-name gnus-parent-headers gnus-advanced-headers "^\\([0-9]+\\)-$" string-to-number 0 gnus-advanced-score-article error "Unknown advanced score type: %s"] 7 (#$ . 1609)])
(defalias 'gnus-advanced-score-article #[(rule) "@	\" \"' \fAA@\fA@ 	A@AA@#*" [rule header assoc gnus-advanced-index func 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) " !!=?\fH>$ 	\"Z >5 	!\"Z >C 	Z >V 	!!\"Z \"+" [type s symbol-name case-fold-search gnus-advanced-headers index header (r R regexp Regexp) string-match 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 (#$ . 2359)])
(defalias 'gnus-advanced-integer #[(index match type) "> \"\fH \"" [type (< > <= >= =) error "No such integer score type: %s" match gnus-advanced-headers index 0] 4])
(defalias 'gnus-advanced-date #[(index match type) "\fH!\"!\"= B =. \"B == \"B \"*" [apply encode-time parse-time-string gnus-advanced-headers index match date type at before gnus-time-less after error "No such date score type: %s"] 5])
(defalias 'gnus-advanced-body #[(header match type) " qĘ ł! Ƙ  ǂ! 	\fP!ԏ*C 		H\f\f#	\f\" eb =x `#s d} # `d}!!=?> Ⴌ > ڂ \"%eb%&#~*," [header "all" "article" nntp-server-buffer "head" gnus-request-head "body" gnus-request-body gnus-request-article request-func nil ofunc article intern "request-" gnus-newsgroup-name group func G99162 (byte-code ";\f !@ \n! \n!\n	#!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-advanced-headers 0 gnus-message 7 "Scoring article %s..." search-forward "\n\n" t symbol-name type case-fold-search (r R regexp Regexp) re-search-forward (s S string String) error "Illegal match type: %s" search-func match] 5])
(provide (quote gnus-logic))
