Index: emacs/lisp/gnus/spam-stat.el
diff -c emacs/lisp/gnus/spam-stat.el:1.5 emacs/lisp/gnus/spam-stat.el:1.6
*** emacs/lisp/gnus/spam-stat.el:1.5 Wed Feb 9 15:50:37 2005
--- emacs/lisp/gnus/spam-stat.el Tue Jun 14 15:17:00 2005
***************
*** 370,376 ****
(lambda (word count)
(let ((entry (gethash word spam-stat)))
(if (not entry)
! (error "This buffer has unknown words in it.")
(spam-stat-set-good entry (- (spam-stat-good entry) count))
(spam-stat-set-bad entry (+ (spam-stat-bad entry) count))
(spam-stat-set-score entry (spam-stat-compute-score entry))
--- 370,376 ----
(lambda (word count)
(let ((entry (gethash word spam-stat)))
(if (not entry)
! (error "This buffer has unknown words in it")
(spam-stat-set-good entry (- (spam-stat-good entry) count))
(spam-stat-set-bad entry (+ (spam-stat-bad entry) count))
(spam-stat-set-score entry (spam-stat-compute-score entry))
***************
*** 386,392 ****
(lambda (word count)
(let ((entry (gethash word spam-stat)))
(if (not entry)
! (error "This buffer has unknown words in it.")
(spam-stat-set-good entry (+ (spam-stat-good entry) count))
(spam-stat-set-bad entry (- (spam-stat-bad entry) count))
(spam-stat-set-score entry (spam-stat-compute-score entry))
--- 386,392 ----
(lambda (word count)
(let ((entry (gethash word spam-stat)))
(if (not entry)
! (error "This buffer has unknown words in it")
(spam-stat-set-good entry (+ (spam-stat-good entry) count))
(spam-stat-set-bad entry (- (spam-stat-bad entry) count))
(spam-stat-set-score entry (spam-stat-compute-score entry))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
