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 [EMAIL PROTECTED] with the
message text UNSUBSCRIBE MHONARC-DEV

Reply via email to