spam-stat-reduce-size doesn't (setq spam-stat-dirty t)

[Hiroshi Fujishima <pooh@nature.tsukuba.ac.jp>]

[-- Attachment #1: Type: text/plain, Size: 118 bytes --]

Hi,

I execute M-x spam-stat-save after M-x spam-stat-reduce-size. But, it
does not save the `spam-stat' hash table.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: spam-stat.el.diff --]
[-- Type: text/x-patch, Size: 927 bytes --]

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"

[-- Attachment #3: Type: text/plain, Size: 23 bytes --]


-- 
Hiroshi Fujishima