From e11bebf1089bbab3534eac1f1ecdf644ec90b6eb Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 16 Jan 1999 17:18:40 +0000 Subject: [PATCH] (mime-tspecial-char-list): Renamed from `mime-tspecials'; changed from string to list. (mime-token-regexp): Use `eval-when-compile'. --- mime-def.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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 ;; 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 -- 1.7.10.4