[popfile-commit] engine/Classifier MailParse.pm,1.155,1.156

[<ssc...@us...>]

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 );