--- a/MIMETypes.st	Thu Sep 12 08:57:32 2002 +0200
+++ b/MIMETypes.st	Thu Sep 12 16:39:02 2002 +0200
@@ -150,6 +150,8 @@
     typeStrings addAll:self applicationProgLangTypeList.
     typeStrings addAll:self applicationTextTypeList.
     typeStrings addAll:self applicationComprAndArchiveTypeList.
+    typeStrings addAll:self applicationMiscTypeList.
+
     ^ typeStrings
 !
 
@@ -231,9 +233,7 @@
     ].
 
     FilenameToTypeMapping := Dictionary new.
-    #(
-        ('makefile' 'make.proto')  'application/x-make'
-    ) pairWiseDo:[:nm :typeString|
+    self miscFilenameList pairWiseDo:[:nm :typeString|
         |type|
 
         type := MIMEType fromString:typeString.
@@ -742,6 +742,6 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.42 2002-09-11 17:32:19 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.43 2002-09-12 14:39:02 penk Exp $'
 ! !
 MIMETypes initialize!