*** empty log message ***

[elisp/flim.git] / mime-def.el

diff --git a/mime-def.el b/mime-def.el
index 25002ef..113c548 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -135,8 +135,14 @@ If method is nil, this field will not be encoded."
 (defconst mime-token-regexp
   (concat "[^" mime-tspecial-char-list "\000-\040]+"))
 (defconst mime-attribute-char-regexp
-  (concat "[^" mime-tspecial-char-list "\000-\040"
+  (concat "[^" mime-tspecial-char-list
+         "*'%"                         ; introduced in RFC 2231.
+         "\000-\040"
+         "]"))
+(defconst mime-non-attribute-char-regexp
+  (concat "[" mime-tspecial-char-list
          "*'%"                         ; introduced in RFC 2231.
+         "\000-\040\177-\377"          ; non-printable, non-US-ASCII.
          "]"))
 
 (defconst mime-charset-regexp
@@ -144,7 +150,8 @@ If method is nil, this field will not be encoded."
          "*'%"                         ; should not include "%"?
          "]+"))
 
-;; More precisely, length of "[A-Za-z]+" is limited to at most 8.
+;; More precisely, length of each "[A-Za-z]+" is limited to at most 8.
+;; See RFC 3066 "Tags for the Identification of Languages".
 ;; (defconst mime-language-regexp "[A-Za-z]+\\(-[A-Za-z]+\\)*")
 (defconst mime-language-regexp "[-A-Za-z]+")