;ELC ;;; compiled by amu@mit.edu on Sat Sep 13 16:19:20 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/gnus-logic.el ;;; emacs version 19.30.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) "Á‰\f‰A@‰…XÅ@!ƒ ÇHž‰ƒ5\n‰AA@†/ \\¡ˆ‚ ÇHA@†A BB\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 (#$ . 1170)]) #@40 Apply RULE to `gnus-advanced-headers'. (defalias 'gnus-advanced-score-rule #[(rule) "@‰Â=„ Ã=ƒ2A‰„Ã-Å@!ƒ-‰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 (#$ . 1605)]) (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 (#$ . 2355)]) (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) "ÀÁ\n H!!ÀÁ\f!!Ç=ƒ \fš‚<È=ƒ)É\f \"‚<Ê=ƒ7É \f\"‚<ËÌ\"*‡" [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"] 4]) (defalias 'gnus-advanced-body #[(header match type) "Á˜ƒÂŠ qˆĘƒÅ‚!Ƙƒ Ç‚!È Ê Ê\fÍÎP!ÒÓÔ*„C  È ÖH\f×ØÙ\f#ˆ \f\"…»ebˆ ƒ„ Å=ƒx`ÚÛÊÜ#†sd}ˆ‚„ÚÛÊÜ#†`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 G77650 (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))