mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-19 08:13:21 +00:00
1) Fix bug: check_for_faraway_charset_in_headers() does nothing
2) Add missing charsets into decode_mime_bit()
This commit is contained in:
parent
913e319765
commit
d5d63dd20e
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=55271
@ -7,7 +7,7 @@
|
||||
|
||||
PORTNAME= Mail-SpamAssassin
|
||||
PORTVERSION= 2.01
|
||||
PORTREVISION= 5
|
||||
PORTREVISION= 6
|
||||
CATEGORIES= mail perl5
|
||||
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
|
||||
MASTER_SITE_SUBDIR= Mail
|
||||
|
@ -0,0 +1,21 @@
|
||||
--- 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
|
||||
@@ -688,10 +688,17 @@
|
||||
|
||||
sub check_for_faraway_charset_in_headers {
|
||||
my ($self) = @_;
|
||||
+ my $hdr;
|
||||
|
||||
my @locales = $self->get_my_locales();
|
||||
for my $h (qw(From Subject)) {
|
||||
- my $hdr = $self->get($h);
|
||||
+# Can't use just get() because it un-mime header
|
||||
+ my @hdrs = $self->{msg}->get_header ($h);
|
||||
+ if ($#hdrs >= 0) {
|
||||
+ $hdr = join (" ", @hdrs);
|
||||
+ } else {
|
||||
+ $hdr = '';
|
||||
+ }
|
||||
while ($hdr =~ /=\?(.+?)\?.\?.*?\?=/g) {
|
||||
Mail::SpamAssassin::Locales::is_charset_ok_for_locales($1, @locales)
|
||||
or return 1;
|
@ -0,0 +1,11 @@
|
||||
--- lib/Mail/SpamAssassin/PerMsgStatus.pm.bak Thu Jan 24 05:39:15 2002
|
||||
+++ lib/Mail/SpamAssassin/PerMsgStatus.pm Tue Feb 26 19:08:32 2002
|
||||
@@ -788,6 +788,8 @@
|
||||
if ($encoding =~ /^US-ASCII$/i
|
||||
|| $encoding =~ /^ISO-8859-\d+$/i
|
||||
|| $encoding =~ /^UTF-8$/i
|
||||
+ || $encoding =~ /^KOI8-\w$/i
|
||||
+ || $encoding =~ /^WINDOWS-125\d$/i
|
||||
)
|
||||
{
|
||||
# keep 8-bit stuff. forget mapping charsets though
|
Loading…
Reference in New Issue
Block a user