From 33f7e8aeb8f4be54a413c1c8cd99f5523f21b01c Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Wed, 18 Aug 1999 06:39:14 +0000
Subject: [PATCH] (mime-parse-Content-Type): Use `eval-when-compile'.

---
 mime-parse.el |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4