(mm-uu-configure-list): Move back to old location,

because defcustom tries to call `mm-uu-configure'.

diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index e04767379f0df4cbeab2676610bac3b14266c605..986c8fa0bb9d080c9548a2d7589c09ee2044120c 100644 (file)
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -94,18 +94,6 @@ decoder, such as hexbin."
   "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 @@ To disable dissecting shar codes, for instance, add
                                              "-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