From 6331c9cb7c20ca64d7119ad01dc5d8cf35503bc2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sat, 24 Jan 2004 14:06:45 +0000 Subject: [PATCH] Synch to No Gnus 200401241342. --- lisp/ChangeLog | 5 +++++ lisp/spam-stat.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) 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 (tiny change) + + * spam-stat.el (spam-stat-reduce-size): Set spam-stat-dirty. + (spam-stat-save): Accept prefix argument. + 2004-01-23 Paul Jarc * 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" -- 1.7.10.4