Subject: | Fails to match some supercite email quoting |
Text::Autoformat fails to match supercite quotes in the form
Show quoted text
Randy1> some quoted text here
Some unquoted text here
because it doesn't match digits.
The above patch against 1.12 fixes that.
--- /usr/local/perl580/lib/site_perl/5.8.0/Text/Autoformat.pm 2003-05-28 00:34:38.000000000 +0100
+++ Autoformat.pm 2003-09-22 15:31:47.000000000 +0100
@@ -82,7 +82,7 @@
# BITS OF A TEXT LINE
my $quotechar = qq{[!#%=|:]};
-my $quotechunk = qq{(?:$quotechar(?![a-z])|[a-z]*>+)};
+my $quotechunk = qq{(?:$quotechar(?![a-z0-9])|[a-z0-9]*>+)};
my $quoter = qq{(?:(?i)(?:$quotechunk(?:[ \\t]*$quotechunk)*))};
my $separator = q/(?:[-_]{2,}|[=#*]{3,}|[+~]{4,})/;