Mercurial > emacs
changeset 105274:506031e65b65
* spam-stat.el (spam-stat-load): Fix typo in message.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 29 Sep 2009 02:20:21 +0000 |
| parents | b9edaeacd0e7 |
| children | b78ceb253d15 |
| files | lisp/gnus/ChangeLog lisp/gnus/spam-stat.el |
| diffstat | 2 files changed, 14 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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 ()