diff options
| -rw-r--r-- | perllib/Utils/Email.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/Utils/Email.pm b/perllib/Utils/Email.pm index 5e3df0205..ded14874e 100644 --- a/perllib/Utils/Email.pm +++ b/perllib/Utils/Email.pm @@ -14,7 +14,7 @@ sub test_dmarc { my @answers = _send(Net::DNS::Resolver->new, "_dmarc.$domain", 'TXT'); @answers = map { $_->txtdata } @answers; my $dmarc = join(' ', @answers); - return unless $dmarc =~ /p *= *reject/; + return unless $dmarc =~ /p *= *(reject|quarantine)/; return 1; } |