Index: spam.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/spam.el,v
retrieving revision 6.45
diff -r6.45 spam.el
122a123,127
> (defcustom spam-use-stat nil
>   "Whether spam-stat should be used by spam-split."
>   :type 'boolean
>   :group 'spam)
> 
281a287,292
> (defun spam-group-spam-processor-stat-p (group)
>   (spam-group-processor-p group 'gnus-group-spam-exit-processor-stat))
> 
> (defun spam-group-ham-processor-stat-p (group)
>   (spam-group-processor-p group 'gnus-group-ham-exit-processor-stat))
> 
304a316,318
>   (when (spam-group-spam-processor-stat-p gnus-newsgroup-name)
>     (spam-stat-register-spam-routine))
> 
323a338,339
>     (when (spam-group-ham-processor-stat-p gnus-newsgroup-name)
>       (spam-stat-register-ham-routine))
434a451
>     (spam-use-stat	 . spam-check-stat)
455a473,475
>   
>   ;; load the spam-stat tables if needed
>   (when spam-use-stat (spam-stat-load))
580d599
< 	      ;; always accept the ifile category
610a630,675
> ;;;; spam-stat
> 
> (condition-case nil
>     (progn
>       (let ((spam-stat-install-hooks nil))
> 	(require 'spam-stat))
>       
>       (defun spam-check-stat ()
> 	"Check the spam-stat backend for the classification of this message"
> 	(let ((spam-stat-split-fancy-spam-group spam-split-group) ; override
> 	      (spam-stat-buffer (buffer-name)) ; stat the current buffer
> 	      category return)
> 	  (spam-stat-split-fancy)))
> 
>       (defun spam-stat-register-spam-routine ()
> 	(spam-generic-register-routine 
> 	 (lambda (article)
> 	   (let ((article-string (spam-get-article-as-string article)))
> 	     (with-temp-buffer
> 	       (insert-string article-string)
> 	       (spam-stat-buffer-is-spam))))
> 	 nil)
> 	(spam-stat-save))
> 
>       (defun spam-stat-register-ham-routine ()
> 	(spam-generic-register-routine 
> 	 nil
> 	 (lambda (article)
> 	   (let ((article-string (spam-get-article-as-string article)))
> 	     (with-temp-buffer
> 	       (insert-string article-string)
> 	       (spam-stat-buffer-is-non-spam)))))
> 	(spam-stat-save)))
> 
>   (file-error (progn
> 		(defalias 'spam-stat-register-ham-routine 'ignore)
> 		(defalias 'spam-stat-register-spam-routine 'ignore)
> 		(defalias 'spam-stat-buffer-is-spam 'ignore)
> 		(defalias 'spam-stat-buffer-is-non-spam 'ignore)
> 		(defalias 'spam-stat-split-fancy 'ignore)
> 		(defalias 'spam-stat-load 'ignore)
> 		(defalias 'spam-stat-save 'ignore)
> 		(defalias 'spam-check-stat 'ignore))))
> 
> 
> 
Index: spam-stat.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/spam-stat.el,v
retrieving revision 6.7
diff -r6.7 spam-stat.el
130c130
< wether a buffer contains spam or not."
---
> whether a buffer contains spam or not."
138a139,144
> (defcustom spam-stat-install-hooks t
>   "Whether spam-stat should install its hooks in Gnus.
> This is set to nil if you use spam-stat through spam.el."
>   :type 'boolean
>   :group 'spam-stat)
> 
158c164,165
< `spam-stat-split-fancy' is used in fancy splitting rules."
---
> `spam-stat-split-fancy' is used in fancy splitting rules.  Has no
> effect when spam-stat is invoked through spam.el."
161a169,173
> (defcustom spam-stat-split-fancy-spam-threshhold 0.9
>   "Spam score threshhold in spam-stat-split-fancy."
>   :type 'number
>   :group 'spam-stat)
> 
229,232c241,245
< (add-hook 'nnmail-prepare-incoming-message-hook
< 	  'spam-stat-store-current-buffer)
< (add-hook 'gnus-select-article-hook
< 	  'spam-stat-store-gnus-article-buffer)
---
> (when spam-stat-install-hooks
>   (add-hook 'nnmail-prepare-incoming-message-hook
> 	    'spam-stat-store-current-buffer)
>   (add-hook 'gnus-select-article-hook
> 	    'spam-stat-store-gnus-article-buffer))
474c487
< 	(when (> (spam-stat-score-buffer) 0.9)
---
> 	(when (> (spam-stat-score-buffer) spam-stat-split-fancy-spam-threshhold)
Index: gnus.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus.el,v
retrieving revision 6.141
diff -r6.141 gnus.el
1797a1798,1801
> (defvar gnus-group-spam-exit-processor-stat "stat"
>   "The spam-stat summary exit spam processor.
> Only applicable to spam groups.")
> 
1809a1814,1817
> (defvar gnus-group-ham-exit-processor-stat "stat-ham"
>   "The spam-stat summary exit ham processor.
> Only applicable to non-spam (unclassified and ham) groups.")
> 
1825a1834
> 			    (variable-item gnus-group-spam-exit-processor-stat)
1828a1838
> 			    (variable-item gnus-group-ham-exit-processor-stat)
1846a1857
> 			       (variable-item gnus-group-spam-exit-processor-stat)
1849a1861
> 			       (variable-item gnus-group-ham-exit-processor-stat)