--- a/MIMETypes.st	Sun Jun 28 03:54:46 2015 +0000
+++ b/MIMETypes.st	Tue Jun 30 08:17:34 2015 +0200
@@ -195,7 +195,11 @@
 
     TypeToCommentStringMapping 
         at:'application/x-lisp-source'
-        put:#(';' (nil nil)).           "/ '#' for EOL comments only
+        put:#(';' (nil nil)).           "/ ';' for EOL comments only
+
+    TypeToCommentStringMapping 
+        at:'application/x-python-source'
+        put:#('#' (nil nil)).           "/ '#' for EOL comments only
 
     TypeToCommentStringMapping 
         at:'application/x-asn1-source'
@@ -283,6 +287,7 @@
     TypeToInfoMapping at:'application/x-java-source' put:'Java source'.
     TypeToInfoMapping at:'application/x-javascript' put:'Javascript source'.
     TypeToInfoMapping at:'application/x-lisp-source' put:'Lisp source'.
+    TypeToInfoMapping at:'application/x-python-source' put:'Python source'.
 
     TypeToInfoMapping at:'application/x-make' put:'make rules'.
     TypeToInfoMapping at:'application/binary' put:'binary object file'.
@@ -520,6 +525,7 @@
     TypeToParenthesisSpecMapping at:'application/x-csharp-source' put:spec.
     TypeToParenthesisSpecMapping at:'application/x-java-source' put:spec.
     TypeToParenthesisSpecMapping at:'application/x-javascript' put:spec.
+    TypeToParenthesisSpecMapping at:'application/x-python-source' put:spec.
     
     "/ Lisp / Scheme    
     spec := IdentityDictionary new.
@@ -599,6 +605,7 @@
 
         ('lisp' 'lsp' 'scm' 'ss' 
          'arc' 'cl' 'brg')           'application/x-lisp-source'
+        'py'                         'application/x-python-source'
     )
 
     "Modified (comment): / 21-08-2012 / 20:55:13 / cg"
@@ -631,6 +638,8 @@
         'dotx'                       'application/vnd.openxmlformats-officedocument.wordprocessingml.template'
         'xlam'                       'application/vnd.ms-excel.addin.macroEnabled.12'
         'xlsb'                       'application/vnd.ms-excel.sheet.binary.macroEnabled.12'
+
+        'edi'                        'application/EDIFACT'
     )
 
     "Modified: / 26-05-2012 / 15:27:30 / cg"
@@ -1056,6 +1065,7 @@
             ('#!!/bin/sh'                #'application/x-sh')
             "/ ('#!! /bin/bash'              'application/x-bash')
             "/ ('#!!/bin/bash'               'application/x-bash')
+            ('UNB+UNO'                  #'application/EDIFACT')
 
             ('---- encoding: '          #'application/x-smalltalk-source')
             ('---- timestamp '          #'application/x-smalltalk-source')
@@ -1585,11 +1595,11 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.140 2015-05-18 07:47:04 sr Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.140 2015-05-18 07:47:04 sr Exp $'
+    ^ '$Header$'
 ! !