--- a/MIMETypes.st	Mon Jun 30 22:56:45 1997 +0200
+++ b/MIMETypes.st	Mon Jun 30 23:26:36 1997 +0200
@@ -15,8 +15,7 @@
 Object subclass:#MIMETypes
 	instanceVariableNames:''
 	classVariableNames:'TypeToImageReaderClassMapping FileSuffixToTypeMapping
-		FileSuffixToImageReaderClassMapping
-		CharSetToFontMapping'
+		FileSuffixToImageReaderClassMapping CharSetToFontMapping'
 	poolDictionaries:''
 	category:'System-Documentation'
 !
@@ -117,6 +116,17 @@
     "Modified: 30.6.1997 / 22:06:11 / cg"
 !
 
+fontForCharset:aCharSet
+    ^ CharSetToFontMapping at:aCharSet ifAbsent:nil
+
+    "
+     MIMETypes fontForCharset:'iso2022-jp'
+     MIMETypes fontForCharset:'euc-jp'     
+    "
+
+    "Modified: 30.6.1997 / 23:26:30 / cg"
+!
+
 imageFileSuffixes
     FileSuffixToImageReaderClassMapping isNil ifTrue:[^ #()].
     ^ FileSuffixToImageReaderClassMapping keys
@@ -201,6 +211,6 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.4 1997-06-30 20:55:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.5 1997-06-30 21:26:36 cg Exp $'
 ! !
 MIMETypes initialize!