Mercurial > emacs
comparison lisp/gnus/spam-stat.el @ 63419:025ea93d2596
(spam-stat-buffer-change-to-spam, spam-stat-buffer-change-to-non-spam):
Follow error conventions.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 14 Jun 2005 15:17:00 +0000 |
parents | aac0a33f5772 |
children | 18a818a2ee7c |
comparison
equal
deleted
inserted
replaced
63418:80595c2e2d74 | 63419:025ea93d2596 |
---|---|
368 spam-stat-ngood (1- spam-stat-ngood)) | 368 spam-stat-ngood (1- spam-stat-ngood)) |
369 (maphash | 369 (maphash |
370 (lambda (word count) | 370 (lambda (word count) |
371 (let ((entry (gethash word spam-stat))) | 371 (let ((entry (gethash word spam-stat))) |
372 (if (not entry) | 372 (if (not entry) |
373 (error "This buffer has unknown words in it.") | 373 (error "This buffer has unknown words in it") |
374 (spam-stat-set-good entry (- (spam-stat-good entry) count)) | 374 (spam-stat-set-good entry (- (spam-stat-good entry) count)) |
375 (spam-stat-set-bad entry (+ (spam-stat-bad entry) count)) | 375 (spam-stat-set-bad entry (+ (spam-stat-bad entry) count)) |
376 (spam-stat-set-score entry (spam-stat-compute-score entry)) | 376 (spam-stat-set-score entry (spam-stat-compute-score entry)) |
377 (puthash word entry spam-stat)))) | 377 (puthash word entry spam-stat)))) |
378 (spam-stat-buffer-words)) | 378 (spam-stat-buffer-words)) |
384 spam-stat-ngood (1+ spam-stat-ngood)) | 384 spam-stat-ngood (1+ spam-stat-ngood)) |
385 (maphash | 385 (maphash |
386 (lambda (word count) | 386 (lambda (word count) |
387 (let ((entry (gethash word spam-stat))) | 387 (let ((entry (gethash word spam-stat))) |
388 (if (not entry) | 388 (if (not entry) |
389 (error "This buffer has unknown words in it.") | 389 (error "This buffer has unknown words in it") |
390 (spam-stat-set-good entry (+ (spam-stat-good entry) count)) | 390 (spam-stat-set-good entry (+ (spam-stat-good entry) count)) |
391 (spam-stat-set-bad entry (- (spam-stat-bad entry) count)) | 391 (spam-stat-set-bad entry (- (spam-stat-bad entry) count)) |
392 (spam-stat-set-score entry (spam-stat-compute-score entry)) | 392 (spam-stat-set-score entry (spam-stat-compute-score entry)) |
393 (puthash word entry spam-stat)))) | 393 (puthash word entry spam-stat)))) |
394 (spam-stat-buffer-words)) | 394 (spam-stat-buffer-words)) |