Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv27741
Modified Files:
MailParse.pm
Log Message:
reduce unneccesary colorization work in headers
Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.109
retrieving revision 1.110
diff -C2 -d -r1.109 -r1.110
*** MailParse.pm 10 Apr 2003 22:22:47 -0000 1.109
--- MailParse.pm 11 Apr 2003 01:20:12 -0000 1.110
***************
*** 1108,1117 ****
print "Header ($header) ($argument)\n" if ($self->{debug});
!
! # Remove over-reading
! $self->{ut__} = '';
!
! # Qeueue just this header for colorization
! $self->{ut__} = splitline("$header: $argument\015\012", $encoding);
# After a discussion with Tim Peters and some looking at emails
--- 1108,1119 ----
print "Header ($header) ($argument)\n" if ($self->{debug});
!
! if ($self->{color__} {
! # Remove over-reading
! $self->{ut__} = '';
!
! # Qeueue just this header for colorization
! $self->{ut__} = splitline("$header: $argument\015\012", $encoding);
! }
# After a discussion with Tim Peters and some looking at emails
***************
*** 1280,1284 ****
return $line;
! }
# GETTERS/SETTERS
--- 1282,1286 ----
return $line;
! }
# GETTERS/SETTERS
|
