Fix situation when legal hotmail headers treated as fake ones
This commit is contained in:
parent
c5027b55e1
commit
d03e331624
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=55472
@ -7,7 +7,7 @@
|
||||
|
||||
PORTNAME= Mail-SpamAssassin
|
||||
PORTVERSION= 2.01
|
||||
PORTREVISION= 7
|
||||
PORTREVISION= 8
|
||||
CATEGORIES= mail perl5
|
||||
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
|
||||
MASTER_SITE_SUBDIR= Mail
|
||||
|
@ -1,5 +1,14 @@
|
||||
--- lib/Mail/SpamAssassin/EvalTests.pm.bak Fri Jan 25 07:36:02 2002
|
||||
+++ lib/Mail/SpamAssassin/EvalTests.pm Tue Feb 26 19:17:43 2002
|
||||
--- lib/Mail/SpamAssassin/EvalTests.pm.orig Fri Jan 25 07:36:02 2002
|
||||
+++ lib/Mail/SpamAssassin/EvalTests.pm Sun Mar 3 13:02:37 2002
|
||||
@@ -115,7 +115,7 @@
|
||||
my $rcvd = $self->get ('Received');
|
||||
$rcvd =~ s/\s+/ /gs; # just spaces, simplify the regexp
|
||||
|
||||
- my $ip = $self->get ('X-Originating-Ip');
|
||||
+ my $ip = $self->get ('X-Originating-IP');
|
||||
if ($ip =~ /\d+\.\d+\.\d+\.\d+/) { $ip = 1; } else { $ip = 0; }
|
||||
|
||||
# Hotmail formats its received headers like this:
|
||||
@@ -688,10 +688,17 @@
|
||||
|
||||
sub check_for_faraway_charset_in_headers {
|
||||
|
Loading…
Reference in New Issue
Block a user