From: morioka <morioka>
Date: Fri, 15 Jan 1999 11:58:30 +0000 (+0000)
Subject: (mime-parse-Content-Disposition): Use `eval-when-compile'.
X-Git-Tag: flim-1_12-199901151900~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b6acbb30ee966666cc07e18a023614003b828c6c;p=elisp%2Fflim.git

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

diff --git a/mime-parse.el b/mime-parse.el
index 70ec263..b6a2f36 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -102,7 +102,8 @@ and return parsed it.  Format of return value is as same as
 (defun mime-parse-Content-Disposition (string)
   "Parse STRING as field-body of Content-Disposition field."
   (setq string (std11-unfold-string string))
-  (if (string-match `,(concat "^" mime-disposition-type-regexp) string)
+  (if (string-match (eval-when-compile
+		      (concat "^" mime-disposition-type-regexp)) string)
       (let* ((e (match-end 0))
 	     (type (downcase (substring string 0 e)))
 	     ret dest)