perl-unicode

[PATCH] Encode::MIME::Header

2002-05-19 19:39:38
charsets can include "_" in its name. Here's a patch.

--
Tatsuhiko Miyagawa <miyagawa(_at_)edge(_dot_)co(_dot_)jp>


--- Header.pm~  Sun May  5 01:41:30 2002
+++ Header.pm   Mon May 20 11:34:39 2002
@@ -51,7 +51,7 @@
     $str =~
        s{
            =\?                  # begin encoded word
-               ([0-9A-Za-z\-]+) # charset (encoding)
+               ([0-9A-Za-z\-_]+) # charset (encoding)
                \?([QqBb])\?     # delimiter
                (.*?)            # Base64-encodede contents
                \?=              # end encoded word      

<Prev in Thread] Current Thread [Next in Thread>