* spam-stat.el (spam-stat-reduce-size): Set spam-stat-dirty.

(spam-stat-save): Accept prefix argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f76a41..1136dc7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-24  Hiroshi Fujishima <pooh@nature.tsukuba.ac.jp>  (tiny change)
+
+       * spam-stat.el (spam-stat-reduce-size): Set spam-stat-dirty.
+       (spam-stat-save): Accept prefix argument.
+
 2004-01-23  Paul Jarc  <prj@po.cwru.edu>
 
        * nnmaildir.el (nnmaildir-request-set-mark): Handle the "too many

diff --git a/lisp/spam-stat.el b/lisp/spam-stat.el
index 9d43ef8..451c085 100644 (file)
--- a/lisp/spam-stat.el
+++ b/lisp/spam-stat.el
@@ -365,8 +365,9 @@ Use `spam-stat-ngood', `spam-stat-nbad', `spam-stat-good',
 ;; Saving and Loading
 
 (defun spam-stat-save (&optional force)
-  "Save the `spam-stat' hash table as lisp file."
-  (interactive)
+  "Save the `spam-stat' hash table as lisp file.
+With a prefix argument save unconditionally."
+  (interactive "P")
   (when (or force spam-stat-dirty)
     (with-temp-buffer
       (let ((standard-output (current-buffer))
@@ -563,7 +564,8 @@ COUNT defaults to 5"
                         (spam-stat-bad entry))
                      count)
               (remhash key spam-stat)))
-          spam-stat))
+          spam-stat)
+  (setq spam-stat-dirty t))
 
 (defun spam-stat-install-hooks-function ()
   "Install the spam-stat function hooks"