Skip Menu |

This queue is for tickets about the Text-Autoformat CPAN distribution.

Report information
The Basics
Id: 3837
Status: new
Priority: 0/
Queue: Text-Autoformat

People
Owner: Nobody in particular
Requestors: simon [...] thegestalt.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.12
Fixed in: (no value)



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,})/;