Enclose with `eval-and-compile'.

diff --git a/ChangeLog b/ChangeLog
index fc1fb58..f295882 100644 (file)
--- 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 (file)
--- 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 "\""