| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/gnus/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\301\310!\210\301\311!\210\301\312!\210\313\314\315\316\317DD\320\321\322\323\324&\210\313\325\315\316\326DD\327\321\322\323\330&\210\313\331\315\316\332DD\333\321\322\323\334&\210\313\335\315\316\336DD\337\321\322\323\340&\210\313\300\315\316\341DD\342\321\322\321\343\323\340& \210\313\344\315\316\345DD\346\321\322\323\347&\210\313\350\315\316\351DD\352\321\353\323\354&\210\313\355\315\316\356DD\357\321\360\323\361&\210\313\362\315\316\363DD\364\321\360\323\365&\210\313\366\315\316\367DD\370\321\371\323\372\373\374\375\376\377\201@ \201A QF\201B BBBB&\210\313\201C \315\316\201D DD\201E \321\371\323\201F &\210\313\201G \315\316\201H DD\201I \321\371\323\354&\210\313\201J \315\316\201K DD\201L \321\371\323\201M &\210\313\201N \315\316\201O DD\201P \321\322\323\201Q &\210\313\201R \315\316\201S DD\201T \321\343\321\322\323\201U & \210\313\201V \315\316\201W DD\201X \321\343\323\201Y &\210\313\201Z \315\316\201[ DD\201\\ \201] \201^ \321\343\323\201_ & \210\313\201` \315\316\201a DD\201b \321\343\323\201c &\210\313\201d \315\316\201e DD\201f \321\343\323\201g &\210\313\201h \315\316\201i DD\201j \321\343\323\201k &\210\313\201l \315\316\201m DD\201n \321\343\323\201o &\210\313\201p \315\316\201q DD\201r \321\343\323\365&\210\313\201s \315\316\201t DD\201u \321\353\323\365&\210\313\201v \315\316\201w DD\201x \321\343\323\201y &\210\313\201z \315\316\201{ DD\201| \321\343\321\322\323\201} & \210\313\201~ \315\316\201 DD\201\200 \321\322\321\343\201] \201\201 \323\365& \210\313\201\202 \315\316\201\203 DD\201\204 \321\353\323\201\205 &\210\313\201\206 \315\316\201\207 DD\201\210 \321\353\323\201\211 &\210\313\201\212 \315\316\201\213 DD\201\214 \321\353\323\365&\210\313\201\215 \315\316\201\216 DD\201\217 \321\353\323\201\220 &\210\313\201\221 \315\316\201\222 DD\201\223 \321\322\323\201\224 &\210\313\201\225 \315\316\201\226 DD\201\227 \321\201\230 \323\365&\210\313\201\231 \315\316\201\232 DD\201\233 \321\201\230 \201] \201\201 \323\201\234 & \207" [gnus-adaptive-file-suffix require gnus gnus-sum gnus-art gnus-range gnus-win message score-mode gmm-utils cl-lib custom-declare-variable gnus-global-score-files funcall function #[0 "\300\207" [nil] 1 #1=""] "List of global score files and directories.\nSet this variable if you want to use people's score files. One entry\nfor each score file or each score file directory. Gnus will decide\nby itself what score files are applicable to which group.\n\nSay you want to use the single score file\n\"/ftp.gnus.org:/pub/larsi/ding/score/soc.motss.SCORE\" and all\nscore files in the \"/ftp.some-where:/pub/score\" directory.\n\n (setq gnus-global-score-files\n \\='(\"/ftp.gnus.org:/pub/larsi/ding/score/soc.motss.SCORE\"\n \"/ftp.some-where:/pub/score\"))" :group gnus-score-files :type (repeat file) gnus-score-file-single-match-alist #[0 "\300\207" [nil] 1 #1#] "Alist mapping regexps to lists of score files.\nEach element of this alist should be of the form\n (\"REGEXP\" [ \"SCORE-FILE-1\" ] [ \"SCORE-FILE-2\" ] ... )\n\nIf the name of a group is matched by REGEXP, the corresponding scorefiles\nwill be used for that group.\nThe first match found is used, subsequent matching entries are ignored (to\nuse multiple matches, see `gnus-score-file-multiple-match-alist').\n\nThese score files are loaded in addition to any files returned by\n`gnus-score-find-score-files-function'." (repeat (cons regexp (repeat file))) gnus-score-file-multiple-match-alist #[0 "\300\207" [nil] 1 #1#] "Alist mapping regexps to lists of score files.\nEach element of this alist should be of the form\n (\"REGEXP\" [ \"SCORE-FILE-1\" ] [ \"SCORE-FILE-2\" ] ... )\n\nIf the name of a group is matched by REGEXP, the corresponding scorefiles\nwill be used for that group.\nIf multiple REGEXPs match a group, the score files corresponding to each\nmatch will be used (for only one match to be used, see\n`gnus-score-file-single-match-alist').\n\nThese score files are loaded in addition to any files returned by\n`gnus-score-find-score-files-function'." (repeat (cons regexp (repeat file))) gnus-score-file-suffix #[0 "\300\207" ["SCORE"] 1 #1#] "Suffix of the score files." string #[0 "\300\207" ["ADAPT"] 1 #1#] "Suffix of the adaptive score files." gnus-score-adapt gnus-score-find-score-files-function #[0 "\300\207" [gnus-score-find-bnews] 1 #1#] "Function used to find score files.\nThe function will be called with the group name as the argument, and\nshould return a list of score files to apply to that group. The score\nfiles do not actually have to exist.\n\nPredefined values are:\n\n`gnus-score-find-single': Only apply the group's own score file.\n`gnus-score-find-hierarchical': Also apply score files from parent groups.\n`gnus-score-find-bnews': Apply score files whose names matches.\n\nSee the documentation to these functions for more information.\n\nThis variable can also be a list of functions to be called. Each\nfunction is given the group name as argument and should either return\na list of score files, or a list of score alists.\n\nIf functions other than these pre-defined functions are used,\nthe `a' symbolic prefix to the score commands will always use\n\"all.SCORE\"." (radio (function-item gnus-score-find-single) (function-item gnus-score-find-hierarchical) (function-item gnus-score-find-bnews) (repeat :tag "List of functions" (choice (function :tag "Other" :value 'ignore) (function-item gnus-score-find-single) (function-item gnus-score-find-hierarchical) (function-item gnus-score-find-bnews))) (function :tag "Other" :value 'ignore)) gnus-score-interactive-default-score #[0 "\300\207" [1000] 1 #1#] "Scoring commands will raise/lower the score with this number as the default." gnus-score-default integer gnus-score-expiry-days #[0 "\300\207" [7] 1 #1#] "Number of days before unused score file entries are expired.\nIf this variable is nil, no score file entries will be expired." gnus-score-expire (choice (const :tag "never" nil) number) gnus-update-score-entry-dates #[0 "\300\207" [t] 1 #1#] "If non-nil, update matching score entry dates.\nIf this variable is nil, then score entries that provide matches\nwill be expired along with non-matching score entries." boolean gnus-decay-scores #[0 "\300\207" [nil] 1 #1#] "If non-nil, decay non-permanent scores.\n\nIf it is a regexp, only decay score files matching regexp." gnus-score-decay choice (const :tag "never" nil) (const :tag "always" t) const :tag "adaptive score files" "\\." "\\'" ((regexp)) gnus-decay-score-function #[0 "\300\207" [gnus-decay-score] 1 #1#] "Function called to decay a score.\nIt is called with one parameter -- the score to be decayed." (radio (function-item gnus-decay-score) (function :tag "Other")) gnus-score-decay-constant #[0 "\300\207" [3] 1 #1#] "Decay all \"small\" scores with this amount." gnus-score-decay-scale #[0 "\300\207" [0.05] 1 #1#] "Decay all \"big\" scores with this factor." number gnus-home-score-file #[0 "\300\207" [nil] 1 #1#] "Variable to control where interactive score entries are to go.\nIt can be:\n\n * A string\n This file will be used as the home score file.\n\n * A function\n The result of this function will be used as the home score file.\n The function will be passed the name of the group as its\n parameter.\n\n * A list\n The elements in this list can be:\n\n * `(regexp file-name ...)'\n If the `regexp' matches the group name, the first `file-name'\n will be used as the home score file. (Multiple filenames are\n allowed so that one may use gnus-score-file-single-match-alist to\n set this variable.)\n\n * A function.\n If the function returns non-nil, the result will be used\n as the home score file. The function will be passed the\n name of the group as its parameter.\n\n * A string. Use the string as the home score file.\n\n The list will be traversed from the beginning towards the end looking\n for matches." (choice string (repeat (choice string (cons regexp (repeat file)) function)) (function-item gnus-hierarchial-home-score-file) (function-item gnus-current-home-score-file) function) gnus-home-adapt-file #[0 "\300\207" [nil] 1 #1#] "Variable to control where new adaptive score entries are to go.\nThis variable allows the same syntax as `gnus-home-score-file'." (choice string (repeat (choice string (cons regexp (repeat file)) function)) function) gnus-default-adaptive-score-alist #[0 "\301\302\303\304\305\\D\306\307\\DE\310\306\311\312_\\DD\313\304\312ZD\306\314\312_\\DE\315\304\312ZD\306\316\312_\\DE\257\207" [gnus-score-decay-constant (gnus-kill-file-mark) (gnus-unread-mark) gnus-read-mark from 2 subject 27 gnus-catchup-mark -7 -1 gnus-killed-mark -17 gnus-del-mark -12] 11 #1#] "Alist of marks and scores.\nIf you use score decays, you might want to set values higher than\n`gnus-score-decay-constant'." (repeat (cons (symbol :tag "Mark") (repeat (list (choice :tag "Header" (const from) (const subject) (symbol :tag "other")) (integer :tag "Score"))))) gnus-adaptive-word-length-limit #[0 "\300\207" [nil] 1 #1#] "Words shorter than this limit will be ignored when doing adaptive scoring." :version "22.1" (radio (const :format "Unlimited " nil) (integer :format "Maximum length: %v")) gnus-ignored-adaptive-words #[0 "\300\207" [nil] 1 #1#] "List of words to be ignored when doing adaptive word scoring." (repeat string) gnus-default-ignored-adaptive-words #[0 "\300\207" [("a" "i" "the" "to" "of" "and" "in" "is" "it" "for" "that" "if" "you" "this" "be" "on" "with" "not" "have" "are" "or" "as" "from" "can" "but" "by" "at" "an" "will" "no" "all" "was" "do" "there" "my" "one" "so" "we" "they" "what" "would" "any" "which" "about" "get" "your" "use" "some" "me" "then" "name" "like" "out" "when" "up" "time" "other" "more" "only" "just" "end" "also" "know" "how" "new" "should" "been" "than" "them" "he" "who" "make" "may" "people" "these" "now" "their" "here" "into" "first" "could" "way" "had" "see" "work" "well" "were" "two" "very" "where" "while" "us" "because" "good" "same" "even" "much" "most" "many" "such" "long" "his" "over" "last" "since" "right" "before" "our" "without" "too" "those" "why" "must" "part" "being" "current" "back" "still" "go" "point" "value" "each" "did" "both" "true" "off" "say" "another" "state" "might" "under" "start" "try" "re")] 1 #1#] "Default list of words to be ignored when doing adaptive word scoring." (repeat string) gnus-default-adaptive-word-score-alist #[0 "\304B \305B\n\306B \307BF\207" [gnus-read-mark gnus-catchup-mark gnus-killed-mark gnus-del-mark 30 -10 -20 -15] 5 #1#] "Alist of marks and scores." (repeat (cons (character :tag "Mark") (integer :tag "Score"))) gnus-adaptive-word-minimum #[0 "\300\207" [nil] 1 #1#] "If a number, this is the minimum score value that can be assigned to a word." (choice (const nil) integer) gnus-adaptive-word-no-group-words #[0 "\300\207" [nil] 1 #1#] "If t, don't adaptively score words included in the group name." gnus-score-mimic-keymap #[0 "\300\207" [nil] 1 #1#] "Have the score entry functions pretend that they are a keymap." gnus-score-exact-adapt-limit #[0 "\300\207" [10] 1 #1#] "Number that says how long a match has to be before using substring matching.\nWhen doing adaptive scoring, one normally uses fuzzy or substring\nmatching. However, if the header one matches is short, the possibility\nfor false positives is great, so if the length of the match is less\nthan this variable, exact matching will be used.\n\nIf this variable is nil, exact matching will always be used." (choice (const nil) integer) gnus-score-uncacheable-files #[0 "\300\207" ["ADAPT$"] 1 #1#] "All score files that match this regexp will not be cached." regexp gnus-adaptive-pretty-print #[0 "\300\207" [nil] 1 #1#] "If non-nil, adaptive score files fill are pretty printed." "23.1" gnus-score-default-header #[0 "\300\207" [nil] 1 #1#] "Default header when entering new scores.\n\nShould be one of the following symbols.\n\n a: from\n s: subject\n b: body\n h: head\n i: message-id\n t: references\n x: xref\n e: `extra' (non-standard overview)\n l: lines\n d: date\n f: followup\n\nIf nil, the user will be asked for a header." (choice (const :tag "from" a) (const :tag "subject" s) (const :tag "body" b) (const :tag "head" h) (const :tag "message-id" i) (const :tag "references" t) (const :tag "xref" x) (const :tag "extra" e) (const :tag "lines" l) (const :tag "date" d) (const :tag "followup" f) (const :tag "ask" nil)) gnus-score-default-type #[0 "\300\207" [nil] 1 #1#] "Default match type when entering new scores.\n\nShould be one of the following symbols.\n\n s: substring\n e: exact string\n f: fuzzy string\n r: regexp string\n b: before date\n a: after date\n n: this date\n <: less than number\n >: greater than number\n =: equal to number\n\nIf nil, the user will be asked for a match type." (choice (const :tag "substring" s) (const :tag "exact string" e) (const :tag "fuzzy string" f) (const :tag "regexp string" r) (const :tag "before date" b) (const :tag "after date" a) (const :tag "this date" n) (const :tag "less than number" <) (const :tag "greater than number" >) (const :tag "equal than number" =) (const :tag "ask" nil)) gnus-score-default-fold #[0 "\300\207" [nil] 1 #1#] "Non-nil means use case folding for new score file entries." gnus-score-default-duration #[0 "\300\207" [nil] 1 #1#] "Default duration of effect when entering new scores.\n\nShould be one of the following symbols.\n\n t: temporary\n p: permanent\n i: immediate\n\nIf nil, the user will be asked for a duration." (choice (const :tag "temporary" t) (const :tag "permanent" p) (const :tag "immediate" i) (const :tag "ask" nil)) gnus-score-after-write-file-function #[0 "\300\207" [nil] 1 #1#] "Function called with the name of the score file just written to disk." (choice (const nil) function) gnus-score-thread-simplify #[0 "\300\207" [nil] 1 #1#] "If non-nil, subjects will simplified as in threading." gnus-score-various gnus-inhibit-slow-scoring #[0 "\300\207" [nil] 1 #1#] "Inhibit slow scoring, e.g. scoring on headers or body.\n\nIf a regexp, scoring on headers or body is inhibited if the group\nmatches the regexp. If it is t, scoring on headers or body is\ninhibited for all groups." (choice (const :tag "All" nil) (const :tag "None" t) regexp)] 16)
#@62 If nil, only `gnus-score-find-score-files-function' is used.
(defvar gnus-score-use-all-scores t (#$ . 14475))
#@53 Syntax table used when doing adaptive word scoring.
(defvar gnus-adaptive-word-syntax-table (byte-code "\300\301 !\302\211\203 \303\211A\262\242\304#\210\202 \303\305\306#\210\207" [copy-syntax-table standard-syntax-table (48 49 50 51 52 53 54 55 56 57) modify-syntax-entry " " 39 "w"] 6) (#$ . 14592))
(defvar gnus-scores-exclude-files nil)
(defvar gnus-internal-global-score-files nil)
(defvar gnus-score-file-list nil)
(defvar gnus-short-name-score-file-cache nil)
(defvar gnus-score-help-winconf nil)
(defvar gnus-adaptive-score-alist gnus-default-adaptive-score-alist)
(defvar gnus-adaptive-word-score-alist gnus-default-adaptive-word-score-alist)
(defvar gnus-score-trace nil)
(defvar gnus-score-edit-buffer nil)
#@683 Alist containing score information.
The keys can be symbols or strings. The following symbols are defined.
touched: If this alist has been modified.
mark: Automatically mark articles below this.
expunge: Automatically expunge articles below this.
files: List of other score files to load when loading this one.
eval: Sexp to be evaluated when the score file is loaded.
String entries have the form (HEADER (MATCH TYPE SCORE DATE) ...)
where HEADER is the header being scored, MATCH is the string we are
looking for, TYPE is a flag indicating whether it should use regexp or
substring matching, SCORE is the score to add and DATE is the date
of the last successful match.
(defvar gnus-score-alist nil (#$ . 15325))
(defvar gnus-score-cache nil)
(defvar gnus-scores-articles nil)
(defvar gnus-score-index nil)
(defconst gnus-header-index '(("number" 0 gnus-score-integer) ("subject" 1 gnus-score-string) ("from" 2 gnus-score-string) ("date" 3 gnus-score-date) ("message-id" 4 gnus-score-string) ("references" 5 gnus-score-string) ("chars" 6 gnus-score-integer) ("lines" 7 gnus-score-integer) ("xref" 8 gnus-score-string) ("extra" 9 gnus-score-string) ("head" -1 gnus-score-body) ("body" -1 gnus-score-body) ("all" -1 gnus-score-body) (score-fn -1 nil) ("followup" 2 gnus-score-followup) ("thread" 5 gnus-score-thread)))
(gnus-define-keys-1 '(gnus-summary-score-map "V" gnus-summary-mode-map) '("s" gnus-summary-set-score "S" gnus-summary-current-score "c" gnus-score-change-score-file "C" gnus-score-customize "m" gnus-score-set-mark-below "x" gnus-score-set-expunge-below "R" gnus-summary-rescore "e" gnus-score-edit-current-scores "f" gnus-score-edit-file "F" gnus-score-flush-cache "t" gnus-score-find-trace "w" gnus-score-find-favorite-words))
#@354 Make a score entry based on the current article.
The user will be prompted for header to score on, match type,
permanence, and the string to be used. The numerical prefix will
be used as SCORE. A symbolic prefix of `a' (the SYMP parameter)
says to use the `all.SCORE' file for the command instead of the
current score file.
(fn &optional SCORE SYMP)
(defalias 'gnus-summary-lower-score #[512 "\300\301![\"\207" [gnus-summary-increase-score gnus-score-delta-default] 5 (#$ . 17089) [(gnus-interactive "P\ny") (gnus-article-mode gnus-summary-mode)]])
(defalias 'gnus-score-kill-help-buffer #[0 "\301\302!\205 \303\302!\210\205 \304!\207" [gnus-score-help-winconf get-buffer "*Score Help*" kill-buffer set-window-configuration] 2])
#@354 Make a score entry based on the current article.
The user will be prompted for header to score on, match type,
permanence, and the string to be used. The numerical prefix will
be used as SCORE. A symbolic prefix of `a' (the SYMP parameter)
says to use the `all.SCORE' file for the command instead of the
current score file.
(fn &optional SCORE SYMP)
(defalias 'gnus-summary-increase-score #[512 "\306!\211\307W\203
\310\202 \311\307V\312\313\314\315 \316E\317\320E \n\205& \321\n!\307H \205/ \321 !\307H\f\2058 \321\f!\307H\322C\322\211\211\211\323\216\204\212 \203W \324\325!\210\326\327\"\210\202k \326\330\203b \331\202c \332\333\334\335##\210\336 \262\337U\204} \340U\203@ \322\262\341\342\325#\210\202@ \343 \210\227\236\240\204\254 \203\250 \344\345\n#\210\202\254 \344\346!\210\227U\204\330 \203\305 \326\345\n#\210\202\311 \326\335!\210\206\317 \347\262\206\326 \314\262\350\322\351\352\353 \"\"\"\2044 \203\375 \324\325!\210\326\354 #\210\202\326\355\203\331\202 \332\242A@\333\356\335#$\210\336 \262\337U\204(\340U\203\344 \322\262\341\357\360#\210\202\344 \343 \210\227\236A@\211\262\204Y \203U\344\345 #\266\202Z\344\361!\210\210\227U\204\200\203u\326\362\n\n$\210\202y\326\335!\210\206~\314\262\204\313\203\232\324\325!\210\326\363\n\n$\210\202\256\326\364\203\245\331\202\246\332\333\365\335##\210\336 \262\337U\204\276\340U\203\200\322\262\341\366 \360#\210\202\200\343 \210\203\342\326\367\n\n\n%\210\202\346\326\335!\210\n\236A@\211\262\204/T\370=\203\371\\\372=\203S\373=\203\374Z\375=\203\344\376!\210\203+\344\367\n\n\n%\210\202/\344\377!\210)
\205Z\242A@\201B \232\205Z\201C \351\321
\"\201D \201E \201F \322\211@&\262!\262\360\2428\335\230\203i\335\202{\201G \360\2428\206x\242A@\322#\262\242A@\201H \232\203\254\201I \201J \"\203\232\307\225\322O\262\201I \201K \"\203\254\307\225\322O\262\201L >\203\273\201M !\262\201N =\203\354r@q\210\201O A\201P \267\202\342\201Q \335!\202\351 \202\351\201Q \201R !!\210)\201S \242A@\201T =?\205\201U =?\205
\201V \2428?\322&\210\201N =\2050r@q\210\201O !)\207" [gnus-current-score-file gnus-score-mimic-keymap gnus-score-default-header gnus-score-default-type gnus-score-default-duration gnus-extra-headers gnus-score-delta-default 0 76 73 ((97 "from" nil nil string) (115 "subject" nil nil string) (98 "body" #1="" nil body-string) (104 "head" #1# nil body-string) (105 "message-id" nil nil string) (114 "references" "message-id" nil string) (120 "xref" nil nil string) (101 "extra" nil nil string) (108 "lines" nil nil number) (100 "date" nil nil date) (102 "followup" nil nil string) (116 "thread" "message-id" nil string)) ((115 s "substring" string) (101 e "exact string" string) (102 f "fuzzy string" string) (114 r "regexp string" string) (122 s "substring" body-string) (112 r "regexp string" body-string) (98 before "before date" date) (97 after "after date" date) (110 at "this date" date) (60 < "less than number" number) (62 > "greater than number" number) (61 = "equal to number" number)) 116 current-time-string "temporary" (112 perm "permanent") (105 now "immediate") symbol-name nil #[0 "\300 \207" [gnus-score-kill-help-buffer] 1] sit-for 1 message "%c-" "%s header (%s?): " "Increase" "Lower" mapconcat #[257 "\300@!\207" [char-to-string] 3 "\n\n(fn S)"] #1# read-char 63 8 gnus-score-insert-help "Match on header" gnus-score-kill-help-buffer error "%c %c" "Invalid header type" 115 delq mapcar make-closure #[257 "\301\300\2428\3028=\205\f \211\207" [V0 4 3] 4 "\n\n(fn S)"] "%c %c-" "%s header `%s' with match type (%s?): " #[257 "\300@!\207" [char-to-string] 3 "\n\n(fn S)"] "Match type" 2 "Invalid match type" "%c %c %c" "%c %c %c-" "%s permanence (%s?): " #[257 "\300@!\207" [char-to-string] 3 "\n\n(fn S)"] "Match permanence" "%c %c %c %c" 77 12 109 113 4 111 "You rang?" "Invalid match duration" gnus-summary-buffer gnus-score-find-score-files-function "extra" intern gnus-completing-read "Score extra header" t gnus-summary-header "xref" string-match "^Xref: *" "^[^:]* +" (r R regexp Regexp) regexp-quote a gnus-score-load-file #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (gnus-score-find-hierarchical 725 gnus-score-find-single 733)) gnus-score-file-name "all" gnus-summary-score-entry s perm 3] 27 (#$ . 17834) [(gnus-interactive "P\ny") (gnus-article-mode gnus-summary-mode)]])
(autoload 'appt-select-lowest-window "appt")
#@25
(fn STRING ALIST IDX)
(defalias 'gnus-score-insert-help #[771 "\303 r\304\305!q\210\306 \210\307p!\210\310 \210\311\261\210\312\313\314\211\211\211\203= @8G\262V\2046 \262A\262\202 \315\\\262\316 S\245\262\316 S\245\262\203\217 W\204g \313\262\317\312!\210\320c\210\321Z\262\322\323!\324Q\262\325\n@@\n\f@8#c\210A\262 T\262\202R \266eb\210\326 \210\327 \330\245 W\203\247 \331\305!\210\202\256 \332 \210\333\305!\210\334\335 \210)\336\337\n\340\"!)\207" [gnus-score-help-winconf window-min-height gnus-summary-buffer current-window-configuration gnus-get-buffer-create "*Score Help*" buffer-disable-undo delete-windows-on erase-buffer ":\n\n" -1 0 nil 4 window-width delete-char "\n" 3 "%c: %-" int-to-string "s" format appt-select-lowest-window window-height 2 switch-to-buffer split-window pop-to-buffer 1 shrink-window-if-larger-than-buffer select-window gnus-get-buffer-window t] 15 (#$ . 22434)])
#@38
(fn HEADER &optional NO-ERR EXTRA)
(defalias 'gnus-summary-header #[769 "\302`\303\"\211\205 \304!\266\302`\305\"\206 \306 \307\203R \310\"\3118\262\211\262\203I \312!\203I \203? \313H\236A\206Y \314\207\211\315 \"A@H\207?\205Y \316\317!\207\205Y \316\320!\207" [gnus-newsgroup-data gnus-header-index get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil gnus-data-find-in 3 vectorp 9 "" assoc error "Pseudo-articles can't be scored" "No article on current line"] 9 (#$ . 23389)])
(defalias 'gnus-newsgroup-score-alist #[0 "\302\303\"\211\205 \304!\262\204 \304\305!!\210 \207" [gnus-newsgroup-name gnus-score-alist gnus-group-find-parameter score-file gnus-score-load gnus-score-file-name] 3])
#@31
(fn SYMBOL &optional ALIST)
(defalias 'gnus-score-get #[513 "\301\206\f \206\f \302 \"A\207" [gnus-score-alist assoc gnus-newsgroup-score-alist] 5 (#$ . 24164)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-score-get speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@539 Enter score file entry.
HEADER is the header being scored.
MATCH is the string we are looking for.
TYPE is the match type: substring, regexp, exact, fuzzy.
SCORE is the score to add.
DATE is the expire date, or nil for no expire, or `now' for immediate expire.
If optional argument `PROMPT' is non-nil, allow user to edit match.
If optional argument `SILENT' is nil, show effect of score entry.
If optional argument `EXTRA' is non-nil, it's a non-standard overview header.
(fn HEADER MATCH TYPE SCORE DATE &optional PROMPT SILENT EXTRA)
(defalias 'gnus-summary-score-entry #[2053 "\304=\203 \305\262\305=\204 \306=\204 \204: \2034 \307\"\2035 \211\310\225\311O\262\2025 \2025 \312\262\202F \313=\203F \314!\262\315!\227\311\316\310G\311$\210\203\222 \317\320\321 \322=\203g \323\202r ;\203q \324\202r \325\310W\203~ \326\202 \327$ \247\203\215 \330\f!\202\217 \"\262\n\331\332 \"8\333=\203\254 ;\203\266 \334\n!\262\n\202\266 \316\310 G\311
$\210\332 \"@\335\230\203\353 \334\n!\211\310W\204\321 \n\336\230\203\325 \337\340!\210\211\262 \341\267\202\347 \342\202\350 \343\202\350 \311\262\n\210\322=\204\327\nU\203\373 \311\262\311\332\206 \206 \344 \"A\266\202\311\2034 \n\205)\n\247\203%\n\202)\345 !
\346\n!\257\202t\n\203V \n\205P\n\247\203L\n\202P\345 !
F\202t\203f \345 !E\202t\203q D\202t C\262\203\277\332\f\"\211\262\203\277\3478\3478=\203\277\3318\247\203\235\3318\247\204\251\3318\204\277\3318\204\277\211AA@\206\262\nA@\206\271\n\\\240\210\202\321\350\203\313B\202\315C\311\304$\210\350\351\352\"\266\204\332 \"A@\310Y\203\376\331\332 \"8\353=\203\376\354 %\210\207\355 \210\207" [message-subject-re-regexp gnus-header-index gnus-score-interactive-default-score gnus-score-alist t r s string-match 0 nil "" f gnus-simplify-subject-fuzzy gnus-score-delta-default set-text-properties read-string format "Match %s on %s, %s: " now "now" "temp" "permanent" "lower" "raise" int-to-string 2 assoc gnus-score-integer string-to-number "date" "0" user-error "Article age must be a positive number" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (after 223 before 227)) < > gnus-newsgroup-score-alist date-to-day symbol-name 3 gnus-score-set touched (t) gnus-score-string gnus-summary-score-effect gnus-summary-rescore] 19 (#$ . 24478)])
#@259 Simulate the effect of a score file entry.
HEADER is the header being scored.
MATCH is the string we are looking for.
TYPE is the score type.
SCORE is the score to add.
EXTRA is the possible non-standard header.
(fn HEADER MATCH TYPE SCORE &optional EXTRA)
(defalias 'gnus-summary-score-effect #[1284 "\212;\203
G\301V\204 \302\303!\210eb\210\304\267\202- \305!\2020 \2020 \306\307!\310Q\2020 \307!m\204b \311\312#\313\211\203Y \314=\203N \305!\230\202R \315\"\203Y \316!\210)\210\317\320!\210\2020 \210)\321\322!\207" [case-fold-search 0 error "No match" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (f 26 r 32 e 36)) gnus-simplify-subject-fuzzy "\\`" regexp-quote "\\'" gnus-summary-header noerr t f string-match gnus-summary-raise-score beginning-of-line 2 gnus-set-mode-line summary] 10 (#$ . 26910) [(byte-code "\301\302\303\304\305\306\"\"\307#\310\311!\312\313!\203 \314\202 \315\316\310\317!!F\207" [gnus-header-index gnus-completing-read "Header" mapcar car seq-filter #[257 "\300\3018!\207" [fboundp 2] 4 "\n\n(fn X)"] t read-string "Match: " y-or-n-p "Use regexp match? " r s string-to-number "Score: "] 7) (gnus-article-mode gnus-summary-mode)]])
#@73 Automatically mark articles with score below SCORE as read.
(fn SCORE)
(defalias 'gnus-score-set-mark-below #[257 "\211\206 \206 \302\262\303\304C\"\210\303\305\306\"\210\211\307 \207" [gnus-summary-default-score gnus-summary-mark-below 0 gnus-score-set mark touched (t) gnus-score-update-lines] 4 (#$ . 28139) [(byte-code "\203\n \301!\206 \302\303\304!!C\207" [current-prefix-arg prefix-numeric-value string-to-number read-string "Mark below: "] 3) (gnus-article-mode gnus-summary-mode)]])
#@41 Update all lines in the summary buffer.
(defalias 'gnus-score-update-lines #[0 "\212eb\210m?\205 \300 \210\301y\210\202 )\207" [gnus-summary-update-line 1] 1 (#$ . 28647)])
#@63 Update all lines in the summary buffer, even the hidden ones.
(defalias 'gnus-score-update-all-lines #[0 "\212eb\210\300m\204 \301 \203 `B\262\302 \210\303y\210\202 \211\205. \211A\262\242b\210\304 \210\202 \262)\207" [nil gnus-summary-show-thread gnus-summary-update-line 1 gnus-summary-hide-thread] 3 (#$ . 28828)])
#@68 Automatically expunge articles with score below SCORE.
(fn SCORE)
(defalias 'gnus-score-set-expunge-below #[257 "\211\206 \206 \301\262\302\303C\"\210\302\304\305\"\207" [gnus-summary-default-score 0 gnus-score-set expunge touched (t)] 4 (#$ . 29161) [(byte-code "\203\n \301!\206 \302\303\304!!C\207" [current-prefix-arg prefix-numeric-value string-to-number read-string "Set expunge below: "] 3) (gnus-article-mode gnus-summary-mode)]])
#@88 Add SCORE to all followups to the article in the current buffer.
(fn &optional SCORE)
(defalias 'gnus-score-followup-article #[256 "\301!\262\211\205 \302\303!\211\262!\205 \211\262\205: \212\214\304 \210\305\306!\211\2057 q\210\307\310\311P\312\313 \314\315&\262*\207" [gnus-summary-buffer gnus-score-delta-default buffer-live-p get-buffer message-narrow-to-headers mail-fetch-field "message-id" gnus-summary-score-entry "references" "[ ]*$" r current-time-string nil t] 10 (#$ . 29615) ["P" (gnus-article-mode gnus-summary-mode)]])
#@100 Add SCORE to all later articles in the thread the current buffer is part of.
(fn &optional SCORE)
(defalias 'gnus-score-followup-thread #[256 "\301!\262\211\205 \302\303!\211\262!\205 \211\262\2055 \212\214eb\210\304\305!\211\2052 q\210\306\307\310\311 %\262*\207" [gnus-summary-buffer gnus-score-delta-default buffer-live-p get-buffer mail-fetch-field "message-id" gnus-summary-score-entry "references" s current-time-string] 8 (#$ . 30171) ["P" (gnus-article-mode gnus-summary-mode)]])
#@42
(fn SYMBOL VALUE &optional ALIST WARN)
(defalias 'gnus-score-set #[1026 "\206\n \206\n \301 \302\"\303\302\206 \206 \301 \"A\266\202\203, \205F \304\305\306\"\207\211\2034 \211\241\207\204< \307\310!\207BAB\241\207" [gnus-score-alist gnus-newsgroup-score-alist assoc read-only gnus-message 4 "Note: read-only score file; entry discarded" error "Empty alist"] 11 (#$ . 30678)])
#@54 Raise the score of the current article by N.
(fn N)
(defalias 'gnus-summary-raise-score #[257 "\303\304`\305\"\211\205\f \306!\266\304`\307\"\206 \310 \236A\206\" \206\" \311\206' \n\\!\207" [gnus-newsgroup-scored gnus-summary-default-score gnus-score-interactive-default-score gnus-summary-set-score get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 0] 5 (#$ . 31082) ["p" (gnus-article-mode gnus-summary-mode)]])
#@52 Set the score of the current article to N.
(fn N)
(defalias 'gnus-summary-set-score #[257 "\212\305 \210\306\307 \206
\310U\203 \311\202$ \206 \310W\203# \n\202$ \312\"\210)\313`\314\"\211\2053 \315!\266\313`\316\"\206> \317 \211\f\236\211\203M \211\241\266\202U B\fB\266\320 )\207" [buffer-read-only gnus-summary-default-score gnus-score-below-mark gnus-score-over-mark gnus-newsgroup-scored gnus-summary-show-thread nil gnus-summary-update-mark 0 32 score get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-update-line] 5 (#$ . 31558) ["p" (gnus-article-mode gnus-summary-mode)]])
#@120 Return the score of the current article.
With prefix ARG, return the total score of the current (sub)thread.
(fn ARG)
(defalias 'gnus-summary-current-score #[257 "\303\304\2030 \305\306\307\310`\311\"\211\205 \312!\266\310`\313\"\206 \314 \"\3158\262\211\316H\262!!\202Q \310`\311\"\211\205; \312!\266\310`\313\"\206F \314 \236A\206Q \n\206Q \317\"\207" [gnus-newsgroup-data gnus-newsgroup-scored gnus-summary-default-score message "%s" gnus-thread-total-score gnus-id-to-thread gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 4 0] 9 (#$ . 32225) ["P" (gnus-article-mode gnus-summary-mode)]])
#@40 Change current score alist.
(fn FILE)
(defalias 'gnus-score-change-score-file #[257 "\300!\210\301\302!\207" [gnus-score-load-file gnus-set-mode-line summary] 3 (#$ . 32907) [(byte-code "\301\302\"C\207" [gnus-kill-files-directory read-file-name "Change to score file: "] 3) (gnus-article-mode gnus-summary-mode)]])
#@42 Edit the current score alist.
(fn FILE)
(defalias 'gnus-score-edit-current-scores #[257 "\204 \305\306!\207\307 \310 !\203 \311 \210\312\313!!\210\314!\315\316!\210\317 \210\320\321\304!\210\322\323\324\325\326!#\207" [gnus-current-score-file gnus-summary-buffer gnus-score-edit-buffer gnus-score-edit-exit-function gnus-prev-winconf error "No current score file" current-window-configuration buffer-live-p gnus-score-save gnus-make-directory file-name-directory find-file-noselect gnus-configure-windows edit-score gnus-score-mode gnus-score-edit-done make-local-variable gnus-message 4 "%s" substitute-command-keys "\\<gnus-score-mode-map>\\[gnus-score-edit-exit] to save edits"] 6 (#$ . 33232) [(list gnus-current-score-file) (gnus-article-mode gnus-summary-mode)]])
#@26 Edit the all.SCORE file.
(defalias 'gnus-score-edit-all-score #[0 "\301\302\303!!\210\304 \210\305\306\307\310\311!\"\207" [gnus-score-edit-exit-function find-file gnus-score-file-name "all" gnus-score-mode gnus-score-edit-done gnus-message 4 substitute-command-keys "\\<gnus-score-mode-map>\\[gnus-score-edit-exit] to save edits"] 4 (#$ . 34017) nil])
#@31 Edit a score file.
(fn FILE)
(defalias 'gnus-score-edit-file #[257 "\304\305!!\210\306!\203 \307 \210\310 \311!\312\313!\210\314 \210\315\316\303!\210\317\320\321\322\323!#\207" [gnus-summary-buffer gnus-score-edit-buffer gnus-score-edit-exit-function gnus-prev-winconf gnus-make-directory file-name-directory buffer-live-p gnus-score-save current-window-configuration find-file-noselect gnus-configure-windows edit-score gnus-score-mode gnus-score-edit-done make-local-variable gnus-message 4 "%s" substitute-command-keys "\\<gnus-score-mode-map>\\[gnus-score-edit-exit] to save edits"] 6 (#$ . 34377) (byte-code "\301\302\"C\207" [gnus-kill-files-directory read-file-name "Edit score file: "] 3)])
#@120 Edit score file at point in Score Trace buffers.
If FORMAT, also format the current score file.
(fn &optional FORMAT)
(defalias 'gnus-score-edit-file-at-point #[256 "\212\300 \210\301p!)\212\302\210\303\304\305 \306#\205\" \307\304\310 \306#\205\" `\310 {)\211\2034 \311\312\"\2044 \211\313\230\2039 \314\315\316\"\207\317!\210\203D \320 \210:\205z @9\203W \321\322@\"\202\\ \323\324\325#\262eb\210\311\326\"\203l \327\202m \330\307\302\306#\210\211\327\224\\b\262\207" [beginning-of-line read nil re-search-backward " -> +" point-at-bol t re-search-forward point-at-eol string-match "\\<\\(non-file rule\\|A file\\)\\>" "" gnus-error 3 "Can't find a score file in current line." gnus-score-edit-file gnus-score-pretty-print format "(%S)" mapconcat #[257 "\300\301\302\"!\207" [regexp-quote format "%S"] 5 "\n\n(fn OBJ)"] "[ \n
]*" "(.*)" 0 -1] 8 (#$ . 35093)])
#@13
(fn FILE)
(defalias 'gnus-score-load-file #[257 "\306\307\310\311\306!!P\306!\"\203 \206 \306\"!\312 \"\n\235\313\211\203- A\262\202X \313\314!\262\315\236\204A \315\313DB\262\203R \316\236\204R \316\317DB\262B B\211\313\203\204 @@;\203s @@@\227\240\210\317\262\202} @@:\203} \317\262A\262\202Z \211\203\214 C\262\266\320\312\206\234 \206\234 \321 \"A\266\202@\322\312\206\257 \206\257 \321 \"A\266\202@\323\312\206\302 \206\302 \321 \"A\266\202@\324\312\206\325 \206\325 \321 \"A\266\202\325\312\206\347 \206\347 \321 \"A\266\202\326\312\206\372 \206\372 \321 \"A\266\202@\327\312\206 \206\321 \"A\266\202\330\312\206! \206!\321 \"A\266\202@\331 \312\2065 \2065\321 \"A\266\202@\332\n\312\206I \206I\321 \"A\266\202\333 \312\206\\ \206\\\321 \"A\266\202@\334\f\312\206p \206p\321 \"A\266\202@\f;\203\202\307\f\"\202\203\f\203\257\204\222\335!\203\257\203\236\304
\"\203\257\336\315\337#\210\336\333\340\313!C#\210\203\322\204\322\341\342\343\344\203\314B\202\316
\"#\262\211\203\340\204\340\334\317\"\210\341\345\343\346\347\" \"\"
\244\203 r*q\210\203 @:\203@@9\203\350@@!\210@@@A@L\210A\262\202\370)\203)+\351\267\202>\317,-\202L\313\211,\202L:\203J\317,\202L-.\206T// \206b \206b00\n\206p \206p11\206x22\266\f3\211\207" [gnus-kill-files-directory gnus-score-cache gnus-internal-global-score-files gnus-score-alist gnus-decay-scores gnus-scores-exclude-files expand-file-name string-match "^" regexp-quote assoc nil gnus-score-load-score-alist touched read-only t mark gnus-newsgroup-score-alist expunge mark-and-expunge files exclude-files orphan adapt thread-mark-and-expunge adapt-file local decay eval file-exists-p gnus-score-set (t) time-to-days apply append mapcar gnus-score-load-file nconc make-closure #[257 "\302\303\300!\"\302 \"D\207" [V0 gnus-kill-files-directory expand-file-name file-name-directory] 5 "\n\n(fn SFILE)"] make-local-variable #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((t) 559 (ignore) 567)) gnus-summary-buffer gnus-orphan-score gnus-newsgroup-adaptive gnus-default-adaptive-score-alist gnus-adaptive-score-alist gnus-thread-expunge-below gnus-summary-mark-below gnus-summary-expunge-below gnus-newsgroup-adaptive-score-file gnus-current-score-file] 25 (#$ . 35976)])
#@13
(fn FILE)
(defalias 'gnus-score-load #[257 "\302\"\211\203
\211A\211\207\303\304!\210 \204 \305\306! BB\211\207" [gnus-score-cache gnus-score-alist assoc nil gnus-score-load-score-alist copy-alist ((touched nil))] 4 (#$ . 38438)])
#@13
(fn FILE)
(defalias 'gnus-score-remove-from-cache #[257 "\301\302\"\"\211\207" [gnus-score-cache delq assoc] 5 (#$ . 38688)])
#@29 Read score FILE.
(fn FILE)
(defalias 'gnus-score-load-score-alist #[257 "\303\304!\204 \303\211\207\305\306\307\"r\211q\210\310\311\"\216 \312!\210)eb\210\212\313\314\303\307#)\203? \31517 \316p!0\202= \210\317\320\321#\262*\210\211\203R \211:\204R \322\323\"\210\202b \211@\324=\203` \325!\202b \211\326\"\211\207" [gnus-score-alist score-mode-coding-system coding-system-for-read nil file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward "[()0-9a-zA-Z]" (error) read gnus-error 3.2 "Problem with score file %s" error "Invalid syntax with score file %s" setq gnus-score-transform-old-to-new gnus-score-check-syntax] 7 (#$ . 38826)])
#@55 Check the syntax of the score ALIST.
(fn ALIST FILE)
(defalias 'gnus-score-check-syntax #[514 "\204 \300\207:\204 \301\302\303#\210\304 \210\300\207\300\211\211\211\203\370 \204\370 @<\2044 \305\306@#\202\357 @@;\205\357 @A\211\262<\204R \305\307@A@#\202\357 @@\262\203\356 \204\356 \211A\262\242\262\211\227\310\235\203u @\247?\202\215 \211\227\311\230\203\211 @\247\206\205 @;?\202\215 @;?\203\232 \305\312@#\202\351 A@\203\262 A@\250\204\262 \305\313A@#\202\351 AA@\203\315 AA@\250\204\315 \305\314AA@#\202\351 AAA@\205\351 AAA@9?\205\351 \305\315AAA@#\262\202W \262A\262\202 \203\f\304 \210\301\316\317#\210\320\321!\266\300\207\207" [nil gnus-message 1 "Score file is not a list: %s" ding format "Invalid score element %s in %s" "Invalid header match %s in %s" ("lines" "chars") "date" "Invalid match %s in %s" "Non-integer score %s in %s" "Non-integer date %s in %s" "Non-symbol match type %s in %s" 3 "%s" sit-for 2] 11 (#$ . 39595)])
#@14
(fn ALIST)
(defalias 'gnus-score-transform-old-to-new #[257 "\3008\301\211@\302=\203 A@\262\203s @\262\211@;\203Y \211AB\262\211\203U \211@@\300@8\303@8\205? \304\303@8!@A@\203J \305\202K \306F\240\210\211A\262\202& \210\202l \211A<\204g \211@AD\202h \211B\262A\262\202 \307\310D\237B\207" [2 nil quote 3 date-to-day r s touched t] 11 (#$ . 40605)])
(defalias 'gnus-score-save #[0 "\306\211\211\212\306\307\310!\210\203\307 \211A\262\242\262\311@\312\"\262A\262\313\314\2060 \2060 \315 \"A\266\202\316\232\203\263 \317\314\206G \206G \315 \"A\266\202\204\263 \320!\203Z \321!\203\263 \322\313\"\241\262\323 \210\306 \204} \324\325\f!\326P\"\203} \327!\210\202\205
!\330!\210))\331\332!!\210\333 \334U\203\232 \335!\210\202\263 \321!\203\263 \" #\336!\210)$\203\263 $!\210%\203 \324%\"\203 \337!\210\202 \340p!)\207" [gnus-score-cache gnus-score-alist emacs-lisp-mode-hook gnus-adaptive-pretty-print gnus-adaptive-file-suffix score-mode-syntax-table nil nnheader-set-temp-buffer " *Gnus Scores*" nnheader-translate-file-chars t touched assoc gnus-newsgroup-score-alist (t) read-only file-exists-p file-writable-p assq-delete-all erase-buffer string-match regexp-quote "$" gnus-prin1 gnus-pp gnus-make-directory file-name-directory buffer-size 0 delete-file gnus-write-buffer gnus-score-remove-from-cache kill-buffer lisp-mode-syntax-table score-mode-coding-system coding-system-for-write gnus-score-after-write-file-function gnus-score-uncacheable-files] 9])
#@56 Load all score files in SCORE-FILES.
(fn SCORE-FILES)
(defalias 'gnus-score-load-files #[257 "\302\203# @;\203 \303@!\244\262\202 @\244\262A\262\202 \203O \211\302\203M \304@ \"\211\262\203F \211@\235\203F \305@\"\262A\262\202) \266\207" [gnus-scores-exclude-files gnus-score-cache nil gnus-score-load-file rassq delq] 7 (#$ . 42139)])
#@36
(fn SCORE-FILES &optional TRACE)
(defalias 'gnus-score-headers #[513 "\306\211\211\306\211\307!\262\262\211\205\276\211\262\306\262 \203 \203 \f\310\306!
\205- \211
Z%&\306\211C\306\311\312\313\"\210\211A\262\242\240\203] \242\314H'\236\204: \242 \206V \314B B\202: r\315\316!q\210\317 \210(\211\205x \320\321!\211\262!\205x \211\262\203\202 \322(!\210&\203\225 \323\324\f\"A@)\325!\210\203!\211A\262 \242\262@\240\210\323\242\f\"A@)\314\326\327\330\331\332\"\"\"W\203\225 *\203\361 *\333=\204\335 *;\203\361 \334*+\"\203\361 \314\323\242\f\"A@V\203\361 \311\312\335\"\210\202\225 \242\336=\203\337\n\f\"\211\262\202\3408\n\242 %\211\262\203\225 \211 B\262 \202\225 (\211\2053\320\321!\211\262!\2053\211\262\203D'r(q\210\211')\210p\211\211\205V\320\321!\211\262!\205V\211\262\203b\341!\210\342 \210\210) \203\215 @AU\203u,\203\206 @@\211\314H\262 @AB'B' A\211\204h\306\n\211A\262\f\242\211\262\203\264\211\203\216\211@@:\203\255\343@
\"\210\211A\262\202\233\210\311\312\344\"\266 \202 \207" [gnus-orphan-score gnus-scores-articles gnus-scores-exclude-files gnus-summary-default-score gnus-header-index gnus-score-expiry-days nil gnus-score-load-files time-to-days gnus-message 7 "Scoring..." 0 gnus-get-buffer-create "*Headers*" buffer-disable-undo buffer-live-p get-buffer message-clone-locals assoc "references" gnus-score-orphans apply max mapcar make-closure #[257 "\300\242\302\206 \206 \303 \"A\266\202G\207" [V0 gnus-score-alist assoc gnus-newsgroup-score-alist] 6 "\n\n(fn SCORE)"] t string-match "Scoring on headers or body skipped." score-fn gnus-score-func 2 kill-buffer gnus-prune-buffers gnus-score-advanced "Scoring...done" gnus-newsgroup-headers gnus-current-score-file gnus-newsgroup-scored gnus-summary-buffer gnus-score-index gnus-inhibit-slow-scoring gnus-newsgroup-name gnus-save-score] 20 (#$ . 42506)])
#@390 Lower the score on THREAD with SCORE-ADJUST.
THREAD is expected to contain a list of the form `(PARENT [CHILD1
CHILD2 ...])' where PARENT is a header array and each CHILD is a list
of the same form as THREAD. The empty list nil is valid. For each
article in the tree, the score of the corresponding entry in
`gnus-newsgroup-scored' is adjusted by SCORE-ADJUST.
(fn THREAD SCORE-ADJUST)
(defalias 'gnus-score-lower-thread #[514 "\2058 @\211<\203 \301\"\266\2021 \211\302H\211\236\211\203) \211A\\\241\266\2021 BB\266A\262\202 \207" [gnus-newsgroup-scored gnus-score-lower-thread 0] 8 (#$ . 44453)])
#@274 Score orphans.
A root is an article with no references. An orphan is an article
which has references, but is not connected via its references to a
root article. This function finds all the orphans, and adjusts their
score in `gnus-newsgroup-scored' by SCORE.
(fn SCORE)
(defalias 'gnus-score-orphans #[257 "\301 \211\205# \211@\211@H\211\203 \211\302\230\204 \303\"\210\210A\266\202\202 \207" [gnus-score-index gnus-make-threads "" gnus-score-lower-thread] 7 (#$ . 45079)])
#@31
(fn SCORES &optional TRACE)
(defalias 'gnus-score-func #[513 "\211\205q \211@\303\236\211A\211\203h \211@\211@\304\211\211\211\203_ \211@\305\306@\"\262\211A\262\"\211\262\250\203< \211\\\241\210\211A\262\f\203X \250\203X \307 \"\242DB\nBA\266\202\202 \266A\266\202\202
\266A\266\202\202 \207" [gnus-scores-articles gnus-score-cache gnus-score-trace score-fn nil cl-pairlis (number subject from date id refs chars lines xref extra) rassq] 17 (#$ . 45569)])
#@49
(fn SCORES HEADER NOW EXPIRE &optional TRACE)
(defalias 'gnus-score-integer #[1284 "\306\"A@\307\211\203\342 @\262A\262\306\"\262A\203\n A\211@\211@\3108\2062 \311A@\2069 \n\3128\307\311=\204[ \313=\204[ \314=\204[ \315=\204[ \316=\203_ \202c \317\320\" \211\203\234 @@ H\206r \321\"\203\225 \f\203\211 \322\n\f\"\242B
B\323\262\211@@A\\\241\210\211A\262\202d \203\331 \203\273 \203\273 \324\325\326\f#\210AA\240\210\202\331
\203\331 W\203\331 \324\325\327\f#\210\n A\241\210\n\262 \262 \266 \202 )\266\307\207" [gnus-header-index gnus-score-index gnus-score-interactive-default-score gnus-scores-articles gnus-score-cache gnus-score-trace assoc nil 3 > 2 < <= >= = error "Invalid match type: %s" 0 rassq t gnus-score-set touched (t) (t) gnus-update-score-entry-dates] 21 (#$ . 46065)])
#@49
(fn SCORES HEADER NOW EXPIRE &optional TRACE)
(defalias 'gnus-score-date #[1284 "\306\"A@\307\211\211\211\211\n\203=\n@\262\nA\262 \306\n\"\262A\203
A\211@\3108\2063 \311A@\206: \n\3128\307 \307\313\267\202\254 \314\262\n\315@!\262 \202\262 \316\262\314\262\n\317\320 \321 @_\"\322\323\"\262\262 \202\262 \324\262\n\315@!\262 \202\262 \311\262\324\262\n\317\320 \321 @_\"\322\323\"\262\262 \202\262 \325\262\n\315@!\262 \202\262 \326\262\n@\262 \202\262 \327\330\"\210\211A\262\242\211\262\n\203\364 @ H\211\262\203\262 \315!\"\203\262 \203\345 \331\f\f\"\242B
B\332\262\nA\\\241\210\202\262 \2031\203 \203\333\334\335#\210AA\240\210\2021\2031W\2031\333\334\336#\210\fA\241\210\f\262\262
\266\202# \202
)\266\307\207" [gnus-header-index gnus-score-index gnus-score-interactive-default-score gnus-scores-articles gnus-score-cache gnus-score-trace assoc nil 3 before 2 #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (after 70 < 83 before 109 > 122 at 148 regexp 161)) string< gnus-date-iso8601 after time-subtract current-time 86400 format-time-string "%Y%m%dT%H%M%S" gnus-string> string= string-match error "Invalid match type: %s" rassq t gnus-score-set touched (t) (t) gnus-update-score-entry-dates] 23 (#$ . 46923)])
(defalias 'gnus-score-decode-text-parts #[0 "\300C\300\301\302\"\240\210\303\262\304\305!\212\306 \210`d|\210\307\242!\"\210)\207" [nil make-closure #[257 "\211@;\203 \301\302\303\300\242A\"\"@\304\232\203 \211@C\207\207\305@!\203? \306\307\211@;\2032 \211@\262\2028 \211A@@\262\"\205G \211C\207\301\302\303\300\242\"\"\207" [V0 apply append mapcar "multipart/alternative" bufferp string-match "^text/"] 6 "\n\n(fn HANDLE)"] #[257 "\211\205 \214``}\210\300!\210db)\207" [mm-display-inline] 3 "\n\n(fn HANDLE)"] mm-dissect-buffer t article-goto-body mapc] 7])
#@49
(fn SCORES HEADER NOW EXPIRE &optional TRACE)
(defalias 'gnus-score-body #[1284 "?\205\306 \307\"r\nq\210\214\310 \311\230\203 \312\202( \313\230\203' \314\202( \315\310\211\211\211\211\203\377\316!@@\211\317H\262\262\320\321\322!\"\205S \323\322!\317\225\310O!\f\3241\201 \211;\203d \325!@\202e \211\326!\204o \327!\210\330\323\331\332#!!\2620\266\202\202\204 \266\310\204\224 \313\230\204\224 \262\315\262\203\377@@\211\317H\262\262\333\334\335$\210~\210\310\f\"\203\366\f\313\230\203\301 \336 \262eb\210\203\351 \312=\203\335 `\337\340\310\341#\206\330 d}\210\202\351 \337\340\310\341#\206\346 `d}\210\262
\203\356
\211A\262\242\262\342
\"\262A\203\355 A\211@\211@\3438\206\344A@\206
\3458\310\346=\2065\347=\2065\350=\2065\351=? 6\352=\204P\346=\204P\353=\204P\350=\203T\354\202t\344=\204l\347=\204l\355=\204l\351=\203p\337\202t\356\357\"eb\210\211\310\341#\203\242@@A\\\241\210\341\262\203\242\360
7\"\242B8B8\204\344\203\344\203\3069\203\306\361\362\363#\210AA\240\210\202\344\203\344W\203\344\361\362\364#\210
A\241\210
\262\262)\266\202\211\203\366\365!\210\210A\262\202\224 )\266*\310\207" [gnus-agent-fetching gnus-scores-articles nntp-server-buffer buffer-read-only gnus-newsgroup-name gnus-score-interactive-default-score sort #[514 "@\300H@\300HW\207" [0] 5 "\n\n(fn A1 A2)"] nil "head" gnus-request-head "body" gnus-request-body gnus-request-article last 0 string-match "^gnus-" symbol-name intern (error) gnus-find-method-for-group featurep require fboundp format "%s-%s" gnus-message 7 "Scoring article %s of %s..." gnus-score-decode-text-parts search-forward "\n\n" t assoc 3 s 2 R S Regexp String r regexp re-search-forward string error "Invalid match type: %s" rassq gnus-score-set touched (t) (t) mm-destroy-parts case-fold-search gnus-score-cache gnus-score-trace gnus-update-score-entry-dates] 26 (#$ . 48856)])
#@49
(fn SCORES HEADER NOW EXPIRE &optional TRACE)
(defalias 'gnus-score-thread #[1284 "\300\301&\207" [gnus-score-followup t] 12 (#$ . 50857)])
#@56
(fn SCORES HEADER NOW EXPIRE &optional TRACE THREAD)
(defalias 'gnus-score-followup #[1540 "?\205\306 \"A@\n\307\211\211\211\211\211\211\211\211 r\fq\210\310
\206) \311+,\"!\210)\312-\313\"\211-\262\314 \210\203{ @\262@ H\262A\262\232\203\\ B\262 \2029 \203p \315\261\210\316`S`\317\f$\210C\262 \262\2029 \203\217 \315\261\210\316`S`\317\f$\210\203\366@\262A\262\306\"\262A\203\217 A\211@\211@\3208\206\267 \321A@\206\277 .\3228\307\323!\324H\211\325U\206\335 \211\326U\206\335 \211\327U\206\335 \211\330U? /\211\227\211\331U\203\354 \332\202\211\333U\204\376 \211\334U\204\376 \211\335U\203\336\202\337\340\"\307\211eb\210\333U\203V\n\307\341#\203\255\342 \324\224U\203P\307\210`\324\225U\203P\343`\317\"\211\262\262\203P@\262A\262\344@ $\210\2026\307\210\202\n\307\341#\203\255\307\210\343`\317\"\211\262\262\211A\262\242\211\262\203V\211A\\\241\210\203\223\3450\"\242 B1B1\344@ $\211\262\203k
B\262
\202k\203\354\203\3152\203\315\346\347\350#\210\nAA \240\210\202\354\203\354W\203\354\346\347\351#\210\fA\241\210\262\f \262)\266\f\202\245 r\fq\210\310 !\210)\352)BC\266\214\207" [gnus-agent-fetching gnus-header-index gnus-current-score-file gnus-score-index gnus-summary-buffer gnus-newsgroup-adaptive-score-file assoc nil gnus-score-load-file gnus-score-file-name sort gnus-score-string< erase-buffer 10 put-text-property articles 3 s 2 symbol-name 0 82 83 69 70 114 re-search-forward 101 115 102 search-forward error "Invalid match type: %s" t point-at-bol get-text-property gnus-score-add-followups rassq gnus-score-set touched (t) (t) "references" gnus-newsgroup-name gnus-adaptive-file-suffix gnus-scores-articles gnus-score-interactive-default-score case-fold-search gnus-score-cache gnus-score-trace gnus-update-score-entry-dates] 36 (#$ . 51011)])
#@81 Add a score entry to the adapt file.
(fn HEADER SCORE SCORES &optional THREAD)
(defalias 'gnus-score-add-followups #[1027 "rq\210\301H@\302\211\211A\262\242\211\262\203= @\303\232\203 \304A@8\2030 \304A@8\305=\203 \306\"\203 \307\262\202 \211?\205V \310\203K \311\202L \303\305\n\312 \302\307&\266\204)\207" [gnus-summary-buffer 4 nil "references" 3 s assoc t gnus-summary-score-entry "thread" current-time-string] 16 (#$ . 52941)])
#@53
(fn SCORE-LIST HEADER NOW EXPIRE &optional TRACE)
(defalias 'gnus-score-string #[1284 "\306\"A@ \205
\307\230\310\211\211\211\211\211\211\211\211\211\211\f\211\311U\203% \202) \312 \313\"\211\262\314 \210\211A\262\242\211\262 \203\215 @\nH\262 \n\311U\203O \315 !\262 \203[ \316\f\n\"\262 \232\203m B\262 \2020 \203\201 \317\261\210\320`S`\321$\210C\262 \262\n\2020 \203\241 \317\261\210\320`S`\321$\210\203'\211A\262\242\262\306\"\262A\203\241 A@\3228\206\310 \323A@\206\317
\3248\3258\310\326!\327H\211\330>? @\211\227\203\367 \211\331>\204\367 \316\f @\"\202\372 @\332U\203\333\202)\334U\204\335U\204\336U\203\337\202)\340U\203$\310\202)\341\342 \"\203F\343\344\333=\203;\202>\345!\346\260\262\333\262\336U\203^BB\262A\262\202!\340U\203vB\fB\262\fA\262\202!\334U\203Neb\210m\204\356\211\310\347#\203\356l\203\350\350 \327\224U\203\350\351`\321\"\211\262\262\203\316\f\211A\262\242\211\262\203\350A\\\241\210\352A\"\242\nBBBB\202\245\f\211A\262\242\211\262\203\350A\\\241\210\202\316\353y\210\202\203\373A\262\202!\204A\262\202!\203(C\203(\354\355\356#\210 AA\240\210A\262\202!\203FW\203F\354\355\357#\210\211AA\241\210\202!A\262\202!eb\210\360\230\203Z\361\262m\204\304\211\310\347#\203\304\327\224b\210\310\210\351`\321\"\211\262\262\203\244\f\211A\262\242\211\262\203\276A\\\241\210\352A\"\242\nBBBB\202{\f\211A\262\242\211\262\203\276A\\\241\210\202\244\353y\210\202Z\203\321A\262\202!\204\336A\262\202!\203\376C\203\376\354\355\362#\210 AA\240\210A\262\202!\203 W\203 \354\355\363#\210\211AA\241\210\202!A\262)\266\n\202\267 \203\364D!\210@@A@\211\262\203\211@\3228A@\206G
\3248\326!\327H\211\365U? @\310eb\210m\204\311\337\310\347#\203\311\350 \327\224U\203\303l\203\303\351`\321\"\211\262\n\262\203\252\211A\262\n\242\211\262\203\303
A\\\241\210\352\n@AA\"\242BBBB\202\200\211A\262\n\242\211\262\203\303
A\\\241\210\202\252\353y\210\202Y\204\203\211\203\357C\203\357\354\355\366\f@A#\210AA\240\210\202\203W\203\354\355\367\f@A#\210 @@\n@@AA\241\210 A\262\n)\266\2020\203\363\317\370ed\"_\371\372\206,\373\374\375$\262\376!\210@@A@\211\262\203\362A@\206G
\3248\310\377@\"\211\262\203\240\347\262\203\207\211A\262\242\211\262
\203\240
A\\\241\210\352@AA\"\242BBBB\202^\211A\262\242\211\262
\203\240
A\\\241\210\202\207\204\351\203\351\211\203\307C\203\307\354\355\201E @A#\210AA\240\210\202\351\203\351W\203\351\354\355\201F @A#\210@@@@AA\241\210A\262\266\2025\210)\310\207" [gnus-header-index gnus-score-thread-simplify gnus-score-index gnus-scores-articles gnus-simplify-subject-functions gnus-score-interactive-default-score assoc "subject" nil 9 sort gnus-score-string< erase-buffer gnus-prin1-to-string gnus-map-function 10 put-text-property articles 3 s 2 4 symbol-name 0 (82 83 69 70) (102 114) 114 re-search-forward 101 115 102 search-forward 119 error "Invalid match type: %s" "[ (](" " \\. \"\\([^\"]*\\\\\"\\)*[^\"]*" regexp-quote "\\([^\"]*\\\\\"\\)*[^\"]*\")[ )]" t point-at-bol get-text-property rassq 1 gnus-score-set touched (t) (t) "" "\n" (t) (t) gnus-simplify-buffer-fuzzy 70 (t) (t) count-lines make-hash-table :size 300 :test equal gnus-enter-score-words-into-hashtb gethash case-fold-search gnus-score-cache gnus-score-trace gnus-update-score-entry-dates gnus-simplify-subject-fuzzy-regexp (t) (t)] 34 (#$ . 53401)])
#@15
(fn HASHTB)
(defalias 'gnus-enter-score-words-into-hashtb #[257 "\305\211eb\210\306 p\307\310#\216\311!\210\312\313\305\314#\203; \315\316\224\316\225{\227\211\262\"\262\317\320\321\322 \323\"\"#\210\202 )\266\320 \n\205Z \324 \325\326\"\203U \211\316\225\305O\202V \211\262\327\"\f#\211\205m \330\211A\262\242\"\210\202\\ \207" [gnus-adaptive-word-syntax-table gnus-ignored-adaptive-words gnus-adaptive-word-no-group-words gnus-newsgroup-name gnus-default-ignored-adaptive-words nil syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table re-search-forward "\\b\\w+\\b" t gethash 0 puthash append get-text-property point-at-eol articles message-tokenize-header string-match "^[^:]+:" "." remhash] 11 (#$ . 57104)])
#@14
(fn A1 A2)
(defalias 'gnus-score-string< #[514 "@H@H\231\207" [gnus-score-index] 5 (#$ . 57893)])
#@29
(fn &optional SCORE-FILE)
(defalias 'gnus-current-score-file-nondirectory #[256 "\211\206 \211\203 \301\302!!\207\303\207" [gnus-current-score-file gnus-short-group-name file-name-nondirectory "none"] 5 (#$ . 58003)])
#@49 Create adaptive score rules for this newsgroup.
(defalias 'gnus-score-adaptive #[0 "\205&r q\210\306\n\206 \307 \310\"\206 \311 \f\"!\210)<\203& \312>\203'\212\313
!\211\314 ?\315\211\211\211\203\236 @\262@9\203I \211@J\240\210A\262\203\226 \316\317\320@@\321=\203a \322\202h \323@@!\227P!\211\262!\203\217 @@@\321=\203 \324\202\204 \323@@!@AB\241\210@\240\210A\262\202M A\262\2023 \203$@A@\236A\262\203 \325@8:\204 \325@8\211\262\203 \203 @@!\262\326@A@\211\247\203\334 \327\202\n@A@\330\232\203\352 \331\202\n@\203\367 G@W\203\373 \332\202\n@A@\333\232\203 \334\202\n\335\336@8\n\315\310&\210A\262\202\302 A\262\202\236 \266)<\205&\337>\205&\340\341\310\"r\211q\210\342\343\"\216\344\345\346\206G\347\350\351$\262\352\315!?\315\211\211\211\353 p\342\354#\216\355A!\210\211A\262\242\211\262\203\336\3258:\204cA@B\236A\211\262\203c\3258\356Hc\210\357ed\"\210eb\210\360\361\315\310#\203\330\362\363\364!\211\262\n\"\262C\203\264GCV\203\223\206\272\364\\\262D\203\315DW\203\315D\262\365 #\210\202\223\366 \210\202c)\266\367EF\205\377\370 \371\372\"\203\372\211\364\225\315O\202\373\211\262\373\"G#\211\203\374\211A\262\242 \"\210\202\210 q\210\375\342\376\"\"\266\207*\262\207" [gnus-newsgroup-adaptive gnus-summary-buffer gnus-newsgroup-adaptive-score-file gnus-newsgroup-name gnus-adaptive-file-suffix gnus-adaptive-score-alist gnus-score-load-file gnus-home-score-file t gnus-score-file-name line copy-tree current-time-string nil fboundp intern "mail-header-" followup "message-id" symbol-name "references" 3 gnus-summary-score-entry = "date" a e "subject" f s 2 word generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] 1000 make-hash-table :size 300 :test equal time-to-days syntax-table #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table 1 downcase-region re-search-forward "\\b\\w+\\b" gethash match-string 0 puthash erase-buffer append message-tokenize-header string-match "^[^:]+:" "." remhash maphash #[514 "\301\302\303\300\304\305&\207" [V0 gnus-summary-score-entry "subject" w nil t] 10 "\n\n(fn WORD VAL)"] gnus-newsgroup-data gnus-score-exact-adapt-limit gnus-adaptive-word-syntax-table gnus-adaptive-word-score-alist gnus-adaptive-word-length-limit gnus-adaptive-word-minimum gnus-ignored-adaptive-words gnus-adaptive-word-no-group-words gnus-default-ignored-adaptive-words] 16 (#$ . 58233)])
(defalias 'gnus-score-edit-done #[0 "\301p!\211\203\f \302!\210\303!\210\304!\210\305\306!\207" [gnus-prev-winconf buffer-file-name set-window-configuration gnus-score-remove-from-cache gnus-score-load-file run-hooks gnus-score-edit-done-hook] 4])
#@59 Find all score rules that applies to the current article.
(defalias 'gnus-score-find-trace #[0 "\306\307`\310\"\211\205
\311!\266\307`\312\"\206 \313 \"\3148\262C\315\211\211\212\316\317!\210)\315\320\321!\210 \211\262\204C \322\323\324\f#\210\202\236 \317q\210\325\326\327\"\210\325\330\331\"\210\325\332\333\"\210\325\334\335\"\210\325\336\337\"\210\340\211\203\206 \211@\211@\206n \341\262\342\343A\344!\345!$c\210A\266\202\202b \210\342\346\347\350\351\352\"\"\"c\210\353c\210eb\210\354\355!\210*\266.q\210\211\211\207" [gnus-newsgroup-scored gnus-newsgroup-data gnus-newsgroup-headers gnus-score-trace gnus-summary-default-score truncate-lines gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 nil nnheader-set-temp-buffer "*Score Trace*" gnus-possibly-score-headers trace gnus-error 1 "No score rules apply to the current article (default score %d)." local-set-key "q" #[0 "\300\301!\210\302 \207" [bury-buffer nil gnus-summary-expand-window] 2 nil nil] "k" #[0 "\300p!\210\301 \207" [kill-buffer gnus-summary-expand-window] 2 nil nil] "e" #[0 "\300 \207" [gnus-score-edit-file-at-point] 1 "Run `gnus-score-edit-file-at-point'." nil] "f" #[0 "\300\301!\207" [gnus-score-edit-file-at-point format] 2 "Run `gnus-score-edit-file-at-point'." nil] "t" toggle-truncate-lines t "(non-file rule)" format "%S [%s] -> %s\n" file-name-nondirectory abbreviate-file-name "\nTotal score: %d" apply + mapcar #[257 "\211AA@\206 \207" [gnus-score-interactive-default-score] 2 "\n\n(fn S)"] "\n\nQuick help:\n\nType `e' to edit score file corresponding to the score rule on current line,\n`f' to format (pretty print) the score file and edit it,\n`t' toggle to truncate long lines in this buffer,\n`q' to quit, `k' to kill score trace buffer.\n\nThe first sexp on each line is the score rule, followed by the file name of\nthe score file and its full name, including the directory." gnus-configure-windows score-trace gnus-summary-buffer] 13 (#$ . 61031) [nil (gnus-article-mode gnus-summary-mode)]])
#@29 List words used in scoring.
(defalias 'gnus-score-find-favorite-words #[0 "\301\302 !\303\211\211\211\211A\262\242\211\262\203W \211A\262\242\211\262\203 @;\203 \211A\262\242\227\304\232\203 \211A\262\242\211\262\203 \3058\306>\2032 \211A@\206M @BB\262\2022 \307\310\"\262\211A\203\212 \211@AA@A\232\203\203 \211@@@A@@\\\240\210\211AA\241\210\202^ \211A\262\202^ \210\311\312!\210\307\313\"\211\262\204\236 \314\305\315\"\207\203\264 \316\317@@@A#c\210A\262\202\236 eb\210\320\321!\207" [gnus-score-interactive-default-score gnus-score-load-files gnus-all-score-files nil "subject" 3 (w W word Word) sort #[514 "AA\231\207" #1=[] 4 "\n\n(fn R1 R2)"] nnheader-set-temp-buffer "*Score Words*" #[514 "@@V\207" #1# 4 "\n\n(fn R1 R2)"] gnus-error "No word score rules" format "%-5d: %s\n" gnus-configure-windows score-words] 9 (#$ . 63124) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias gnus-score-find-favourite-words gnus-score-find-favorite-words nil make-obsolete "27.1"] 4)
#@57 Redo the entire scoring process in the current summary.
(defalias 'gnus-summary-rescore #[0 "\302 \210\303\211\304 \210\305 \207" [gnus-score-cache gnus-newsgroup-scored gnus-score-save nil gnus-possibly-score-headers gnus-score-update-all-lines] 2 (#$ . 64169) [nil (gnus-article-mode gnus-summary-mode)]])
#@33 Flush the cache of score files.
(defalias 'gnus-score-flush-cache #[0 "\303 \210\304\211\304\305\306\307\"\207" [gnus-score-cache gnus-score-alist gnus-short-name-score-file-cache gnus-score-save nil gnus-message 6 "The score cache is now flushed"] 4 (#$ . 64485) nil])
(gnus-add-shutdown 'gnus-score-close 'gnus)
(defvar gnus-score-file-alist-cache nil)
#@37 Clear all internal score variables.
(defalias 'gnus-score-close #[0 "\304\211\304\211\211\207" [gnus-score-cache gnus-internal-global-score-files gnus-score-file-list gnus-score-file-alist-cache nil] 3 (#$ . 64849)])
#@87 Raise articles which has the same subject with SCORE and select the next.
(fn SCORE)
(defalias 'gnus-summary-raise-same-subject-and-select #[257 "\301\302\206 \303`\304\"\211\205 \305!\266\303`\306\"\206 \307 \"\3108\262\211\2050 \311!\2050 \211\312H\266\202\313!\210\314!\203C \313!\210\2026 \315\316!\207" [gnus-newsgroup-data nil gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-p 1 gnus-summary-raise-score gnus-summary-find-subject gnus-summary-next-article t] 6 (#$ . 65076) ["p" (gnus-article-mode gnus-summary-mode)]])
#@67 Raise articles which has the same subject with SCORE.
(fn SCORE)
(defalias 'gnus-summary-raise-same-subject #[257 "\301\302\206 \303`\304\"\211\205 \305!\266\303`\306\"\206 \307 \"\3108\262\211\2050 \311!\2050 \211\312H\266\202\313!\210\314!\203C \313!\210\2026 \315\312\316\"\207" [gnus-newsgroup-data nil gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-p 1 gnus-summary-raise-score gnus-summary-find-subject gnus-summary-next-subject t] 6 (#$ . 65704) ["p" (gnus-article-mode gnus-summary-mode)]])
#@14
(fn LEVEL)
(defalias 'gnus-score-delta-default #[257 "\211\203 \301!\207\207" [gnus-score-interactive-default-score prefix-numeric-value] 3 (#$ . 66306)])
#@89 Raise the score of the articles in the current thread with SCORE.
(fn &optional SCORE)
(defalias 'gnus-summary-raise-thread #[256 "\301!\262\302\212\303 \211\203 \304@!\210\305!\210\211A\262\202 \210`\262)\306\307\310\306\"\311U\2040 \211b\210)\210\312 \210\313 \210\314\315!\207" [gnus-summary-check-current gnus-score-delta-default nil gnus-summary-articles-in-thread gnus-summary-goto-subject gnus-summary-raise-score t gnus-summary-next-subject 1 0 gnus-summary-recenter gnus-summary-position-point gnus-set-mode-line summary] 5 (#$ . 66472) ["P" (gnus-article-mode gnus-summary-mode)]])
#@87 Raise articles which has the same subject with SCORE and select the next.
(fn SCORE)
(defalias 'gnus-summary-lower-same-subject-and-select #[257 "\300[!\207" [gnus-summary-raise-same-subject-and-select] 3 (#$ . 67080) ["p" (gnus-article-mode gnus-summary-mode)]])
#@67 Raise articles which has the same subject with SCORE.
(fn SCORE)
(defalias 'gnus-summary-lower-same-subject #[257 "\300[!\207" [gnus-summary-raise-same-subject] 3 (#$ . 67352) ["p" (gnus-article-mode gnus-summary-mode)]])
#@81 Lower score of articles in the current thread with SCORE.
(fn &optional SCORE)
(defalias 'gnus-summary-lower-thread #[256 "\300\301![!\207" [gnus-summary-raise-thread gnus-score-delta-default] 4 (#$ . 67582) ["P" (gnus-article-mode gnus-summary-mode)]])
#@56 Return a list of all possible score files.
(fn GROUP)
(defalias 'gnus-score-score-files #[257 "\203\f \204\f \305!\210\306\n!\307\310\n!!\204 \311\211\207\312\313!\204; \311\f\2066 \314\315\316\"\210\317\n!\211\314\315\320\"\210B\202] \203L @\203L \321\n @\"\203] \322\n!\3238\262\324\n\325\326 #\237B A\207" [gnus-global-score-files gnus-internal-global-score-files gnus-kill-files-directory gnus-score-file-list gnus-short-name-score-file-cache gnus-score-search-global-directories file-name-as-directory file-exists-p expand-file-name nil gnus-use-long-file-name not-score gnus-message 6 "Finding all score files..." gnus-score-score-files-1 "Finding all score files...done" gnus-file-newer-than file-attributes 5 directory-files t gnus-score-file-regexp] 6 (#$ . 67844)])
#@54 Return all possible score files under DIR.
(fn DIR)
(defalias 'gnus-score-score-files-1 #[257 "\302!C\303 \304\211\211\211\211A\262\242\211\262\203S \305\306\307!\"\204\f \310!\203D \311!\235\204D \311!B\262\312\313\304\313$\244\262\202\f \305\"\203\f \211B\262\202\f \206\\ \302\314 \"C)\207" [case-fold-search gnus-kill-files-directory expand-file-name gnus-score-file-regexp nil string-match "^\\." file-name-nondirectory file-directory-p file-truename directory-files t "this.file.does.not.exist.SCORE"] 12 (#$ . 68640)])
#@45 Return a regexp that match all score files.
(defalias 'gnus-score-file-regexp #[0 "\302\303!\304\303 !\305\260\207" [gnus-score-file-suffix gnus-adaptive-file-suffix "\\(" regexp-quote "\\|" "\\)\\'"] 5 (#$ . 69195)])
#@159 Return a list of score files for GROUP.
The score files are those files in the ~/News/ directory which matches
GROUP using BNews sys file syntax.
(fn GROUP)
(defalias 'gnus-score-find-bnews #[257 "\304\305!\"\306\307 !!\211G\310 \311\n\236A\312\313\"\314\211\211r\315\316!q\210\317 \210\2038\320 \210@c\210eb\210\321\314\313#\2030\322\225\322\224U\204O \323\324\313\211#\210\325\326!\210eb\210\327\330 !!\203f \325dS^!\210\202\201 db\210\331 \314\313#\203y `Te|\210\202\201 \332\333\334 @#\210eb\210\335\205\215 \336!\337Q\321\314\313#\203\240 \323\340\313\211#\210\202\217 \210eb\210\327\341!\203\267 \342\343!\210\326u\210\344c\210\333u\210\342\343\314\313#\203\310 \323\345\313\211#\210\202\267 eb\210\342\346\314\313#\203\334 \323\347\313\211#\210\202\313 eb\210\327\350!\203\363 \313\262\351\352d{\353Q\262\202\376 \351\333d{\353Q\262\314\262\203\3541\355\"?0\202\210\314\204)\2040\3561$\355\"0\202&\210\314\2030@B\262A\262 \202$ p\211\211\205J\357\360!\211\262!\205J\211\262\203V\361!\210\362 \210\210\363\n!\211\364\"B\262\210\365\237!)\207" [gnus-internal-global-score-files gnus-kill-files-directory nnheader-file-name-translation-alist gnus-directory-sep-char-regexp append gnus-score-score-files file-name-as-directory expand-file-name gnus-score-file-regexp 58 nnheader-translate-file-chars t nil gnus-get-buffer-create "*gnus score files*" buffer-disable-undo erase-buffer re-search-forward 0 replace-match "" delete-char -1 looking-at regexp-quote re-search-backward gnus-message 1 "Can't find directory separator in %s" "[/:" char-to-string "]" "." "nn[a-z]+\\+" search-forward "+" "\\" "\\+" "all" ".*" "not." "^" 5 "$" (error) string-match (error) buffer-live-p get-buffer kill-buffer gnus-prune-buffers gnus-score-file-name delete gnus-sort-score-files] 15 (#$ . 69422)])
#@62 Return list containing the score file for GROUP.
(fn GROUP)
(defalias 'gnus-score-find-single #[257 "\206 \302 \"\302!D\207" [gnus-newsgroup-adaptive-score-file gnus-adaptive-file-suffix gnus-score-file-name] 4 (#$ . 71279)])
#@115 Return list of score files for GROUP.
This includes the score file for the group and all its parents.
(fn GROUP)
(defalias 'gnus-score-find-hierarchical #[257 "\300!\301C\302\303\"\203 \304\225\301O\202 \304\302\305T#\203. \304\224\262\304OB\262\202 B\262\306\307\237\211\262\"\306\310\"\244\262\311\232\203J \207\306\312\313\"\"\207" [gnus-group-real-prefix nil string-match "^[^:]+:" 0 "\\." mapcar #[257 "\301\"\207" [gnus-adaptive-file-suffix gnus-score-file-name] 4 "\n\n(fn GROUP)"] gnus-score-file-name "" make-closure #[257 "\301\302!\300\303!Q!\207" [V0 nnheader-translate-file-chars file-name-directory file-name-nondirectory] 6 "\n\n(fn FILE)"]] 9 (#$ . 71517)])
#@95 Return a number that says how specific score FILE is.
Destroys the current buffer.
(fn FILE)
(defalias 'gnus-score-file-rank #[257 "\211\235\203 \302\207\303\304\305\306\307 !!!P\"\203 \211\302\225\310O\262\211c\210eb\210`\310\311\312\310\313#\2039 `S{B\262\202& \314 \210\315\316\"\262\211G\207" [gnus-internal-global-score-files gnus-kill-files-directory 0 string-match "^" regexp-quote expand-file-name file-name-as-directory nil re-search-forward "[./]" t erase-buffer delete "all"] 7 (#$ . 72228)])
#@67 Sort FILES so that the most general files come first.
(fn FILES)
(defalias 'gnus-sort-score-files #[257 "\300\301\302\"r\211q\210\303\304\"\216\305\306\"\305\307\310\311\"\"\262*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mapcar #[257 "\211\211\235\203
\302\262\202K \303\304\305\306\307 !!!P\"\203# \211\302\225\310O\262\211c\210eb\210`\310\311\312\310\313#\203> `S{B\262\202+ \314 \210\315\316\"\262\211G\266\203B\207" [gnus-internal-global-score-files gnus-kill-files-directory 0 string-match "^" regexp-quote expand-file-name file-name-as-directory nil re-search-forward "[./]" t erase-buffer delete "all"] 8 "\n\n(fn FILE)"] cdr sort car-less-than-car] 8 (#$ . 72749)])
#@117 Return list of score files for GROUP.
The list is determined from the variable `gnus-score-file-alist'.
(fn GROUP)
(defalias 'gnus-score-find-alist #[257 "\303\304 \"\211\262\203 \211A\207\203+ \305@@\"\203$ \306@A\"\262A\262\202 \n\262\203M \305@@\"\203F \306@A\"\262\303\262A\262\202. B B\207" [gnus-score-file-multiple-match-alist gnus-score-file-alist-cache gnus-score-file-single-match-alist nil assoc string-match append] 6 (#$ . 73522)])
#@79 Return a list of all score files for the current group.
(fn &optional GROUP)
(defalias 'gnus-all-score-files #[256 "\206 \305\205\326 \203 <\204 C\262\n\203G \203' \306\307!!\262\310\311\"\211\2036 \211B\262\211\210\312\313\"\211\203F \211B\262\211\210\203c \314@!\203\\ \315@!\237\"\262A\262\202G \n\203\202 \310!\211\203s \211B\262\210\312\316\"\211\203\201 \211B\262\210\211\211\203\234 \211@;\203\225 \211\317@\f\"\240\210\211A\262\202\203 \210\211\237\262\211\203\264 \211@A\235\203\264 \211A\262\202\241 \211\211A\203\324 \211A@AA\235\203\315 \211AA\241\210\202\265 \211A\262\202\265 \210\211\207" [gnus-score-find-score-files-function gnus-newsgroup-name gnus-score-use-all-scores gnus-newsgroup-adaptive-score-file gnus-kill-files-directory nil copy-sequence gnus-score-find-alist gnus-home-score-file t gnus-group-find-parameter adapt-file functionp append score-file expand-file-name] 9 (#$ . 74000)])
#@58 Do scoring if scoring is required.
(fn &optional TRACE)
(defalias 'gnus-possibly-score-headers #[256 "\300 \211\205\n \301\"\207" [gnus-all-score-files gnus-score-headers] 5 (#$ . 74963)])
#@81 Return the name of a score file for NEWSGROUP.
(fn NEWSGROUP &optional SUFFIX)
(defalias 'gnus-score-file-name #[513 "\211\206 \302\203 \303\230\203 \304 \"\202? \305\306!\2036 \304\307!\303\230\203+ \211\202/ \211\310Q\262 \"\202? \304\311!\312Q \"!\207" [gnus-score-file-suffix gnus-kill-files-directory nnheader-translate-file-chars "" expand-file-name gnus-use-long-file-name not-score gnus-newsgroup-savable-name "." gnus-newsgroup-directory-form "/"] 9 (#$ . 75161)])
#@64 Scan all global score directories for score files.
(fn FILES)
(defalias 'gnus-score-search-global-directories #[257 "\301\203' \302@!\203 \303@\304\305 \306P#\262\202 @B\262A\262\202 \211\211\207" [gnus-internal-global-score-files nil file-directory-p directory-files t gnus-score-file-regexp "\\'"] 7 (#$ . 75655) (list gnus-global-score-files)])
#@44 Toggle folding for new score file entries.
(defalias 'gnus-score-default-fold-toggle #[0 "?\211\203\f \301\302\303\"\207\301\302\304\"\207" [gnus-score-default-fold gnus-message 1 "New score file entries will be case insensitive." "New score file entries will be case sensitive."] 4 (#$ . 76023) nil])
#@116 Return the home score file for GROUP.
If ADAPT, return the home adaptive file instead.
(fn GROUP &optional ADAPT)
(defalias 'gnus-home-score-file #[513 "\211\203 \202 \303\211<\204 C\262\211\204W \211A\262\242\211\262\203W ;\203- \202R \304!\2039 !\202R :\205R \305\306@!\"\205R \307A@\310\303$\262\202 \211\205k \311!\262\312!\203g \207\313\n\"\207" [gnus-home-adapt-file gnus-home-score-file gnus-kill-files-directory nil functionp string-match gnus-globalify-regexp replace-match t nnheader-translate-file-chars file-name-absolute-p nnheader-concat] 10 (#$ . 76334)])
#@72 Return the score file of the top-level hierarchy of GROUP.
(fn GROUP)
(defalias 'gnus-hierarchial-home-score-file #[257 "\301\302\"\203 \303\304\"P\207\211\305\306!\203 \307\202 \310Q\207" [gnus-score-file-suffix string-match "^[^.]+\\." match-string 0 gnus-use-long-file-name not-score "." "/"] 4 (#$ . 76941)])
#@72 Return the adapt file of the top-level hierarchy of GROUP.
(fn GROUP)
(defalias 'gnus-hierarchial-home-adapt-file #[257 "\301\302\"\203 \303\304\"P\207\211\305\306!\203 \307\202 \310Q\207" [gnus-adaptive-file-suffix string-match "^[^.]+\\." match-string 0 gnus-use-long-file-name not-score "." "/"] 4 (#$ . 77268)])
#@54 Return the "current" regular score file.
(fn GROUP)
(defalias 'gnus-current-home-score-file #[257 "\300!@\207" [gnus-score-find-alist] 3 (#$ . 77598)])
#@137 Decay SCORE according to decay variables.
The decay variables are `gnus-score-decay-constant' and
`gnus-score-decay-scale'.
(fn SCORE)
(defalias 'gnus-decay-score #[257 "\302\211\303W\203\f \304\202
\305\306!\306! _]^_Z!\207" [gnus-score-decay-constant gnus-score-decay-scale floor 0 -1 1 abs] 8 (#$ . 77759)])
#@54 Decay non-permanent scores in ALIST.
(fn ALIST DAY)
(defalias 'gnus-decay-scores #[514 "\302\303!Z\303\211\211\211\211\304U\204f \211A\262 \242\211\262\203f @;\203 A\262\211A\262\242\211\262\203 \3058\203' \306\262A@\206C \262\262\307S\211\262!\203Z !\262\202H AAB\241\210\202' \207" [gnus-score-interactive-default-score gnus-decay-score-function time-to-days nil 0 2 t natnump] 11 (#$ . 78083)])
(provide 'gnus-score)