From: morioka <morioka>
Date: Thu, 28 May 1998 13:43:43 +0000 (+0000)
Subject: (regexp-*): New function (moved from mime-parse.el of SEMI (REMI)).
X-Git-Tag: chao-1_2_0_9~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b929f765a7e3e5b9f8c5f8d4896149ec4af614e6;p=elisp%2Fflim.git

(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)).
---

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