? forth.patch
Index: freedesktop.org.xml.in
===================================================================
RCS file: /cvs/mime/shared-mime-info/freedesktop.org.xml.in,v
retrieving revision 1.292
diff -u -p -r1.292 freedesktop.org.xml.in
--- freedesktop.org.xml.in	12 Dec 2007 13:09:48 -0000	1.292
+++ freedesktop.org.xml.in	17 Dec 2007 00:17:51 -0000
@@ -3657,6 +3657,12 @@ command to generate the output files.
     <glob pattern="*.[fF]9[05]"/>
     <glob pattern="*.for"/>
   </mime-type>
+  <mime-type type="text/x-forth">
+    <sub-class-of type="text/plain"/>
+    <_comment>Forth source code</_comment>
+    <glob pattern="*.frt"/>
+    <glob pattern="*.fs"/>
+  </mime-type>
   <mime-type type="text/x-gettext-translation">
     <sub-class-of type="text/plain"/>
     <_comment>translation file</_comment>