eds-I#477 - Add search folder condition for overdue messages

Closes https://gitlab.gnome.org/GNOME/evolution-data-server/-/issues/477

3 files changed, 69 insertions, 0 deletions

diff --git a/src/mail/filtertypes.xml.in b/src/mail/filtertypes.xml.in
index c37a52b473..f0993fc6d2 100644
--- a/src/mail/filtertypes.xml.in
+++ b/src/mail/filtertypes.xml.in
@@ -546,6 +546,29 @@
   </input>
  </part>
 
+ <part name="follow-up-due-by">
+  <_title>Follow Up Due By</_title>
+  <input type="optionlist" name="date-spec-type">
+   <option value="before">
+    <_title>is before</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (&lt; (compare-date (make-time (user-tag "due-by")) ${versus}) 0))</code>
+   </option>
+   <option value="after">
+    <_title>is after</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (&gt; (compare-date (make-time (user-tag "due-by")) ${versus}) 0))</code>
+   </option>
+   <option value="is">
+    <_title>is</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (= (compare-date (make-time (user-tag "due-by")) ${versus}) 0))</code>
+   </option>
+   <option value="is-not">
+    <_title>is not</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (not (= (compare-date (make-time (user-tag "due-by")) ${versus}) 0)))</code>
+   </option>
+  </input>
+  <input type="datespec" name="versus"/>
+ </part>
+
  <part name="attachments">
   <_title>Attachments</_title>
   <input type="optionlist" name="match-type">
diff --git a/src/mail/searchtypes.xml.in b/src/mail/searchtypes.xml.in
index ff078eb6fb..f89c925f54 100644
--- a/src/mail/searchtypes.xml.in
+++ b/src/mail/searchtypes.xml.in
@@ -617,6 +617,29 @@
   </input>
  </part>
 
+ <part name="follow-up-due-by">
+  <_title>Follow Up Due By</_title>
+  <input type="optionlist" name="date-spec-type">
+   <option value="before">
+    <_title>is before</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (&lt; (compare-date (make-time (user-tag "due-by")) ${versus}) 0))</code>
+   </option>
+   <option value="after">
+    <_title>is after</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (&gt; (compare-date (make-time (user-tag "due-by")) ${versus}) 0))</code>
+   </option>
+   <option value="is">
+    <_title>is</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (= (compare-date (make-time (user-tag "due-by")) ${versus}) 0))</code>
+   </option>
+   <option value="is-not">
+    <_title>is not</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (not (= (compare-date (make-time (user-tag "due-by")) ${versus}) 0)))</code>
+   </option>
+  </input>
+  <input type="datespec" name="versus"/>
+ </part>
+
  <part name="attachments">
   <_title>Attachments</_title>
   <input type="optionlist" name="match-type">
diff --git a/src/mail/vfoldertypes.xml.in b/src/mail/vfoldertypes.xml.in
index 92080e6f40..12858f0eb0 100644
--- a/src/mail/vfoldertypes.xml.in
+++ b/src/mail/vfoldertypes.xml.in
@@ -620,6 +620,29 @@
   </input>
  </part>
 
+ <part name="follow-up-due-by">
+  <_title>Follow Up Due By</_title>
+  <input type="optionlist" name="date-spec-type">
+   <option value="before">
+    <_title>is before</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (&lt; (compare-date (make-time (user-tag "due-by")) ${versus}) 0))</code>
+   </option>
+   <option value="after">
+    <_title>is after</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (&gt; (compare-date (make-time (user-tag "due-by")) ${versus}) 0))</code>
+   </option>
+   <option value="is">
+    <_title>is</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (= (compare-date (make-time (user-tag "due-by")) ${versus}) 0))</code>
+   </option>
+   <option value="is-not">
+    <_title>is not</_title>
+    <code>(and (not (= (user-tag "follow-up") "")) (not (= (user-tag "due-by") "")) (not (= (compare-date (make-time (user-tag "due-by")) ${versus}) 0)))</code>
+   </option>
+  </input>
+  <input type="datespec" name="versus"/>
+ </part>
+
  <part name="attachments">
   <_title>Attachments</_title>
   <input type="optionlist" name="match-type">