* spam.el (spam-stat-register-spam-routine,

	spam-stat-register-ham-routine): remove spam-stat-save
	(spam-stat hook): add spam-stat-save to the gnus-save-newsrc-hook

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0df0c92..cad8a15 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-02-24  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * spam.el (spam-stat-register-spam-routine,
+       spam-stat-register-ham-routine): remove spam-stat-save
+       (spam-stat hook): add spam-stat-save to the gnus-save-newsrc-hook
+
 2002-02-24  Kevin Greiner  <kgreiner@xpediantsolutions.com>
 
        * gnus-group.el (gnus-topic-mode-p): Fixed free variable

diff --git a/lisp/spam.el b/lisp/spam.el
index c56310b..de99fcb 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -781,8 +781,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
             (with-temp-buffer
               (insert article-string)
               (spam-stat-buffer-is-spam))))
-        nil)
-       (spam-stat-save))
+        nil))
 
       (defun spam-stat-register-ham-routine ()
        (spam-generic-register-routine 
@@ -791,8 +790,9 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
           (let ((article-string (spam-get-article-as-string article)))
             (with-temp-buffer
               (insert article-string)
-              (spam-stat-buffer-is-non-spam)))))
-       (spam-stat-save)))
+              (spam-stat-buffer-is-non-spam))))))
+
+      (add-hook 'gnus-save-newsrc-hook 'spam-stat-save))
 
   (file-error (progn
                (defalias 'spam-stat-register-ham-routine 'ignore)