From d4f99e0092176dda3236a62d442ac08a5d0ac836 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Mon, 24 Feb 2003 22:02:52 +0000 Subject: [PATCH] * 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 --- lisp/ChangeLog | 6 ++++++ lisp/spam.el | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0df0c92fa..cad8a152e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2003-02-24 Teodor Zlatanov + + * 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 * gnus-group.el (gnus-topic-mode-p): Fixed free variable diff --git a/lisp/spam.el b/lisp/spam.el index c56310bfe..de99fcbd3 100644 --- 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) -- 2.34.1