X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-def.el;h=562a323340162b16440c96021ebdcddc7b3c6770;hb=1612a7e977b6c476b9d980fb4b63e76bf10b8fb4;hp=267810b61eb4641469cd6a483ed210cd0cb1a9c3;hpb=1d8ca4873ee4a60612543f3521c994041e477d76;p=elisp%2Fflim.git

diff --git a/mime-def.el b/mime-def.el
index 267810b..562a323 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -32,10 +32,8 @@
 (require 'mcharset)
 (require 'alist)
 
-(eval-when-compile (require 'cl))	; list*
-
 (eval-and-compile
-  (defconst mime-library-product ["CLIME" (1 13 3) "平端"]
+  (defconst mime-library-product ["CLIME" (1 13 4) "新寺井"]
     "Product name, version number and code name of MIME-library package.")
   )
 
@@ -155,10 +153,9 @@
 ;;;
 
 (defsubst make-mime-content-type (type subtype &optional parameters)
-  (list* (cons 'type type)
-	 (cons 'subtype subtype)
-	 (nreverse parameters))
-  )
+  (cons (cons 'type type)
+	(cons (cons 'subtype subtype)
+	      (nreverse parameters))))
 
 (defsubst mime-content-type-primary-type (content-type)
   "Return primary-type of CONTENT-TYPE."