From: yamaoka <yamaoka>
Date: Sat, 24 Jan 2004 14:06:45 +0000 (+0000)
Subject: Synch to No Gnus 200401241342.
X-Git-Tag: t-gnus-6_17_4-quimby-~1100
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6331c9cb7c20ca64d7119ad01dc5d8cf35503bc2;p=elisp%2Fgnus.git-

Synch to No Gnus 200401241342.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f76a41..1136dc7 100644
--- 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
--- 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"