Akismet is a spam filtering service which appears to work quite well. Have added some code on the wiki to use it from Tcl.