mhonarc-commits
[Top] [All Lists]

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

2002-11-02 13:26:01
Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv16765

Modified Files:
	mhtxtplain.pl 
Log Message:
* Monospaced font now used by default for all chunks of format=flowed
  data.  The "nonfixed" option can be used to get default font rendering.


Index: mhtxtplain.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhtxtplain.pl,v
retrieving revision 2.27
retrieving revision 2.28
diff -C2 -r2.27 -r2.28
*** mhtxtplain.pl	30 Oct 2002 06:14:11 -0000	2.27
--- mhtxtplain.pl	2 Nov 2002 20:25:56 -0000	2.28
***************
*** 284,302 ****
  
      my $quote_style = Q_FIXED;
!     if ($textformat eq 'flowed') {
! 	$quote_style = Q_FLOWED;
  	$startq = ($css_class) ? qq|<blockquote class="$css_class">| :
  				 $StartFlowedQuote;
  	$endq   = $EndFlowedQuote;
! 	$startfixq = $StartFixedQuote;
! 	$endfixq   = $EndFixedQuote;
! 
!     } elsif ($args =~ /\bfancyquote\b/i) {
! 	$quote_style = Q_FANCY;
! 	$startq = ($css_class) ? qq|<blockquote class="$css_class">| :
! 				 $StartFlowedQuote;
! 	$endq   = $EndFlowedQuote;
! 	$startfixq = $StartFixedQuote;
! 	$endfixq   = $EndFixedQuote;
  
      } elsif ($args =~ /\bquote\b/i) {
--- 284,297 ----
  
      my $quote_style = Q_FIXED;
!     my $fancyquote = $args =~ /\bfancyquote\b/i;
!     if ($fancyquote || ($textformat eq 'flowed')) {
! 	$quote_style = $fancyquote ? Q_FANCY : Q_FLOWED;
  	$startq = ($css_class) ? qq|<blockquote class="$css_class">| :
  				 $StartFlowedQuote;
  	$endq   = $EndFlowedQuote;
! 	if (!$nonfixed) {
! 	    $startfixq = $StartFixedQuote;
! 	    $endfixq   = $EndFixedQuote;
! 	}
  
      } elsif ($args =~ /\bquote\b/i) {
***************
*** 377,382 ****
  			     && ($para =~ /\n\Z/))) {
  			# flowed format
! 			$para =~ s/(^|[^ ])(\n)/$1<br>$2/mg;
! 			$chunk .= $para;
  
  		    } else {
--- 372,383 ----
  			     && ($para =~ /\n\Z/))) {
  			# flowed format
! 			$para =~ s/^(|.*[^ ])(\n)(?!\Z)/
! 				   ($keepspace ? &preserve_space($1) : $1) .
! 				   '<br>'.$2/mgex;
! 			if ($nonfixed) {
! 			    $chunk .= $para;
! 			} else {
! 			    $chunk .= '<tt>'.$para.'</tt>';
! 			}
  
  		    } else {

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