|
From: <ssc...@us...> - 2003-08-20 06:25:15
|
Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv31641
Modified Files:
MailParse.pm
Log Message:
make decode_string properly case-insensitive
Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.155
retrieving revision 1.156
diff -C2 -d -r1.155 -r1.156
*** MailParse.pm 20 Aug 2003 02:08:33 -0000 1.155
--- MailParse.pm 20 Aug 2003 06:05:59 -0000 1.156
***************
*** 1336,1344 ****
while ( $mystring =~ /=\?[\w-]+\?(B|Q)\?(.*?)\?=/ig ) {
! if ($1 eq "B") {
$decode_it = decode_base64( $2 );
$mystring =~ s/=\?[\w-]+\?B\?(.*?)\?=/$decode_it/i;
} else {
! if ($1 eq "Q") {
$decode_it = $2;
$decode_it =~ s/\_/=20/g;
--- 1336,1344 ----
while ( $mystring =~ /=\?[\w-]+\?(B|Q)\?(.*?)\?=/ig ) {
! if ($1 eq "B" || $1 eq "b") {
$decode_it = decode_base64( $2 );
$mystring =~ s/=\?[\w-]+\?B\?(.*?)\?=/$decode_it/i;
} else {
! if ($1 eq "Q" || $1 eq "q") {
$decode_it = $2;
$decode_it =~ s/\_/=20/g;
***************
*** 1455,1458 ****
--- 1455,1459 ----
if ( $header =~ /^Subject$/i ) {
+
$prefix = 'subject';
$argument = $self->decode_string( $argument );
|