? modules/mime/examples
Index: modules/mime/mime.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/mime.tcl,v
retrieving revision 1.25
diff -u -r1.25 mime.tcl
--- modules/mime/mime.tcl	25 Jul 2002 18:28:37 -0000	1.25
+++ modules/mime/mime.tcl	14 Aug 2002 20:48:58 -0000
@@ -863,9 +863,19 @@
             }
         }
 
-        if {[string compare [mime::parselexeme $token] LX_ATOM]} {
-            error [format "expecting attribute (found %s)" $state(buffer)]
+        switch -- [mime::parselexeme $token] {
+            LX_END {
+                return [list $type [array get params]]
+            }
+
+            LX_ATOM {
+            }
+
+            default {
+                error [format "expecting attribute (found %s)" $state(buffer)]
+            }
         }
+
         set attribute [string tolower $state(buffer)]
 
         if {[string compare [mime::parselexeme $token] LX_EQUALS]} {