--- Filter.orig.pm	Tue Apr 20 20:01:37 2004
+++ Filter.pm	Tue Apr 20 20:04:34 2004
@@ -25,7 +25,7 @@
 		     min_length => 20, 
 		     filter_length => 20,
 			 %params, 
-			 keys => {}
+			 contents => {}
 		  }, $class;
 }
 
@@ -52,7 +52,7 @@
 	my $list = $self->{contents};
 	foreach my $add ( @addresses ) {
 		# convert email to SHA1 hash if necessary
-		$add = sha1_base64( $add ) if $add =~ /@/o;
+		#$add = sha1_base64( $add ) if $add =~ /@/o;
 		$list->{$add}++;
 	}
 	$self->{reindex_flag} = 1;
@@ -83,7 +83,11 @@
 	# A match occurs if every bit we check is on
 	foreach my $key ( @keys ) {
 		my $mask = $self->_make_bitmask( $key );		
-		push @result, ($mask == ( $mask & $self->{filter} ));
+		#push @result, ($mask == ( $mask & $self->{filter} ));
+
+        my $m = unpack("b*", $mask);
+        push @result, ($m == unpack("b*", ($mask & $self->{filter})));
+        
 	}
 	return ( wantarray() ? @result : $result[0] );
 }