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