Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

* spam-stat.el (spam-stat-load): Fix typo in message.

Browse source
This commit is contained in:
Juanma Barranquero 2009-09-29 02:20:21 +00:00
parent baf0cb84bf
commit 0577a4301d
2 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -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):

20
lisp/gnus/spam-stat.el
View file

@ -180,7 +180,7 @@ no effect when spam-stat is invoked through spam.el."
(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 @@ spam-stat (spam-stat-to-hash-table '(" spam-stat-ngood spam-stat-nbad))
(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 @@ where DIFF is the difference between SCORE and 0.5."
(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 @@ Add user supplied modifications if supplied."
(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 ()