(mime-library-product): Update to 1.13.1.

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

diff --git a/mime-def.el b/mime-def.el
index 5c706f0..a8528e2 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -35,7 +35,7 @@
 (eval-when-compile (require 'cl))      ; list*
 
 (eval-and-compile
 (eval-when-compile (require 'cl))      ; list*
 
 (eval-and-compile

-  (defconst mime-library-product ["CLIME" (1 13 0) "\e$B?7K!N4;{\e(B"]
+  (defconst mime-library-product ["CLIME" (1 13 1) "\e$B0BEH\e(B"]

     "Product name, version number and code name of MIME-library package.")
   )
 
     "Product name, version number and code name of MIME-library package.")
   )
 

@@ -268,9 +268,10 @@
 
 (defmacro mm-define-backend (type &optional parents)
   (` (luna-define-class (, (mm-expand-class-name type))
 
 (defmacro mm-define-backend (type &optional parents)
   (` (luna-define-class (, (mm-expand-class-name type))

-                       (, (nconc (mapcar (lambda (parent)
-                                           (mm-expand-class-name parent)
-                                           )
+                       (, (nconc (mapcar (function
+                                          (lambda (parent)
+                                            (mm-expand-class-name parent)
+                                            ))

                                          parents)
                                  '(mime-entity))))))
 
                                          parents)
                                  '(mime-entity))))))
 

@@ -380,9 +381,10 @@ service."
 If PARENTS is specified, TYPE inherits PARENTS.
 Each parent must be backend name (string)."
   (cons 'progn
 If PARENTS is specified, TYPE inherits PARENTS.
 Each parent must be backend name (string)."
   (cons 'progn

-       (mapcar (lambda (parent)
-                 (` (mel-copy-backend (, parent) (, type)))
-                 )
+       (mapcar (function
+                (lambda (parent)
+                  (` (mel-copy-backend (, parent) (, type)))
+                  ))

                parents)))
 
 (defmacro mel-define-method (name args &rest body)
                parents)))
 
 (defmacro mel-define-method (name args &rest body)

@@ -395,8 +397,9 @@ and (nth 1 (car (last ARGS))) is name of backend (encoding)."
     (` (progn
         (mel-define-service (, name))
         (fset (intern (, class) (, (intern (format "%s-obarray" name))))
     (` (progn
         (mel-define-service (, name))
         (fset (intern (, class) (, (intern (format "%s-obarray" name))))

-              (lambda (, (butlast args))
-                (,@ body)))))))
+              (function
+               (lambda (, (butlast args))
+                 (,@ body))))))))

 
 (put 'mel-define-method 'lisp-indent-function 'defun)
 
 
 (put 'mel-define-method 'lisp-indent-function 'defun)