[popfile-commit] engine/Classifier MailParse.pm,1.146,1.147

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv11353/Classifier

Modified Files:
	MailParse.pm 
Log Message:
Someone left a debugging print statement in MailParse.pm... oops.

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.146
retrieving revision 1.147
diff -C2 -d -r1.146 -r1.147
*** MailParse.pm	18 Jul 2003 05:08:56 -0000	1.146
--- MailParse.pm	21 Jul 2003 18:49:52 -0000	1.147
***************
*** 1298,1302 ****
      while ( $mystring =~ /=\?[\w-]+\?(B|Q)\?(.*?)\?=/ig ) {
          if ($1 eq "B") {
-             print $2;
              $decode_it = decode_base64( $2 );
              $mystring =~ s/=\?[\w-]+\?B\?(.*?)\?=/$decode_it/i;
--- 1298,1301 ----