Fixed mm-uu-configure-list custom type

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 71727cc..ea6eb38 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-04-25  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * mm-uu.el (mm-uu-configure-list): Fixed customize type.
+
 2001-04-24  Hrvoje Niksic  <hniksic@arsdigita.com>
 
        * mm-view.el (mm-display-inline-fontify): Allow XEmacs to fully

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index bbff39d..5f93e7b 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -132,13 +132,10 @@ This can be either \"inline\" or \"attachment\".")
   "A list of mm-uu configuration.
 To disable dissecting shar codes, for instance, add
 `(shar . disabled)' to this list."
-  :type `(repeat (cons
-                 ,(cons 'choice
-                        (mapcar
-                         (lambda (entry)
-                           (cons 'item (car entry)))
-                         mm-uu-type-alist))
-                 (choice (item disabled))))
+  :type 'alist
+  :options (mapcar (lambda (entry)
+                    (list (car entry) '(const disabled)))
+                  mm-uu-type-alist)
   :group 'gnus-article-mime)
 
 ;; functions