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);