[evolution] Bug 698439 - Merge "Completed On" filter option with "Follow Up"

[Milan Crha <mcrha src gnome org>]

commit 97744991a9100fd83b7219601199ac92c7b7b828
Author: Milan Crha <mcrha redhat com>
Date:   Mon Mar 23 12:11:48 2015 +0100

    Bug 698439 - Merge "Completed On" filter option with "Follow Up"

 mail/e-mail-migrate.c    |  130 ++++++++++++++++++++++++++++++++++++++++++++++
 mail/filtertypes.xml.in  |   16 ++----
 mail/searchtypes.xml.in  |   16 ++----
 mail/vfoldertypes.xml.in |   16 ++----
 4 files changed, 145 insertions(+), 33 deletions(-)
---
diff --git a/mail/e-mail-migrate.c b/mail/e-mail-migrate.c
index 9554c4e..a2e54d9 100644
--- a/mail/e-mail-migrate.c
+++ b/mail/e-mail-migrate.c
@@ -312,6 +312,133 @@ em_rename_folder_views (EShellBackend *shell_backend)
        g_free (views_dir);
 }
 
+static gboolean
+em_maybe_update_filter_rule_part (xmlNodePtr part)
+{
+       xmlNodePtr values;
+       xmlChar *name, *value;
+
+       name = xmlGetProp (part, (xmlChar *) "name");
+       if (name) {
+               if (g_strcmp0 ((const gchar *) name, "completed-on") != 0) {
+                       xmlFree (name);
+                       return FALSE;
+               }
+
+               xmlFree (name);
+       } else {
+               return FALSE;
+       }
+
+       xmlSetProp (part, (xmlChar *) "name", (xmlChar *) "follow-up");
+
+       values = part->children;
+       while (values) {
+               if (g_strcmp0 ((const gchar *) values->name, "value") == 0) {
+                       name = xmlGetProp (values, (xmlChar *) "name");
+                       if (name) {
+                               if (g_strcmp0 ((const gchar *) name, "date-spec-type") == 0) {
+                                       xmlSetProp (values, (xmlChar *) "name", (xmlChar *) "match-type");
+
+                                       value = xmlGetProp (values, (xmlChar *) "value");
+                                       if (value) {
+                                               if (g_strcmp0 ((const gchar *) value, "is set") == 0)
+                                                       xmlSetProp (values, (xmlChar *) "value", (xmlChar *) 
"is completed");
+                                               else if (g_strcmp0 ((const gchar *) value, "is not set") == 0)
+                                                       xmlSetProp (values, (xmlChar *) "value", (xmlChar *) 
"is not completed");
+
+                                               xmlFree (value);
+                                       }
+                               }
+
+                               xmlFree (name);
+                       }
+               }
+
+               values = values->next;
+       }
+
+       return TRUE;
+}
+
+static void
+em_update_filter_rules_file (const gchar *filename)
+{
+       xmlNodePtr set, rule, root;
+       xmlDocPtr doc;
+       gboolean changed = FALSE;
+
+       if (!filename || !*filename || !g_file_test (filename, G_FILE_TEST_IS_REGULAR))
+               return;
+
+       doc = e_xml_parse_file (filename);
+       if (!doc)
+               return;
+
+       root = xmlDocGetRootElement (doc);
+       set = root && g_strcmp0 ((const gchar *) root->name, "filteroptions") == 0 ? root->children : NULL;
+       while (set) {
+               if (g_strcmp0 ((const gchar *) set->name, "ruleset") == 0) {
+                       rule = set->children;
+                       while (rule) {
+                               if (g_strcmp0 ((const gchar *) rule->name, "rule") == 0) {
+                                       xmlNodePtr partset;
+
+                                       partset = rule->children;
+                                       while (partset) {
+                                               if (g_strcmp0 ((const gchar *) partset->name, "partset") == 
0) {
+                                                       xmlNodePtr part;
+
+                                                       part = partset->children;
+                                                       while (part) {
+                                                               if (g_strcmp0 ((const gchar *) part->name, 
"part") == 0) {
+                                                                       changed = 
em_maybe_update_filter_rule_part (part) || changed;
+                                                               }
+
+                                                               part = part->next;
+                                                       }
+                                               }
+
+                                               partset = partset->next;
+                                       }
+                               }
+
+                               rule = rule->next;
+                       }
+               }
+
+               set = set->next;
+       }
+
+       if (changed)
+               e_xml_save_file (filename, doc);
+
+       xmlFreeDoc (doc);
+}
+
+static void
+em_update_filter_rules (EShellBackend *shell_backend)
+{
+       const gchar *config_dir;
+       gchar *filename;
+
+       g_return_if_fail (shell_backend != NULL);
+
+       config_dir = e_shell_backend_get_config_dir (shell_backend);
+
+       filename = g_build_filename (config_dir, "filters.xml", NULL);
+       em_update_filter_rules_file (filename);
+       g_free (filename);
+
+       filename = g_build_filename (config_dir, "searches.xml", NULL);
+       em_update_filter_rules_file (filename);
+       g_free (filename);
+
+       filename = g_build_filename (config_dir, "vfolders.xml", NULL);
+       em_update_filter_rules_file (filename);
+       g_free (filename);
+}
+
 gboolean
 e_mail_migrate (EShellBackend *shell_backend,
                 gint major,
@@ -329,5 +456,8 @@ e_mail_migrate (EShellBackend *shell_backend,
        if (major <= 2 || (major == 3 && minor < 4))
                em_rename_folder_views (shell_backend);
 
+       if (major <= 2 || (major == 3 && minor < 17))
+               em_update_filter_rules (shell_backend);
+
        return TRUE;
 }
diff --git a/mail/filtertypes.xml.in b/mail/filtertypes.xml.in
index ec2e70e..2aca67f 100644
--- a/mail/filtertypes.xml.in
+++ b/mail/filtertypes.xml.in
@@ -767,25 +767,19 @@
      (match-all (= (user-tag "follow-up") ""))
     </code>
    </option>
-  </input>
- </part>
-
- <part name="completed-on">
-  <_title>Completed On</_title>
-  <input type="optionlist" name="date-spec-type">
-   <option value="is set">
-    <_title>is set</_title>
+   <option value="is completed">
+    <_title>is Completed</_title>
     <code>
        (match-all (not (= (user-tag "completed-on") "")))
     </code>
    </option>
-   <option value="is not set">
-    <_title>is not set</_title>
+   <option value="is not completed">
+    <_title>is not Completed</_title>
     <code>
        (match-all (= (user-tag "completed-on") ""))
     </code>
    </option>
-  </input>    
+  </input>
  </part>
 
  <part name="attachments">
diff --git a/mail/searchtypes.xml.in b/mail/searchtypes.xml.in
index f5cb719..88f4f8d 100644
--- a/mail/searchtypes.xml.in
+++ b/mail/searchtypes.xml.in
@@ -842,25 +842,19 @@
      (match-all (= (user-tag "follow-up") ""))
     </code>
    </option>
-  </input>
- </part>
-
- <part name="completed-on">
-  <_title>Completed On</_title>
-  <input type="optionlist" name="date-spec-type">
-   <option value="is set">
-    <_title>is set</_title>
+   <option value="is completed">
+    <_title>is Completed</_title>
     <code>
        (match-all (not (= (user-tag "completed-on") "")))
     </code>
    </option>
-   <option value="is not set">
-    <_title>is not set</_title>
+   <option value="is not completed">
+    <_title>is not Completed</_title>
     <code>
        (match-all (= (user-tag "completed-on") ""))
     </code>
    </option>
-  </input>    
+  </input>
  </part>
 
  <part name="attachments">
diff --git a/mail/vfoldertypes.xml.in b/mail/vfoldertypes.xml.in
index 8910073..142387c 100644
--- a/mail/vfoldertypes.xml.in
+++ b/mail/vfoldertypes.xml.in
@@ -841,25 +841,19 @@
      (match-all (= (user-tag "follow-up") ""))
     </code>
    </option>
-  </input>
- </part>
-
- <part name="completed-on">
-  <_title>Completed On</_title>
-  <input type="optionlist" name="date-spec-type">
-   <option value="is set">
-    <_title>is set</_title>
+   <option value="is completed">
+    <_title>is Completed</_title>
     <code>
        (match-all (not (= (user-tag "completed-on") "")))
     </code>
    </option>
-   <option value="is not set">
-    <_title>is not set</_title>
+   <option value="is not completed">
+    <_title>is not Completed</_title>
     <code>
        (match-all (= (user-tag "completed-on") ""))
     </code>
    </option>
-  </input>    
+  </input>
  </part>
 
  <part name="attachments">