From b929f765a7e3e5b9f8c5f8d4896149ec4af614e6 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Thu, 28 May 1998 13:43:43 +0000
Subject: [PATCH] (regexp-*): New function (moved from mime-parse.el of SEMI
 (REMI)). (regexp-or): New function (moved from
 mime-parse.el of SEMI (REMI)). (std11-quoted-pair-regexp):
 New constant (moved from mime-parse.el of SEMI (REMI)).
 (std11-non-qtext-char-list): New constant (copied from
 std11.el). (std11-qtext-regexp): New constant (moved from
 mime-parse.el of SEMI (REMI)).
 (std11-quoted-string-regexp): New constant (moved from
 mime-parse.el of SEMI (REMI)).

---
 mime-def.el |   25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

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 "][()<>@,\;:\\\"/?=")
-- 
1.7.10.4