[popfile-commit] engine/Classifier MailParse.pm,1.109,1.110

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

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