CVS: mhonarc/MHonArc/lib mhtxtplain.pl,2.38,2.39

Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv4031

Modified Files:
	mhtxtplain.pl 
Log Message:
[bug #4387]: Fixed.  Check added in break_line() code if quote chars
exceed maxwidth.


Index: mhtxtplain.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhtxtplain.pl,v
retrieving revision 2.38
retrieving revision 2.39
diff -C2 -r2.38 -r2.39
*** mhtxtplain.pl	4 Feb 2003 23:31:20 -0000	2.38
--- mhtxtplain.pl	20 Jul 2003 20:52:38 -0000	2.39
***************
*** 446,450 ****
  	my $ret='';
  
! 	# Compress '>'s to have not spacing, makes latter patterns
  	# simplier.
  	$$data =~ s/(?:^|\G(${HQuoteChars}))[ ]?/$1/gm;
--- 446,450 ----
  	my $ret='';
  
! 	# Compress '>'s to have no spacing, makes latter patterns
  	# simplier.
  	$$data =~ s/(?:^|\G(${HQuoteChars}))[ ]?/$1/gm;
***************
*** 582,586 ****
      if ($str =~ s/^([ ]?(?:$QuoteChars[ ]?)+)//o) {
  	$q = $1;
! 	$width -= length($q);
      }
  
--- 582,591 ----
      if ($str =~ s/^([ ]?(?:$QuoteChars[ ]?)+)//o) {
  	$q = $1;
! 	if (length($q) >= $width) {
! 	    # too many quote chars, so treat line as-is
! 	    $str = $q . $str;
! 	} else {
! 	    $width -= length($q);
! 	}
      }
  

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV