toys/missingtags: skip text and image files

toys/missingtags

@@ -124,8 +124,15 @@ cat >&3 <<-EOSelect
 	FROM			tags
 		INNER JOIN	source_files
 			ON	tags.source_file=source_files.id
-	WHERE	$whereclause
-	AND NOT	tags.tagreader LIKE "unknown-%";
+		INNER JOIN	mime_types
+			ON	source_files.mime_type=mime_types.id
+	WHERE	(
+			$whereclause
+		)
+	AND NOT	tags.tagreader LIKE "unknown-%"
+	AND NOT	mime_types.mime_text LIKE "text/%"
+	AND NOT	mime_types.mime_text LIKE "image/%"
+	;
 
 	SELECT	"AtOM:NoMoreFiles";
 EOSelect