# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 973551071 0
# Node ID 191c9629d653195f23e1f1f789ae34c4aa5d5c3d
# Parent  88e6276ee7b6f797e0d51c08a28191104d6a555a
(mm-uu-configure): Unquote lambda.
(mm-uu-configure-list): Doc fix.

diff -r 88e6276ee7b6 -r 191c9629d653 lisp/gnus/mm-uu.el
--- a/lisp/gnus/mm-uu.el	Mon Nov 06 22:50:28 2000 +0000
+++ b/lisp/gnus/mm-uu.el	Mon Nov 06 22:51:11 2000 +0000
@@ -100,19 +100,20 @@
 (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))