*** html-trap.procmail	2006-01-20 07:29:24-08	1.151
--- html-trap.procmail	2006-09-09 20:23:09-07
***************
*** 1073,1080 ****
  		}	#\
  		$filel = "";	#\
  		foreach $filen (keys %zipf) {	#\
! 		$fn = $filen; $fn =~ s/\s{10,}/ (many spaces) /;	#\
! 		  warn "  Checking archived \"$fn\"\n";	#\
  		  seek(ZIPPOL,0,0);	#\
  		  while (chomp($pol_spec = <ZIPPOL>)) {	#\
  		    $pol_spec =~ s/^\s+//g;	#\
--- 1149,1156 ----
  		}	#\
  		$filel = "";	#\
  		foreach $filen (keys %zipf) {	#\
! 		  $fn = $filen; $fn =~ s/\s{10,}/ (many spaces) /;	#\
! 		  warn "  Checking archived \"$fn\" length " . length($filen) . "\n";	#\
  		  seek(ZIPPOL,0,0);	#\
  		  while (chomp($pol_spec = <ZIPPOL>)) {	#\
  		    $pol_spec =~ s/^\s+//g;	#\
***************
*** 1084,1092 ****
  		    $pol_spec =~ s/\*/.*/g;	#\
  		    $pol_spec =~ s/\?\?/?./g;	#\
  		    $pol_spec =~ s/([^\(]|^)\?/$1./g;	#\
! 		    warn "   Checking against \"$pol_spec\"\n" if $ENV{"DEBUG"};	#\
! 		    if ($filen =~ /^${pol_spec}$/i) {	#\
! 		      warn "   Trapped archived \"$fn\".\n";	#\
  		      if (!$poisoned) {	#\
  		        print "\n\n--$newbdry\n";	#\
  		        print "Content-Type: TEXT/PLAIN;\n";	#\
--- 1160,1168 ----
  		    $pol_spec =~ s/\*/.*/g;	#\
  		    $pol_spec =~ s/\?\?/?./g;	#\
  		    $pol_spec =~ s/([^\(]|^)\?/$1./g;	#\
! 		    warn "   Checking against \"$pol_spec\", maxlen 250\n" if $ENV{"DEBUG"};	#\
! 		    if (($filen =~ /^${pol_spec}$/i) || length($filen) > 250) {	#\
! 		      warn "   Trapped archived \"$fn\" length " . length($filen) . ".\n";	#\
  		      if (!$poisoned) {	#\
  		        print "\n\n--$newbdry\n";	#\
  		        print "Content-Type: TEXT/PLAIN;\n";	#\