From: yamaoka <yamaoka>
Date: Wed, 25 Apr 2001 21:57:20 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_3-01-quimby~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=58261373dbd7f0121e471fc18b6546bc560391aa;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c08489d..92fadbd 100644
--- 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 dd79e12..5893298 100644
--- 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