File thunar-fix-default-application-lookup.patch of Package thunar

Index: Thunar-1.6.3/thunar/thunar-file.c
===================================================================
--- Thunar-1.6.3.orig/thunar/thunar-file.c
+++ Thunar-1.6.3/thunar/thunar-file.c
@@ -3963,6 +3963,7 @@ thunar_file_list_get_applications (GList
   GList       *next;
   GList       *ap;
   GList       *lp;
+  GAppInfo    *default_application;
   const gchar *previous_type = NULL;
   const gchar *current_type;
 
@@ -3981,7 +3982,25 @@ thunar_file_list_get_applications (GList
 
       /* determine the list of applications that can open this file */
       if (G_UNLIKELY (current_type != NULL))
-        list = g_app_info_get_all_for_type (current_type);
+        {
+          list = g_app_info_get_all_for_type (current_type);
+
+          /* move any default application in front of the list */
+          default_application = g_app_info_get_default_for_type (current_type, FALSE);
+          if (G_LIKELY (default_application != NULL))
+            {
+              for (ap = list; ap != NULL; ap = ap->next)
+                {
+                  if (g_app_info_equal (ap->data, default_application))
+                    {
+                      g_object_unref (ap->data);
+                      list = g_list_delete_link (list, ap);
+                      break;
+                    }
+                }
+              list = g_list_prepend (list, default_application);
+            }
+        }
       else
         list = NULL;