# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1254190821 0
# Node ID 506031e65b65cbf8f22fa5addc89b17378c14228
# Parent  b9edaeacd0e759d40eae224da32177c8400c214a
* spam-stat.el (spam-stat-load): Fix typo in message.

diff -r b9edaeacd0e7 -r 506031e65b65 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Sep 29 02:19:06 2009 +0000
+++ b/lisp/gnus/ChangeLog	Tue Sep 29 02:20:21 2009 +0000
@@ -1,3 +1,7 @@
+2009-09-29  Juanma Barranquero  <lekktu@gmail.com>
+
+	* spam-stat.el (spam-stat-load): Fix typo in message.
+
 2009-09-23  Juanma Barranquero  <lekktu@gmail.com>
 
 	* gnus-art.el (gnus-article-encrypt-body):
diff -r b9edaeacd0e7 -r 506031e65b65 lisp/gnus/spam-stat.el
--- a/lisp/gnus/spam-stat.el	Tue Sep 29 02:19:06 2009 +0000
+++ b/lisp/gnus/spam-stat.el	Tue Sep 29 02:20:21 2009 +0000
@@ -180,7 +180,7 @@
 
 (defcustom spam-stat-score-buffer-user-functions nil
   "List of additional scoring functions.
-Called  one by one on the buffer. 
+Called  one by one on the buffer.
 
 If all of these functions return non-nil answers, these numerical
 answers are added to the computed spam stat score on the buffer.  If
@@ -442,12 +442,12 @@
                (null spam-stat-last-saved-at)
                (not (equal spam-stat-last-saved-at
                            (nth 5 (file-attributes spam-stat-file)))))
-           (progn 
+           (progn
              (load-file spam-stat-file)
              (setq spam-stat-dirty nil
-                   spam-stat-last-saved-at 
+                   spam-stat-last-saved-at
                    (nth 5 (file-attributes spam-stat-file)))))
-          (t (message "Spam stat file not loaded: no change in disk..")))))
+          (t (message "Spam stat file not loaded: no change in disk.")))))
 
 (defun spam-stat-to-hash-table (entries)
   "Turn list ENTRIES into a hash table and store as `spam-stat'.
@@ -503,11 +503,11 @@
 (defun spam-stat-score-buffer ()
   "Return a score describing the spam-probability for this buffer.
 Add user supplied modifications if supplied."
-  (interactive) ; helps in debugging. 
+  (interactive) ; helps in debugging.
   (setq spam-stat-score-data (spam-stat-buffer-words-with-scores))
   (let* ((probs (mapcar 'cadr spam-stat-score-data))
 	 (prod (apply #'* probs))
-	 (score0 
+	 (score0
 	  (/ prod (+ prod (apply #'* (mapcar #'(lambda (x) (- 1 x))
 					     probs)))))
 	 (score1s
@@ -517,17 +517,17 @@
 	    (error nil)))
 	 (ans
 	  (if score1s (+ score0 score1s) score0)))
-    (when (interactive-p) 
+    (when (interactive-p)
       (message "%S" ans))
     ans))
 
 (defun spam-stat-score-buffer-user (&rest args)
   (let* ((scores
-	  (mapcar 
-	   (lambda (fn) 
+	  (mapcar
+	   (lambda (fn)
 	     (apply fn args))
 	   spam-stat-score-buffer-user-functions)))
-    (if (memq nil scores) nil 
+    (if (memq nil scores) nil
       (apply #'+ scores))))
 
 (defun spam-stat-split-fancy ()