Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv4203
Modified Files:
mhtxtplain.pl
Log Message:
[bug #4594]: Fixed regex that pre-compresses '>'s.
* Fixed bogus statement in flowed code that had no effect.
Index: mhtxtplain.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhtxtplain.pl,v
retrieving revision 2.39
retrieving revision 2.40
diff -C2 -r2.39 -r2.40
*** mhtxtplain.pl 20 Jul 2003 20:52:38 -0000 2.39
--- mhtxtplain.pl 2 Aug 2003 20:38:14 -0000 2.40
***************
*** 359,362 ****
--- 359,364 ----
$$data = '';
}
+ $chunk =~ s/^[ ]//mg; # remove space-stuffing
+
} else {
# Quoted text: It would be nice to not have
***************
*** 370,377 ****
$$data = '';
}
! $chunk =~ s/^$qd_re//mg;
}
- $chunk =~ s/^$qd ?//mg; # N.B. also takes care of
- # space-stuffing
$chunk =~ s/^-- $/--/mg; # special case for '-- '
--- 372,377 ----
$$data = '';
}
! $chunk =~ s/^$qd ?//mg; # remove quote indi and space-stuffing
}
$chunk =~ s/^-- $/--/mg; # special case for '-- '
***************
*** 448,452 ****
# Compress '>'s to have no spacing, makes latter patterns
# simplier.
! $$data =~ s/(?:^|\G(${HQuoteChars}))[ ]?/$1/gm;
while (length($$data) > 0) {
($qd) = $$data =~ /\A((?:${HQuoteChars})*)/o;
--- 448,452 ----
# Compress '>'s to have no spacing, makes latter patterns
# simplier.
! $$data =~ s/(?:^[ ]?|\G)(${HQuoteChars})[ ]?/$1/gmo;
while (length($$data) > 0) {
($qd) = $$data =~ /\A((?:${HQuoteChars})*)/o;
---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV