[popfile-commit] engine/Classifier MailParse.pm,1.102,1.103

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

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

Modified Files:
	MailParse.pm 
Log Message:
clear $header and $argument at end of headers

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.102
retrieving revision 1.103
diff -C2 -d -r1.102 -r1.103
*** MailParse.pm	29 Mar 2003 00:18:47 -0000	1.102
--- MailParse.pm	30 Mar 2003 05:21:05 -0000	1.103
***************
*** 835,838 ****
--- 835,842 ----
                      ($mime,$encoding) = $self->parse_header($header,$argument,$mime,$encoding);
                      
+                     # Clear the saved headers
+                     $header   = '';
+                     $argument = '';          
+                                  
                      $self->{in_headers__} = 0;
                      print "Header parsing complete.\n" if $self->{debug};