REORG Delete everything that's not innduct or build system or changed for innduct

[innduct.git] / samples / filter.tcl

diff --git a/samples/filter.tcl b/samples/filter.tcl
deleted file mode 100644 (file)
index 7338884..0000000
--- a/samples/filter.tcl
+++ /dev/null
@@ -1,19 +0,0 @@
-# -*- tcl -*-
-#
-# $Revision: 4171 $
-#
-# A TCL procedure that will be run over every article. See doc/hook-tcl
-# for more details.
-
-proc filter_news {} {
-#  global o Headers
-#  set sum [checksum_article]
-#  puts $o "$Headers(Message-ID) $sum"
-#  set newsgroups [split $Headers(Newsgroups) ,]
-#  foreach i $newsgroups {
-#    if {$i=="alt.test" && [string match "*heiney@pa.dec.com*" $Headers(From)]} {
-#      return "dont like alt.test from heiney"
-#    }
-#  }
-  return "accept"
-}