/[emacs]/emacs/lisp/gnus/spam-stat.el
ViewVC logotype

Diff of /emacs/lisp/gnus/spam-stat.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by kfstorm, Wed Feb 9 15:50:37 2005 UTC revision 1.6 by lektu, Tue Jun 14 15:17:00 2005 UTC
# Line 370  Use `spam-stat-ngood', `spam-stat-nbad', Line 370  Use `spam-stat-ngood', `spam-stat-nbad',
370     (lambda (word count)     (lambda (word count)
371       (let ((entry (gethash word spam-stat)))       (let ((entry (gethash word spam-stat)))
372         (if (not entry)         (if (not entry)
373             (error "This buffer has unknown words in it.")             (error "This buffer has unknown words in it")
374           (spam-stat-set-good entry (- (spam-stat-good entry) count))           (spam-stat-set-good entry (- (spam-stat-good entry) count))
375           (spam-stat-set-bad entry (+ (spam-stat-bad entry) count))           (spam-stat-set-bad entry (+ (spam-stat-bad entry) count))
376           (spam-stat-set-score entry (spam-stat-compute-score entry))           (spam-stat-set-score entry (spam-stat-compute-score entry))
# Line 386  Use `spam-stat-ngood', `spam-stat-nbad', Line 386  Use `spam-stat-ngood', `spam-stat-nbad',
386     (lambda (word count)     (lambda (word count)
387       (let ((entry (gethash word spam-stat)))       (let ((entry (gethash word spam-stat)))
388         (if (not entry)         (if (not entry)
389             (error "This buffer has unknown words in it.")             (error "This buffer has unknown words in it")
390           (spam-stat-set-good entry (+ (spam-stat-good entry) count))           (spam-stat-set-good entry (+ (spam-stat-good entry) count))
391           (spam-stat-set-bad entry (- (spam-stat-bad entry) count))           (spam-stat-set-bad entry (- (spam-stat-bad entry) count))
392           (spam-stat-set-score entry (spam-stat-compute-score entry))           (spam-stat-set-score entry (spam-stat-compute-score entry))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26