From: shuhei <shuhei>
Date: Sat, 28 Apr 2001 22:55:34 +0000 (+0000)
Subject: (mime-charset-regexp): Updated for RFC2231.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=059a631bad387767cc457e5a3c2236fe00dabc1a;p=elisp%2Fflim.git

(mime-charset-regexp): Updated for RFC2231.
---

diff --git a/mime-def.el b/mime-def.el
index a77f014..682d445 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -139,10 +139,15 @@ If method is nil, this field will not be encoded."
 	  "*'%"				; introduced in RFC 2231.
 	  "]"))
 
-(defconst mime-charset-regexp mime-token-regexp)
+(defconst mime-charset-regexp
+  (concat "[^" mime-tspecial-char-list "\000-\040"
+	  "*'%"				; should not include "%"?
+	  "]+"))
+
 ;; More precisely, length of "[A-Za-z]+" is limited to at most 8.
 ;; (defconst mime-language-regexp "[A-Za-z]+\\(-[A-Za-z]+\\)*")
 (defconst mime-language-regexp "[-A-Za-z]+")
+
 (defconst mime-encoding-regexp mime-token-regexp)