From: morioka <morioka>
Date: Wed, 18 Aug 1999 06:39:14 +0000 (+0000)
Subject: (mime-parse-Content-Type): Use `eval-when-compile'.
X-Git-Tag: of-tm-8_1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=33f7e8aeb8f4be54a413c1c8cd99f5523f21b01c;p=elisp%2Fflim.git

(mime-parse-Content-Type): Use `eval-when-compile'.
---

diff --git a/mime-parse.el b/mime-parse.el
index 5442896..15a7a36 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -105,8 +105,9 @@ Return value is
 or nil.  PRIMARY-TYPE and SUBTYPE are symbol and NAME_n and VALUE_n
 are string."
   (setq string (std11-unfold-string string))
-  (if (string-match `,(concat "^\\(" mime-token-regexp
-			      "\\)/\\(" mime-token-regexp "\\)") string)
+  (if (string-match (eval-when-compile
+		      (concat "^\\(" mime-token-regexp
+			      "\\)/\\(" mime-token-regexp "\\)")) string)
       (let* ((type (downcase
 		    (substring string (match-beginning 1) (match-end 1))))
 	     (subtype (downcase