# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 990207158 -7200
# Node ID 876caa979b7ea08571c44bcc93f76749c090b66e
# Parent  bef5798d367df39ab5e35150190cce8b846e3438
checkin from browser

diff -r bef5798d367d -r 876caa979b7e MIMETypes.st
--- a/MIMETypes.st	Fri May 18 18:50:04 2001 +0200
+++ b/MIMETypes.st	Fri May 18 19:32:38 2001 +0200
@@ -440,12 +440,13 @@
     "Modified: / 1.8.1998 / 17:02:40 / cg"
 !
 
-mimeTypeForFilename:filename
+mimeTypeForFilename:filenameArg
     "given a filename, return the mime-type or nil, if unknown"
 
-    |type lcFilename suff|
+    |type filename lcFilename suff|
 
-    lcFilename := filename asFilename name asLowercase.
+    filename := filenameArg asFilename.
+    lcFilename := filename name asLowercase.
     type := FilenameToTypeMapping at:lcFilename ifAbsent:nil.
     type isNil ifTrue:[
         "/ allow for fallback ...
@@ -463,7 +464,7 @@
     ].
 
     type isNil ifTrue:[
-        suff := filename asFilename suffix.
+        suff := filename suffix.
         suff size ~~ 0 ifTrue:[
             ^ self mimeTypeForSuffix:suff
         ]
@@ -529,6 +530,6 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.29 2001-05-18 16:50:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.30 2001-05-18 17:32:38 cg Exp $'
 ! !
 MIMETypes initialize!