aliens/tekuti
1
0
Fork 0
Code Activity

Fix online classifier update

Browse source
This commit is contained in:
Andy Wingo 2022-11-29 10:16:30 +01:00
parent ba9a560f01
commit 17905ace44
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tekuti/classifier.scm
View file

@ -283,13 +283,19 @@
(assq-ref index 'master))))
(let ((removed-features (count-features removed))
(added-features (count-features added)))
;; If a comment passes the spam filter, it gets added, and is
;; presumed legitimate. It could then be reverted, in which
;; case we should remove its features from the legitimate count
;; and add them to the bogus count.
(hash-for-each (lambda (k v)
(remove-feature! legit-features k v)
(add-feature! bogus-features k v))
removed-features)
(hash-for-each (lambda (k v)
(add-feature! legit-features k v)
(remove-feature! bogus-features k v))
;; Asymmetry with removed-features; the
;; comment wasn't previously marked bogus, so
;; we just add its features to the legit set.
(add-feature! legit-features k v))
added-features)
(update-bogosities! bogosities removed-features
legit-features bogus-features)