From: morioka <morioka>
Date: Fri, 15 Jan 1999 13:55:21 +0000 (+0000)
Subject: (mime-disposition-type-regexp): Must evaluate when it is compiled.
X-Git-Tag: flim-1_12-199901151900~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6fda15cf5397dc0f3d8354b9d91b097b15d24e82;p=elisp%2Fflim.git

(mime-disposition-type-regexp): Must evaluate when it is compiled.
---

diff --git a/mime-parse.el b/mime-parse.el
index aa022a5..e22747d 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -1,6 +1,6 @@
 ;;; mime-parse.el --- MIME message parser
 
-;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1994,1995,1996,1997,1998,1999 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: parse, MIME, multimedia, mail, news
@@ -96,7 +96,9 @@ and return parsed it.  Format of return value is as same as
 ;;; @ Content-Disposition
 ;;;
 
-(defconst mime-disposition-type-regexp mime-token-regexp)
+(eval-and-compile
+  (defconst mime-disposition-type-regexp mime-token-regexp)
+  )
 
 ;;;###autoload
 (defun mime-parse-Content-Disposition (string)