;ELC   
;;; compiled by larsi@narfi.ifi.uio.no on Fri Nov  3 03:29:32 1995
;;; from file /home/menja/c/larsi/dgnus/lisp/gnus-score.el
;;; emacs version 19.29.90.3.
;;; 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-score.el' was compiled for Emacs 19.29 or later"))


(require (quote gnus))
#@63 *Number of days before unused score file entries are expired.
(defvar gnus-score-expiry-days 7 (#$ . -508))
#@59 *All orphans get this score added. Set in the score file.
(defvar gnus-orphan-score nil (#$ . -622))
#@29 *Alist of marks and scores.
(defvar gnus-default-adaptive-score-alist (quote ((gnus-kill-file-mark) (gnus-unread-mark) (gnus-read-mark (from 3) (subject 30)) (gnus-catchup-mark (subject -10)) (gnus-killed-mark (from -1) (subject -20)) (gnus-del-mark (from -2) (subject -15)))) (#$ . -729))
#@65 *Have the score entry functions pretend that they are a keymap.
(defvar gnus-score-mimic-keymap nil (#$ . -1025))
#@395 *Number that says how long a match has to be before using substring matching.
When doing adaptive scoring, one normally uses fuzzy or substring
matching. However, if the header one matches is short, the possibility
for false positives is great, so if the length of the match is less
than this variable, exact matching will be used.

If this variable is nil, exact matching will always be used.
(defvar gnus-score-exact-adapt-limit 10 (#$ . -1146))
(byte-code "! B! B!! B!. B" [boundp gnus-score-help-winconf nil current-load-list gnus-adaptive-score-alist gnus-default-adaptive-score-alist gnus-score-trace gnus-score-edit-buffer] 2)
#@685 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 (#$ . 1825))
(byte-code "! B! B!  B!- B%\"!G B!###########" [boundp gnus-score-cache nil current-load-list gnus-scores-articles gnus-header-index gnus-score-index autoload gnus-uu-ctl-map "gnus-uu" keymap appt-select-lowest-window "appt.el" gnus-summary-score-map define-prefix-command define-key gnus-summary-mode-map "V" "s" gnus-summary-set-score "a" gnus-summary-score-entry "S" gnus-summary-current-score "c" gnus-score-change-score-file "m" gnus-score-set-mark-below "x" gnus-score-set-expunge-below "e" gnus-score-edit-alist "f" gnus-score-edit-file "t" gnus-score-find-trace "C" gnus-score-customize] 6)
#@196 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.
(defalias 'gnus-summary-lower-score #[(&optional score) "\n![!" [gnus-summary-increase-score gnus-score-default score] 3 (#$ . 3281) "P"])
#@196 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.
(defalias 'gnus-summary-increase-score #[(&optional score) " \n!W ł V\n\f EE Y !\"m d e \n## U~ UB \n#B ! !/ /!\n   # ! U  # ! K@\n!#\"A@\f#$ U3U \f# !T/P/!!\f8| u#y!U$! K!$## UU#!//!!% !A@K G%K!?A@8昃cr@ 8qA@!\nA =?~\nB =?C 8?&." [gnus-set-global-variables gnus-score-default score nscore 0 76 73 prefix increase ((97 "from" nil nil string) (115 "subject" nil nil string) (98 "body" "" nil body-string) (104 "head" "" nil body-string) (105 "message-id" nil t string) (116 "references" "message-id" t string) (120 "xref" nil nil string) (108 "lines" nil nil number) (100 "date" nil nil date) (102 "followup" nil nil string)) char-to-header ((115 s "substring" string) (101 e "exact string" string) (102 f "fuzzy string" string) (114 r "regexp string" string) (115 s "substring" body-string) (114 s "regexp string" body-string) (98 before "before date" date) (97 at "at date" date) (110 now "this date" date) (60 < "less than number" number) (62 > "greater than number" number) (61 = "equal to number" number)) char-to-type 116 current-time-string "temporary" (112 perm "permanent") (105 now "immediate") char-to-perm gnus-score-mimic-keymap mimic nil hchar entry temporary tchar pchar end type sit-for 1 message "%c-" "%s header (%s?): " "Increase" "Lower" mapconcat #[(s) "	@!" [char-to-string s] 2] "" read-char 63 8 gnus-score-insert-help "Match on header" get-buffer "*Score Help*" kill-buffer gnus-score-help-winconf set-window-configuration ding t "%c %c" "%c %c-" "%s header '%s' with match type (%s?): " #[(s) "	88= @!Ň" [4 entry 3 s char-to-string ""] 3] "Match type" 2 "%c %c %c" "%c %c %c-" "%s permanence (%s?): " #[(s) "	@!" [char-to-string s] 2] "Match permanence" "%c %c %c %c" gnus-summary-score-entry gnus-summary-header s perm 3] 9 (#$ . 3625) "P"])
(defalias 'gnus-score-insert-help #[(string alist idx) " !qp!p! ȱ\n̉S @8GVJ A5 \\  \n W~ !cZ!Q\n@@\n@8#c\nA\nTg .  ! #!!)" [current-window-configuration gnus-score-help-winconf get-buffer-create "*Score Help*" buffer-disable-undo delete-windows-on erase-buffer string ":\n\n" -1 alist 0 nil format pad width n i list max idx 4 window-width delete-char "\n" 3 "%c: %-" int-to-string "s" appt-select-lowest-window split-window pop-to-buffer shrink-window-if-larger-than-buffer select-window get-buffer-window gnus-summary-buffer] 8])
(defalias 'gnus-summary-header #[(header &optional no-err) "`y`	b)\" \fE !9 !9 \f\"A@HM ?M !M M !*" [get-text-property p 0 gnus-number gnus-current-article nil headers article gnus-get-header-by-number vectorp assoc header gnus-header-index no-err error "Pseudo-articles can't be scored" "No article on current line"] 5])
#@395 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.
(defalias 'gnus-summary-score-entry #[(header match type score date &optional prompt silent) "= = = =@ ; \"5 ʕO7 *< J =J !! =h ׂs ;r ؂s W ڂ $ ! \"\"8Y \"8= \" $\"8= !=?&U   !F!EDC!)*+*o*\")o)8+8=o)8F+8T)8o+8o)A)A@`&+A@i&\\*+*B+C\"+\"*" [type t r s nil match subject case-fold-search string-match "^re: *" 0 "" f gnus-simplify-subject-fuzzy gnus-score-default score header prompt read-string format "Match %s on %s, %s: " date now "now" "temp" "permanent" "lower" "raise" int-to-string 1 assoc gnus-header-index 2 gnus-score-string silent gnus-summary-score-effect gnus-score-integer string-to-int gnus-score-interactive-default-score gnus-day-number gnus-score-get elem old new 3 gnus-score-set touched (t)] 7 (#$ . 7149) (list (completing-read "Header: " gnus-header-index (lambda (x) (fboundp (nth 2 x))) t) (read-string "Match: ") (if (y-or-n-p "Use regexp match? ") (quote r) (quote s)) (and current-prefix-arg (prefix-numeric-value current-prefix-arg)) (cond ((not (y-or-n-p "Add to score file? ")) (quote now)) ((y-or-n-p "Expire kill? ") (current-time-string)) (t nil)))])
#@204 Simulate the effect of a score file entry.
HEADER is the header being scored.
MATCH is the string we are looking for.
TYPE is a flag indicating if it is a regexp or substring.
SCORE is the score to add.
(defalias 'gnus-summary-score-effect #[(header match type score) "; GV !eb\f=  !. \f( . !Q\nm?h \f\"a \f=S !\nY \n\"a !*y0 *" [match 0 error "No match" type f gnus-simplify-subject-fuzzy "\\`.*" regexp-quote ".*\\'" regexp gnus-summary-header header noerr t case-fold-search content string-match gnus-summary-raise-score score 1] 4 (#$ . 8895) (list (completing-read "Header: " gnus-header-index (lambda (x) (fboundp (nth 2 x))) t) (read-string "Match: ") (y-or-n-p "Use regexp match? ") (prefix-numeric-value current-prefix-arg))])
(defalias 'gnus-summary-score-crossposting #[(score date) "! !#> ˔˕O\f \fQ& +" [gnus-summary-header "xref" 0 nil group start xref error "This article is not crossposted" string-match " \\([^ 	]+\\):" 1 gnus-newsgroup-name gnus-summary-score-entry " " ":" score date t] 8])
#@61 Automatically mark articles with score below SCORE as read.
(defalias 'gnus-score-set-mark-below #[(score) "	 		 C\"\" " [score gnus-summary-default-score 0 gnus-score-set mark touched (t) gnus-summary-mark-below gnus-summary-update-lines] 3 (#$ . 10015) (list (or (and current-prefix-arg (prefix-numeric-value current-prefix-arg)) (string-to-int (read-string "Mark below: "))))])
#@56 Automatically expunge articles with score below SCORE.
(defalias 'gnus-score-set-expunge-below #[(score) "	 		 C\"\"" [score gnus-summary-default-score 0 gnus-score-set expunge touched (t)] 3 (#$ . 10420) (list (or (and current-prefix-arg (prefix-numeric-value current-prefix-arg)) (string-to-int (read-string "Expunge below: "))))])
(defalias 'gnus-score-set #[(symbol value &optional alist) " 	 \f!!	\"\"? + \n? 5 !? \nBAB*" [alist gnus-score-alist gnus-score-load gnus-score-file-name gnus-newsgroup-name assoc symbol entry gnus-score-get read-only value error "Empty alist"] 3])
(defalias 'gnus-score-get #[(symbol &optional alist) "	\n  !!\"A" [assoc symbol alist gnus-score-alist gnus-score-load gnus-score-file-name gnus-newsgroup-name] 5])
#@29 Change current score alist.
(defalias 'gnus-score-change-score-file #[(file) "	!!" [gnus-score-load-file file gnus-set-mode-line summary] 2 (#$ . 11239) (list (read-file-name "Edit score file: " gnus-kill-files-directory))])
#@31 Edit the current score alist.
(defalias 'gnus-score-edit-alist #[(file) " !\f  !! !	\f)!\"" [current-window-configuration winconf buffer-name gnus-summary-buffer gnus-score-save find-file-noselect file gnus-score-edit-buffer gnus-configure-windows edit-score gnus-score-mode make-local-variable gnus-prev-winconf gnus-message 4 substitute-command-keys "\\<gnus-score-mode-map>\\[gnus-score-edit-done] to save edits"] 4 (#$ . 11475) (list gnus-current-score-file)])
#@20 Edit a score file.
(defalias 'gnus-score-edit-file #[(file) "	!	   !! !\f\f)!\"" [buffer-name gnus-summary-buffer gnus-score-save current-window-configuration winconf find-file-noselect file gnus-score-edit-buffer gnus-configure-windows edit-score gnus-score-mode make-local-variable gnus-prev-winconf gnus-message 4 substitute-command-keys "\\<gnus-score-mode-map>\\[gnus-score-edit-done] to save edits"] 4 (#$ . 11972) (list (read-file-name "Edit score file: " gnus-kill-files-directory))])
(defalias 'gnus-score-load-file #[(file) " !P!\"  P!\"	\n\f= Aq !T DB\nh h DBBB\"> C\f\"@\"@\"@\"\"\"@\"\"\"@ \n \f\"#\f \n !\"##-$q,@:#@@9#@@!@@@A@LA)6&皃E()cꚃSˉ(c:a(c)+qq,,--.	.\f-" [gnus-kill-files-directory "~/News/" expand-file-name string-match "^" file assoc gnus-score-cache cached gnus-internal-global-score-files global nil lists alist gnus-score-alist gnus-score-load-score-alist touched read-only t mapcar #[(e) "@;" [e] 1] gnus-score-get mark expunge mark-and-expunge files exclude-files orphan adapt local eval apply append #[(file) "	!" [gnus-score-load-file file] 2] #[(sfile) "	!\"" [expand-file-name sfile file-name-directory file] 4] gnus-scores-exclude-files gnus-summary-buffer make-local-variable gnus-orphan-score (t) gnus-newsgroup-adaptive gnus-default-adaptive-score-alist (ignore) gnus-adaptive-score-alist gnus-summary-mark-below gnus-summary-expunge-below gnus-current-score-file] 12])
(defalias 'gnus-score-load #[(file) "	\n\" A% 	!\f !	\fB\nB)" [assoc file gnus-score-cache cache gnus-score-alist nil gnus-score-load-score-alist copy-alist ((touched nil))] 4])
(defalias 'gnus-score-remove-from-cache #[(file) "\n\"\"" [delq assoc file gnus-score-cache] 4])
(defalias 'gnus-score-load-score-alist #[(file) "!@  !eb#)\" ʏ)	@=2 	!5 	\"D )" [nil alist file-readable-p file gnus-set-work-buffer insert-file-contents re-search-forward "[()0-9a-zA-Z]" t (byte-code "p!" [read] 2) ((error (byte-code "# !Ǉ" [gnus-message 3 "Problem with score file %s" file ding sit-for 2 nil] 4))) setq gnus-score-transform-old-to-new gnus-score-alist gnus-score-check-syntax] 4])
(defalias 'gnus-score-check-syntax #[(alist file) " : # g g @<< @$ @@;^ @A@<^ @A@$ A! s  t *" [alist nil gnus-message 1 "Score file is not a list: %s" file ding err a 3 "Illegal score element %s in %s" t "Illegal header match %s in %s"] 6])
(defalias 'gnus-score-transform-old-to-new #[(alist) "	8	@= 	A@	| 	@@;c \fA\fB_ @@@8@8F @8!@A@R ɂS FA- )u \fA<q \f@\fADr \fB	A D+B" [2 alist nil out entry quote scor 3 gnus-day-number r s touched t] 7])
(defalias 'gnus-score-save #[nil "!qp!		 	@		A	@	A\"̚ \" !L ! 	\" P\"t \"cz p\")!!  U ! ! ed% +p!*" [gnus-score-cache cache nil gnus-score-alist get-buffer-create "*Score*" buffer-disable-undo file score entry gnus-score-get touched (t) read-only file-exists-p file-writable-p delq erase-buffer emacs-lisp-mode-hook string-match gnus-adaptive-file-suffix "$" format "%S" pp gnus-make-directory file-name-directory buffer-size 0 delete-file write-region silent kill-buffer] 6])
(defalias 'gnus-score-headers #[(score-files &optional trace) "( @; @!	! @	A\f \f\\ 	[ @\n\"R @\fR @	\"A6 *\fA	AGGVA !Z\" @AH \f BB !qp!\n \"A@$\n!@@A\"A@$	\"\"W 8	+% p!);\f@AU4@@H@ABBA\".)" [nil scores gnus-orphan-score gnus-scores-articles gnus-scores-exclude-files score-files gnus-score-load-file c s rassq gnus-score-cache delq gnus-summary-default-score gnus-newsgroup-headers gnus-newsgroup-scored gnus-header-index entries gnus-day-number current-time-string now gnus-score-expiry-days expire headers gnus-current-score-file current-score-file entry header gnus-message 5 "Scoring..." 0 get-buffer-create "*Headers*" buffer-disable-undo assoc "references" gnus-score-index gnus-score-orphans apply max mapcar #[(score) "	\n\"G" [gnus-score-get header score] 3] 2 trace kill-buffer "Scoring...done"] 7])
(defalias 'gnus-get-new-thread-ids #[(articles) "\n\"A@ĉ	\nC @@\nH@	HA̘ B ." [assoc "message-id" gnus-header-index gnus-score-index nil tref this art id-list refind index articles ""] 7])
(defalias 'gnus-score-orphans #[(score) "	!	\n	\" i @@HAϘ\" \fM 	B	\" \f_ \fб`S`	$C	\" \f{ \fб`S`	$\n \n@\nA\neb#{ y! eb`\" @AA\\ y=  ." [gnus-get-new-thread-ids gnus-scores-articles nil this-id last this arts art articles alike new-thread-ids sort gnus-score-string< erase-buffer gnus-score-index "" 10 put-text-property search-forward t 0 kill-line 1 get-text-property score] 9])
(defalias 'gnus-score-integer #[(scores header now expire &optional trace) "	\n\"A@É @A	\f\"A\f A@	@\n	88 	A@C 	8=q =q =q =q =v { \" @@H \n\"  @@	BB@@A\\A   \f#	AA# $W \f#A.	 +" [assoc header gnus-header-index nil alist entries gnus-score-index scores rest kill match 3 > type gnus-score-interactive-default-score score 2 date found < <= >= = error "Illegal match type: %s" match-func gnus-scores-articles articles 0 trace gnus-score-trace t gnus-score-set touched (t) now expire (t)] 5])
(defalias 'gnus-score-date #[(scores header now expire &optional trace) "	\n\"A@É@A	\f\"A\f A@		@!	8; 	A@F 	8=\\ Ղw =g ւw =r ؂w \" @@H !\"  @@	B B @@A\\A   \f#	AA% &W \f#A.\n +" [assoc header gnus-header-index nil alist entries gnus-score-index scores rest kill timezone-make-date-sortable match 3 before type gnus-score-interactive-default-score score 2 date found after string< gnus-string> at string= error "Illegal match type: %s" match-func gnus-scores-articles articles l trace gnus-score-trace t gnus-score-set touched (t) now expire (t)] 5])
(defalias 'gnus-score-body #[(scores header now expire &optional trace) "q@@H	ʘ  ˂- 	̘, ͂- !\"P !ŕO!\"] \f\f@@H$\"~eb = `# d} # `d}@A	\"A A!@\"@#\"8 &\"A@ '(\"8*+&=\f&=\f&=\f&=?0&=+&=+&=+&=/T&=K&=K&=K&=O݂T&\"7eb7##\f@(\f@A\\+8\f@@\"B9B9*+#\"AA=*>W#!A!!.	 \fAa ." [nntp-server-buffer nil buffer-read-only gnus-scores-articles articles 0 last scores all-scores header "head" gnus-request-head "body" gnus-request-body gnus-request-article request-func entries alist ofunc article gnus-check-backend-function string-match "^gnus-" symbol-name intern gnus-newsgroup-name gnus-message 7 "Scoring on article %s of %s..." search-forward "\n\n" t assoc rest kill match 3 s type gnus-score-interactive-default-score score 2 date found R S Regexp String case-fold-search r regexp re-search-forward string error "Illegal match type: %s" search-func trace gnus-score-trace gnus-score-set touched (t) now expire (t)] 6])
(defalias 'gnus-score-followup #[(scores header now expire &optional trace) "	\n\"A@\fŉ	\n\f\"!\"  @	@H\nA\na 	\fB\f9 u ر`S`\f$	C\f\n9  ر`S`\f$\f\f@\fA	\"A A@@8 A@  !8#$!H'U 'U 'U 'U?,'-U\n(-U-U-U#(\"67	eb-U}6#y`U:`U:`\"7$7:7@	7A7	@!#a6#`\"7$7}7@	7A7	@!##$#AA>#?W@ #A. !.\n" [assoc header gnus-header-index gnus-current-score-file scores nil articles alist entries art this last alike all-scores current-score-file gnus-score-index gnus-score-load-file gnus-score-file-name gnus-newsgroup-name gnus-adaptive-file-suffix sort gnus-scores-articles gnus-score-string< erase-buffer 10 put-text-property rest kill match 3 s type gnus-score-interactive-default-score score 2 date found symbol-name 0 mt 82 83 69 70 case-fold-search dmt 114 re-search-forward 101 115 102 search-forward error "Illegal match type: %s" search-func arts t get-text-property gnus-score-add-followups gnus-score-set touched (t) now expire (t)] 11])
(defalias 'gnus-score-add-followups #[(header score scores) "q	H\f@\fF \f@@Ț? A@84 A@8=? \"? \fA W  &-" [gnus-summary-buffer header 4 id scores nil entry dont "references" 3 s assoc t gnus-summary-score-entry score current-time-string] 9])
(defalias 'gnus-score-string #[(score-list header now expire &optional trace) "	\n\"A@É	\n\f\" v @	@H\nA\nV 	\fB\f. j ұ`S`\f$	C\f\n.  ұ`S`\f$p@A	\"A A@@8 A@ 8!H\"U \"U \"U \"U?'\"(U (U(U(U \"12	(U4geb(Um11#1y`U`U`\"2522@	2A2		A\\	@HB6B6n22@	2A2		A\\y>m11#1b`\"252+2@	2A2		A\\	@HB6B62+2@	2A2		A\\ygM#AA=g>Wg#A. \fv\f@  @A	\"AA@@8A@8!H\"U\"U\"U\"U?'\"(U(U\n(U\n(U\"12	(Uebm1#y`U`U`\"25~22@	2A2		A\\	@HB6B6U22@	2A2		A\\~y%A #AA=>WB #A..\n" [assoc header gnus-header-index nil fuzzy scores articles alist entries art this last alike gnus-score-index sort gnus-scores-articles gnus-score-string< erase-buffer 10 put-text-property score-list rest kill match 3 s type gnus-score-interactive-default-score score 2 date found symbol-name 0 mt 82 83 69 70 case-fold-search dmt 114 re-search-forward 101 115 102 search-forward error "Illegal match type: %s" search-func arts t get-text-property trace gnus-score-trace 1 "" "\n" gnus-score-set touched (t) now expire (t) gnus-simplify-buffer-fuzzy (t) (t)] 11])
(defalias 'gnus-score-string< #[(a1 a2) "@	H\n@	H" [a1 gnus-score-index a2] 3])
(defalias 'gnus-score-build-cons #[(article) "@HAB" [article 0] 2])
(byte-code "\nB" [(("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) ("head" -1 gnus-score-body) ("body" -1 gnus-score-body) ("all" -1 gnus-score-body) ("followup" 2 gnus-score-followup)) gnus-header-index current-load-list] 2)
(defalias 'gnus-current-score-file-nondirectory #[(&optional score-file) " 	 !! )" [score-file gnus-current-score-file gnus-short-group-name file-name-nondirectory "none"] 4])
(defalias 'gnus-score-adaptive #[nil "	! 	\na \n@@9( @JAZ @@@!@AB@@@!P!A1 \nA \"!ebm?`y`b)\"A`\"`y`b)\" !@@!	@A@	 ڂ @A@ۚ ܂  	GW ނ @A@ߚ  @8&A ym ." [gnus-copy-sequence gnus-adaptive-score-alist malist alist current-time-string date nil elem headers match symbol-name intern "gnus-header-" gnus-score-load-file gnus-score-file-name gnus-newsgroup-name gnus-adaptive-file-suffix get-text-property p 0 gnus-mark gnus-pseudo gnus-get-header-by-number gnus-number gnus-current-article gnus-summary-score-entry = "date" a gnus-score-exact-adapt-limit e "subject" f s 2 t 1] 9])
(defalias 'gnus-score-remove-lines-adaptive #[(marks) "	! 	\n\ne \n@	@9, 	@J	A	^ 	@	@@!	@AB	@	@@!P!	A	5 \nA eb\"!#y`y`b)\"A	 `y`b)\" `y`b)\" !\n	 	@@\n!	@A@ GW  	@8&	A	 `y`|q !." [gnus-copy-sequence gnus-adaptive-score-alist malist alist current-time-string date gnus-current-score-file cur-score nil elem headers match symbol-name intern "gnus-header-" gnus-score-load-file gnus-score-file-name gnus-newsgroup-name gnus-adaptive-file-suffix re-search-forward marks t 0 get-text-property p gnus-mark gnus-pseudo gnus-get-header-by-number gnus-number gnus-current-article gnus-summary-score-entry gnus-score-exact-adapt-limit e s 2 1] 9])
(byte-code "! B! B	- !	#	#" [boundp gnus-score-mode-map nil current-load-list gnus-score-mode-hook copy-keymap emacs-lisp-mode-map define-key "" gnus-score-edit-done "" gnus-score-edit-insert-date] 4)
#@97 Mode for editing score files.
This mode is an extended emacs-lisp mode.

\{gnus-score-mode-map}
(defalias 'gnus-score-mode #[nil " \n!\f!!\"" [kill-all-local-variables use-local-map gnus-score-mode-map set-syntax-table emacs-lisp-mode-syntax-table gnus-score-mode major-mode "Score" mode-name lisp-mode-variables nil run-hooks emacs-lisp-mode-hook gnus-score-mode-hook] 3 (#$ . 25807) nil])
#@34 Insert date in numerical format.
(defalias 'gnus-score-edit-insert-date #[nil " !!c" [int-to-string gnus-day-number current-time-string] 3 (#$ . 26223) nil])
#@55 Save the score file and return to the summary buffer.
(defalias 'gnus-score-edit-done #[nil "p!	 !! p!!!\n# \n!*" [buffer-file-name gnus-prev-winconf winconf bufnam gnus-make-directory file-name-directory save-buffer kill-buffer gnus-score-remove-from-cache gnus-score-load-file set-window-configuration] 3 (#$ . 26391) nil])
#@47 Find all score rules applied to this article.
(defalias 'gnus-score-find-trace #[nil "`y`\nb)\" !Cp	\n!2 !!  S @A\"cAA eb!," [gnus-get-header-by-number get-text-property p 0 gnus-number gnus-current-article nil trace buf gnus-newsgroup-scored gnus-newsgroup-headers gnus-score-trace gnus-possibly-score-headers error "No score rules apply to the current article." pop-to-buffer "*Gnus Scores*" gnus-add-current-to-buffer-list erase-buffer format "%S\n"] 5 (#$ . 26743) nil])
(provide (quote gnus-score))
