5 # A TCL procedure that will be run over every article. See doc/hook-tcl
10 # set sum [checksum_article]
11 # puts $o "$Headers(Message-ID) $sum"
12 # set newsgroups [split $Headers(Newsgroups) ,]
13 # foreach i $newsgroups {
14 # if {$i=="alt.test" && [string match "*heiney@pa.dec.com*" $Headers(From)]} {
15 # return "dont like alt.test from heiney"