You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by gb...@apache.org on 2019/05/05 12:04:24 UTC
svn commit: r1858680 - in /spamassassin:
branches/3.4/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm
trunk/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm
Author: gbechis
Date: Sun May 5 12:04:24 2019
New Revision: 1858680
URL: http://svn.apache.org/viewvc?rev=1858680&view=rev
Log:
check also urls that are only on plain/text part
fix #bz 7086
Modified:
spamassassin/branches/3.4/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm
spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm
Modified: spamassassin/branches/3.4/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm
URL: http://svn.apache.org/viewvc/spamassassin/branches/3.4/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm?rev=1858680&r1=1858679&r2=1858680&view=diff
==============================================================================
--- spamassassin/branches/3.4/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm (original)
+++ spamassassin/branches/3.4/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm Sun May 5 12:04:24 2019
@@ -505,7 +505,7 @@ sub check_uri_local_bl {
next unless $info->{hosts};
# look for W3 links only
- next unless (defined $info->{types}->{a});
+ next unless (defined $info->{types}->{a} || defined $info->{types}->{parsed});
while (my($host, $domain) = each %{$info->{hosts}}) {
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm?rev=1858680&r1=1858679&r2=1858680&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URILocalBL.pm Sun May 5 12:04:24 2019
@@ -365,7 +365,7 @@ sub check_uri_local_bl {
next unless $info->{hosts};
# look for W3 links only
- next unless defined $info->{types}->{a};
+ next unless defined $info->{types}->{a} || defined $info->{types}->{parsed};
my %hosts = %{$info->{hosts}}; # evade hash reset by copy
while (my($host, $domain) = each %hosts) {