Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv31613
Modified Files:
readmail.pl
Log Message:
* Corrected some logic dealing with malformed multipart data.
Index: readmail.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/readmail.pl,v
retrieving revision 2.27
retrieving revision 2.28
diff -C2 -r2.27 -r2.28
*** readmail.pl 31 Dec 2002 20:01:37 -0000 2.27
--- readmail.pl 1 Jan 2003 07:29:11 -0000 2.28
***************
*** 603,616 ****
$start_pos = 0;
}
- if (!$have_end) {
- warn qq/Warning: No end boundary delimiter found in /,
- qq/message body\n/;
- push(@parts, $$body);
- $parts[$#parts] =~ s/^\r//;
- $$body = "";
- }
if ($found) {
! # discard front-matter
! shift(@parts);
} else {
# no boundary separators in message!
--- 603,617 ----
$start_pos = 0;
}
if ($found) {
! if (!$have_end) {
! warn qq/Warning: No end boundary delimiter found in /,
! qq/message body\n/;
! push(@parts, $$body);
! $parts[$#parts] =~ s/^\r//;
! $$body = "";
! } else {
! # discard front-matter
! shift(@parts);
! }
} else {
# no boundary separators in message!
---------------------------------------------------------------------
To sign-off this list, send email to [EMAIL PROTECTED] with the
message text UNSUBSCRIBE MHONARC-DEV
