From 1270e3d4a783e14827db7c883fea982aee2b6fe0 Mon Sep 17 00:00:00 2001
From: shuhei-k <shuhei-k>
Date: Mon, 26 Apr 1999 06:16:18 +0000
Subject: [PATCH] (std11-qtext-regexp): Don't use `string'.
 (mime-tspecial-char-list): Eval at compile time.

---
 mime-def.el |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/mime-def.el b/mime-def.el
index 53c2dc1..68cc8ea 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -87,7 +87,7 @@
   (defconst std11-non-qtext-char-list '(?\" ?\\ ?\r ?\n))
   (defconst std11-qtext-regexp
     (eval-when-compile
-      (concat "[^" (apply #'string std11-non-qtext-char-list) "]"))))
+      (concat "[^" std11-non-qtext-char-list "]"))))
 (defconst std11-quoted-string-regexp
   (eval-when-compile
     (concat "\""
@@ -99,8 +99,9 @@
 ;;; @ about MIME
 ;;;
 
-(defconst mime-tspecial-char-list
-  '(?\] ?\[ ?\( ?\) ?< ?> ?@ ?, ?\; ?: ?\\ ?\" ?/ ?? ?=))
+(eval-and-compile
+  (defconst mime-tspecial-char-list
+    '(?\] ?\[ ?\( ?\) ?< ?> ?@ ?, ?\; ?: ?\\ ?\" ?/ ?? ?=)))
 (defconst mime-token-regexp
   (eval-when-compile
     (concat "[^" mime-tspecial-char-list "\000-\040]+")))
-- 
1.7.10.4