From: yamaoka <yamaoka>
Date: Tue, 20 Oct 1998 09:55:01 +0000 (+0000)
Subject: Enclose with `eval-and-compile'.
X-Git-Tag: flim-1_11_1~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a61d0056ec32e1215cda84a1e81585fe00072fd4;p=elisp%2Fflim.git

Enclose with `eval-and-compile'.
---

diff --git a/ChangeLog b/ChangeLog
index fc1fb58..f295882 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1998-10-20  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* mime-def.el: Enclose defining procedure for the constants
+	`std11-quoted-pair-regexp', `std11-non-qtext-char-list' and
+	`std11-qtext-regexp' with `eval-and-compile'.
+
 1998-10-19  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* NEWS (Behavior change of `mime-insert-header'): New subsection.
diff --git a/mime-def.el b/mime-def.el
index 969089b..b709203 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -96,11 +96,12 @@
 ;;; @ about STD 11
 ;;;
 
-(defconst std11-quoted-pair-regexp "\\\\.")
-(defconst std11-non-qtext-char-list '(?\" ?\\ ?\r ?\n))
-(defconst std11-qtext-regexp
-  (eval-when-compile
-    (concat "[^" (apply #'string std11-non-qtext-char-list) "]")))
+(eval-and-compile
+  (defconst std11-quoted-pair-regexp "\\\\.")
+  (defconst std11-non-qtext-char-list '(?\" ?\\ ?\r ?\n))
+  (defconst std11-qtext-regexp
+    (eval-when-compile
+      (concat "[^" (apply #'string std11-non-qtext-char-list) "]"))))
 (defconst std11-quoted-string-regexp
   (eval-when-compile
     (concat "\""