(mm-uu-configure): Unquote lambda.

(mm-uu-configure-list): Doc fix.

diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index 986c8fa0bb9d080c9548a2d7589c09ee2044120c..17ca752ceb6a0df36091e5418cc80934bb232b5b 100644 (file)
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -100,19 +100,20 @@ This can be either \"inline\" or \"attachment\".")
 (defun mm-uu-configure (&optional symbol value)
   (if symbol (set-default symbol value))
   (setq mm-uu-begin-line nil)
-  (mapcar '(lambda (type)
-            (if (mm-uu-configure-p type 'disabled)
-                nil
-              (setq mm-uu-begin-line
-                    (concat mm-uu-begin-line
-                            (if mm-uu-begin-line "\\|")
-                            (symbol-value
-                             (intern (concat "mm-uu-" (symbol-name type)
-                                             "-begin-line")))))))
+  (mapcar (lambda (type)
+           (if (mm-uu-configure-p type 'disabled)
+               nil
+             (setq mm-uu-begin-line
+                   (concat mm-uu-begin-line
+                           (if mm-uu-begin-line "\\|")
+                           (symbol-value
+                            (intern (concat "mm-uu-" (symbol-name type)
+                                            "-begin-line")))))))
          '(uu postscript binhex shar forward)))
 
+;; Needs to come after mm-uu-configure.
 (defcustom mm-uu-configure-list nil
-  "A list of mm-uu configuration.
+  "Alist of mm-uu configurations to disable.
 To disable dissecting shar codes, for instance, add
 `(shar . disabled)' to this list."
   :type '(repeat (choice (const :tag "postscript" (postscript . disabled))