Changed SpamHeader to accept SpamNoFilterRegexp
authorMikal Kolbein Gule <m.k.gule@usit.uio.no>
Tue, 4 Jun 2013 12:11:35 +0000 (14:11 +0200)
committerMikal Kolbein Gule <m.k.gule@usit.uio.no>
Tue, 4 Jun 2013 12:11:35 +0000 (14:11 +0200)
local/lib/RT/Interface/Email/Filter/SpamHeader.pm

index 3adc458..0b8a0fe 100755 (executable)
@@ -49,10 +49,12 @@ sub GetCurrentUser {
     my $head = $Message->head;
 
     if (defined @RT::SpamNoFilter) {
-       my @ToObjs = Mail::Address->parse( $head->get('To') );
+       my $plain_regexp = "";
+       if (defined $RT::SpamNoFilterRegexp) {$plain_regexp = $RT::SpamNoFilterRegexp}     
+       my @ToObjs = Mail::Address->parse( $head->get('To') );
        my @CcObjs = Mail::Address->parse( $head->get('Cc') );
        my @BccObjs = Mail::Address->parse( $head->get('Envelope-To') );
-        my $regexp = ("^(".(join "|",map quotemeta,@RT::SpamNoFilter).")\$");
+        my $regexp = ("^($plain_regexp".(join "|",map quotemeta,@RT::SpamNoFilter).")\$");
        for (@ToObjs, @CcObjs, @BccObjs) {
             if ($_->address =~ m/$regexp/i) {
                $RT::Logger->info("SpamHeader: Accepting message for nonfiltered list - ".$_->address);