Index: spam-stat.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/spam-stat.el,v
retrieving revision 7.8
diff -u -r7.8 spam-stat.el
--- spam-stat.el	23 Jan 2004 02:04:44 -0000	7.8
+++ spam-stat.el	24 Jan 2004 10:15:50 -0000
@@ -365,8 +365,9 @@
 ;; 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.
+When executed with '\\[universal-argument]', Save forcely."
+  (interactive "P")
   (when (or force spam-stat-dirty)
     (with-temp-buffer
       (let ((standard-output (current-buffer))
@@ -563,7 +564,8 @@
 			 (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"