From: shuhei-k <shuhei-k>
Date: Mon, 26 Apr 1999 06:16:18 +0000 (+0000)
Subject: (std11-qtext-regexp): Don't use `string'.
X-Git-Tag: flim-1_12_6~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1270e3d4a783e14827db7c883fea982aee2b6fe0;p=elisp%2Fflim.git

(std11-qtext-regexp): Don't use `string'.
(mime-tspecial-char-list): Eval at compile time.
---

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]+")))