X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-def.el;h=8b21591caaca78da3a484b710cb1fd5e64481fdc;hb=dc057a908a10a53dd190af93208142a7319aa9a3;hp=2222a4cc6e8c88b8c2438f242e6faaf859a7b86d;hpb=54a4738f747bed3d0b5ddb6922e560d6f7c6d967;p=elisp%2Fflim.git

diff --git a/mime-def.el b/mime-def.el
index 2222a4c..8b21591 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -25,7 +25,7 @@
 ;;; Code:
 
 (defconst mime-spadework-module-version-string
-  "Chao 1.2.0 - \"Takeda\"")
+  "Chao 1.3.0 - \"Kuinabashi\"")
 
 
 ;;; @ variables
@@ -77,8 +77,29 @@
       (substring string (match-end 0))
     string))
 
+(defsubst regexp-* (regexp)
+  (concat regexp "*"))
 
-;;; @ definitions about MIME
+(defsubst regexp-or (&rest args)
+  (concat "\\(" (mapconcat (function identity) args "\\|") "\\)"))
+
+
+;;; @ about STD 11
+;;;
+
+(defconst std11-quoted-pair-regexp "\\\\.")
+(defconst std11-non-qtext-char-list '(?\" ?\\ ?\r ?\n))
+(defconst std11-qtext-regexp
+  (concat "[^" (char-list-to-string std11-non-qtext-char-list) "]"))
+(defconst std11-quoted-string-regexp
+  (concat "\""
+	  (regexp-*
+	   (regexp-or std11-qtext-regexp std11-quoted-pair-regexp)
+	   )
+	  "\""))
+
+
+;;; @ about MIME
 ;;;
 
 (defconst mime-tspecials "][()<>@,\;:\\\"/?=")