# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 973139904 0
# Node ID 66b0773e087764fb191534408fe714da8685d41f
# Parent  61f4c87b845c37fba1b9f81cc90fd9d25f8b0418
(mm-uu-configure-list): Move back to old location,
because defcustom tries to call `mm-uu-configure'.

diff -r 61f4c87b845c -r 66b0773e0877 lisp/gnus/mm-uu.el
--- a/lisp/gnus/mm-uu.el	Thu Nov 02 04:28:01 2000 +0000
+++ b/lisp/gnus/mm-uu.el	Thu Nov 02 04:38:24 2000 +0000
@@ -94,18 +94,6 @@
   "The default disposition of uu parts.
 This can be either \"inline\" or \"attachment\".")
 
-(defcustom mm-uu-configure-list nil
-  "A list of mm-uu configuration.
-To disable dissecting shar codes, for instance, add
-`(shar . disabled)' to this list."
-  :type '(repeat (choice (const :tag "postscript" (postscript . disabled))
-			 (const :tag "uu" (uu . disabled))
-			 (const :tag "binhax" (binhex . disabled))
-			 (const :tag "shar" (shar . disabled))
-			 (const :tag "forward" (forward . disabled))))
-  :group 'gnus-article-mime
-  :set 'mm-uu-configure)
-
 (defun mm-uu-configure-p  (key val)
   (member (cons key val) mm-uu-configure-list))
 
@@ -123,6 +111,18 @@
 					      "-begin-line")))))))
 	  '(uu postscript binhex shar forward)))
 
+(defcustom mm-uu-configure-list nil
+  "A list of mm-uu configuration.
+To disable dissecting shar codes, for instance, add
+`(shar . disabled)' to this list."
+  :type '(repeat (choice (const :tag "postscript" (postscript . disabled))
+			 (const :tag "uu" (uu . disabled))
+			 (const :tag "binhax" (binhex . disabled))
+			 (const :tag "shar" (shar . disabled))
+			 (const :tag "forward" (forward . disabled))))
+  :group 'gnus-article-mime
+  :set 'mm-uu-configure)
+
 (mm-uu-configure)
 
 ;;;### autoload