Require cl when compiling.

(mml-minibuffer-read-type): Avoid redundant lambda.

diff --git a/lisp/mml.el b/lisp/mml.el
index 188fc50..1406563 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -27,6 +27,7 @@
 (require 'mm-bodies)
 (require 'mm-encode)
 (require 'mm-decode)
+(eval-when-compile 'cl)
 
 (eval-and-compile
   (autoload 'message-make-message-id "message")
@@ -629,8 +630,7 @@ one charsets.")
                   'list
                   (mm-delete-duplicates
                    (nconc
-                    (mapcar (lambda (m) (cdr m))
-                            mailcap-mime-extensions)
+                    (mapcar 'cdr mailcap-mime-extensions)
                     (apply
                      'nconc
                      (mapcar