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