(gnus-ofsetup-customize): Compile lambda expressions.

diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index 369adea..1d7303e 100644 (file)
--- a/lisp/gnus-ofsetup.el
+++ b/lisp/gnus-ofsetup.el
@@ -412,8 +412,8 @@ mail source specifier \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
                     msg
                     (gnus-ofsetup-gettext 'completing-read-symbol-1))
                    (mapcar
-                    (lambda (sym)
-                      (list (symbol-name sym)))
+                    #'(lambda (sym)
+                        (list (symbol-name sym)))
                     syms)
                    nil t nil)))
 
@@ -628,11 +628,11 @@ mail source specifier \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
   "Edit the gnus-offline parameters."
   (interactive)
   (let* ((params (gnus-ofsetup-find-parameters))
-        (types (mapcar (lambda (entry)
-                        `(cons :format "%v%h\n"
-                               :doc ,(nth 2 entry)
-                               (const :format "" ,(nth 0 entry))
-                               ,(nth 1 entry)))
+        (types (mapcar #'(lambda (entry)
+                           `(cons :format "%v%h\n"
+                                  :doc ,(nth 2 entry)
+                                  (const :format "" ,(nth 0 entry))
+                                  ,(nth 1 entry)))
                        params)))
   (kill-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
   (switch-to-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))