[popfile-commit] engine/Classifier MailParse.pm,1.126,1.127

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

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

Modified Files:
	MailParse.pm 
Log Message:
restore header colorization HTML character escaping

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.126
retrieving revision 1.127
diff -C2 -d -r1.126 -r1.127
*** MailParse.pm	9 May 2003 00:33:42 -0000	1.126
--- MailParse.pm	11 May 2003 23:24:36 -0000	1.127
***************
*** 1171,1181 ****
      my ($self, $header, $argument, $mime, $encoding) = @_;
  
!     print "Header ($header) ($argument)\n";# if ($self->{debug});
  
      if ( $self->{color__} ) {
          my $color     = $self->{bayes__}->get_color( "header:$header" );
  
!         $self->{ut__} =  "<b><font color=\"$color\">$header</font></b>: $argument\015\012";
! print $self->{ut__};
      }
  
--- 1171,1180 ----
      my ($self, $header, $argument, $mime, $encoding) = @_;
  
!     print "Header ($header) ($argument)\n" if ($self->{debug});
  
      if ( $self->{color__} ) {
          my $color     = $self->{bayes__}->get_color( "header:$header" );
  
!         $self->{ut__} =  "<b><font color=\"$color\">$header</font></b>: " . splitline( $argument . "\015\012", $encoding );        
      }