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};
|
