From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Sat, 1 Mar 2003 15:17:51 +0000 (+0000)
Subject: * spam.el (spam-maybe-spam-stat-load, spam-maybe-spam-stat-load):
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=3943a91b97b2c819bb08dea6b75a52087fddb710;p=gnus

* spam.el (spam-maybe-spam-stat-load, spam-maybe-spam-stat-load):
load stats iff spam-use-stat is on

* spam.el: add spam-maybe-spam-stat-load to gnus-startup hook,
also use spam-maybe-spam-stat-load and spam-maybe-spam-stat-save
instead of spam-stat-load and spam-stat-save in the
gnus-get-new-news-hook and gnus-save-newsrc-hook, respectively
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43c89c028..8e9f2bf61 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2003-03-01  Teodor Zlatanov  <tzz@lifelogs.com>
+
+	* spam.el (spam-maybe-spam-stat-load, spam-maybe-spam-stat-load):
+	load stats iff spam-use-stat is on
+
+	* spam.el: add spam-maybe-spam-stat-load to gnus-startup hook,
+	also use spam-maybe-spam-stat-load and spam-maybe-spam-stat-save
+	instead of spam-stat-load and spam-stat-save in the
+	gnus-get-new-news-hook and gnus-save-newsrc-hook, respectively
+
 2003-03-01  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* mm-view.el (mm-inline-text): Ignore errors from enriched-decode.
diff --git a/lisp/spam.el b/lisp/spam.el
index 338183f4b..a908415f1 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -810,10 +810,16 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
 	       (insert article-string)
 	       (spam-stat-buffer-is-non-spam))))))
 
+      (defun spam-maybe-spam-stat-load ()
+	(when spam-use-stat (spam-stat-load)))
+      
+      (defun spam-maybe-spam-stat-save ()
+	(when spam-use-stat (spam-stat-save)))
+
       ;; Add hooks for loading and saving the spam stats
-      (when spam-use-stat
-	(add-hook 'gnus-save-newsrc-hook 'spam-stat-save)
-	(add-hook 'gnus-get-new-news-hook 'spam-stat-load)))
+      (add-hook 'gnus-save-newsrc-hook 'spam-maybe-spam-stat-save)
+      (add-hook 'gnus-get-new-news-hook 'spam-maybe-spam-stat-load))
+      (add-hook 'gnus-startup-hook 'spam-maybe-spam-stat-load))
 
   (file-error (progn
 		(defalias 'spam-stat-register-ham-routine 'ignore)