release.

[elisp/flim.git] / mime-def.el

diff --git a/mime-def.el b/mime-def.el
index ba62c8b..35bda0d 100644 (file)
--- 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 2) "\e$B3[EDIt\e(B"]
+  (defconst mime-library-product ["CLIME" (1 13 3) "\e$BJ?C<\e(B"]
     "Product name, version number and code name of MIME-library package.")
   )
 
@@ -51,7 +49,7 @@
 (defconst mime-library-version
   (eval-when-compile
     (concat (mime-product-name mime-library-product) " "
-           (mapconcat (function number-to-string)
+           (mapconcat (function int-to-string)
                       (mime-product-version mime-library-product) ".")
            " - \"" (mime-product-code-name mime-library-product) "\"")))
 
@@ -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."