mhonarc-commits
[Top] [All Lists]

CVS: mhonarc/MHonArc/lib readmail.pl,2.27,2.28

2003-01-01 00:29:19
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 majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV