From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/56198 Path: main.gmane.org!not-for-mail From: Hiroshi Fujishima Newsgroups: gmane.emacs.gnus.general Subject: spam-stat-reduce-size doesn't (setq spam-stat-dirty t) Date: Sat, 24 Jan 2004 19:25:37 +0900 Sender: ding-owner@lists.math.uh.edu Message-ID: <7chdyl8wym.fsf@nature.tsukuba.ac.jp> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1074940002 22765 80.91.224.253 (24 Jan 2004 10:26:42 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 24 Jan 2004 10:26:42 +0000 (UTC) Original-X-From: ding-owner+M4738@lists.math.uh.edu Sat Jan 24 11:26:36 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AkKzs-0005zC-00 for ; Sat, 24 Jan 2004 11:26:36 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1AkKzB-00011R-00; Sat, 24 Jan 2004 04:25:53 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1AkKyz-00011J-00 for ding@lists.math.uh.edu; Sat, 24 Jan 2004 04:25:41 -0600 Original-Received: from nature.tsukuba.ac.jp (nature.tsukuba.ac.jp [130.158.36.68]) by justine.libertine.org (Postfix) with SMTP id A6E0B3A004B for ; Sat, 24 Jan 2004 04:25:39 -0600 (CST) Original-Received: (qmail 6033 invoked by uid 1031); 24 Jan 2004 10:25:37 -0000 Original-To: ding@gnus.org User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (usg-unix-v) Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:56198 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:56198 --=-=-= 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. --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=spam-stat.el.diff 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" --=-=-= -- Hiroshi Fujishima --=-=-=--