--- Text/Quoted.pm 2002-12-17 16:42:17.000000000 +0000
+++ /Text/Quoted.pm.new 2003-09-22 12:25:01.000000000 +0100
@@ -155,7 +155,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,})/;