From b6acbb30ee966666cc07e18a023614003b828c6c Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 15 Jan 1999 11:58:30 +0000 Subject: [PATCH] (mime-parse-Content-Disposition): Use `eval-when-compile'. --- mime-parse.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 1.7.10.4