--- /usr/src/redhat/BUILD/nautilus-2.10.1/libnautilus-private/nautilus-file.c	2005-06-14 12:38:27.842030744 +0530
+++ nautilus-2.10.1/libnautilus-private/nautilus-file.c	2005-06-14 12:34:00.415720000 +0530
@@ -5250,10 +5250,31 @@ nautilus_file_get_file_info_result (Naut
 gboolean
 nautilus_file_contains_text (NautilusFile *file)
 {
+	const gchar *script_mime_types[]= {
+		"application/x-shellscript",
+		"application/x-perl",
+		"application/x-python",
+		"application/x-csh",
+		"application/x-ruby",
+		NULL
+	};
+	const gchar **it;
+
 	if (file == NULL) {
 		return FALSE;
 	}
 
+	if (file->details->info == NULL || file->details->info->mime_type == NULL) {
+		return FALSE;
+	}
+
+	it = script_mime_types;
+	while (*it) {
+		if (! strcmp (file->details->info->mime_type, *it))
+			return TRUE;
+		it ++;
+	}
+
 	/* All text files inherit from text/plain */
 	return nautilus_file_is_mime_type (file, "text/plain");
 }