From: <ssc...@us...> - 2003-03-29 00:18:51
|
Update of /cvsroot/popfile/engine/Classifier In directory sc8-pr-cvs1:/tmp/cvs-serv10382 Modified Files: MailParse.pm Log Message: fix merge glitch in last revision Index: MailParse.pm =================================================================== RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v retrieving revision 1.101 retrieving revision 1.102 diff -C2 -d -r1.101 -r1.102 *** MailParse.pm 29 Mar 2003 00:17:08 -0000 1.101 --- MailParse.pm 29 Mar 2003 00:18:47 -0000 1.102 *************** *** 820,826 **** } - # Parse the last header - - ($mime,$encoding) = $self->parse_header($header,$argument,$mime,$encoding); $splitline =~ s/\t/ /g; --- 820,823 ---- *************** *** 833,836 **** --- 830,838 ---- if ( $line =~ /^(\r\n|\r|\n)/) { + + # Parse the last header + + ($mime,$encoding) = $self->parse_header($header,$argument,$mime,$encoding); + $self->{in_headers__} = 0; print "Header parsing complete.\n" if $self->{debug}; |