*** html-trap.procmail 2004-03-01 06:10:03-08 1.141
--- html-trap.procmail 2004-03-11 16:28:34-08
***************
*** 921,928 ****
$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 \"$filen\".\n"; #\
$filen =~ s/\s{10,}/ (many spaces) /; #\
if (!$poisoned) { #\
print "\n\n--$rawbdry\n"; #\
--- 921,928 ----
$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 zipped \"$filen\".\n"; #\
$filen =~ s/\s{10,}/ (many spaces) /; #\
if (!$poisoned) { #\
print "\n\n--$rawbdry\n"; #\