From: morioka <morioka>
Date: Sat, 16 Jan 1999 17:18:40 +0000 (+0000)
Subject: (mime-tspecial-char-list): Renamed from `mime-tspecials'; changed from
X-Git-Tag: flim-1_12-199901161900~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e11bebf1089bbab3534eac1f1ecdf644ec90b6eb;p=elisp%2Fflim.git

(mime-tspecial-char-list): Renamed from `mime-tspecials'; changed from
string to list.
(mime-token-regexp): Use `eval-when-compile'.
---

diff --git a/mime-def.el b/mime-def.el
index 480ef3a..c0bccea 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -1,6 +1,6 @@
 ;;; mime-def.el --- definition module about MIME
 
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: definition, MIME, multimedia, mail, news
@@ -99,8 +99,11 @@
 ;;; @ about MIME
 ;;;
 
-(defconst mime-tspecials "][()<>@,\;:\\\"/?=")
-(defconst mime-token-regexp (concat "[^" mime-tspecials "\000-\040]+"))
+(defconst mime-tspecial-char-list
+  '(?\] ?\[ ?\( ?\) ?< ?> ?@ ?, ?\; ?: ?\\ ?\" ?/ ?? ?=))
+(defconst mime-token-regexp
+  (eval-when-compile
+    (concat "[^" mime-tspecial-char-list "\000-\040]+")))
 (defconst mime-charset-regexp mime-token-regexp)
 
 (defconst mime-media-type/subtype-regexp