popfile-commit

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

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

Modified Files:
	MailParse.pm 
Log Message:
Fix problem where email addresses were not showing up in colored display

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.128
retrieving revision 1.129
diff -C2 -d -r1.128 -r1.129
*** MailParse.pm	14 May 2003 09:12:10 -0000	1.128
--- MailParse.pm	21 May 2003 16:05:36 -0000	1.129
***************
*** 1176,1180 ****
          my $color     = $self->{bayes__}->get_color( "header:$header" );
  
!         $self->{ut__} =  "<b><font color=\"$color\">$header</font></b>: $argument\015\012";
      }
  
--- 1176,1184 ----
          my $color     = $self->{bayes__}->get_color( "header:$header" );
  
!         my $fix_argument = $argument;
!         $fix_argument =~ s/</&lt;/g;
!         $fix_argument =~ s/>/&gt;/g;
! 
!         $self->{ut__} =  "<b><font color=\"$color\">$header</font></b>: $fix_argument\015\012";
      }