Bug #669983 - Add "To" only search option (like for CC and BCC exists)

3 files changed, 135 insertions, 0 deletions

diff --git a/mail/em-filter-i18n.h b/mail/em-filter-i18n.h
index 5acf5efd15..8ce1da2fdb 100644
--- a/mail/em-filter-i18n.h
+++ b/mail/em-filter-i18n.h
@@ -74,5 +74,6 @@ gchar *s = N_("starts with");
 gchar *s = N_("Status");
 gchar *s = N_("Stop Processing");
 gchar *s = N_("Subject");
+gchar *s = N_("To");
 gchar *s = N_("Unset Color");
 gchar *s = N_("Unset Status");
diff --git a/mail/searchtypes.xml b/mail/searchtypes.xml
index 680fd7e8a9..0173066aa2 100644
--- a/mail/searchtypes.xml
+++ b/mail/searchtypes.xml
@@ -119,6 +119,73 @@
    <input type="address" name="recipient"/>
  </part>
 
+ <part name="toonly">
+   <title>To</title>
+   <input type="optionlist" name="recipient-type">
+    <option value="contains">
+     <title>contains</title>
+     <code>
+       (match-all (header-contains "To" ${recipient}))
+     </code>
+    </option>
+    <option value="not contains">
+     <title>does not contain</title>
+     <code>
+       (match-all (not (header-contains "To" ${recipient})))
+     </code>
+    </option>
+    <option value="is">
+     <title>is</title>
+     <code>
+       (match-all (header-matches "To" ${recipient}))
+     </code>
+    </option>
+    <option value="is not">
+     <title>is not</title>
+     <code>
+       (match-all (not (header-matches "To" ${recipient})))
+     </code>
+    </option>
+    <option value="starts with">
+     <title>starts with</title>
+     <code>
+        (match-all (header-starts-with "To" ${recipient}))
+     </code>
+    </option>
+    <option value="not starts with">
+     <title>does not start with</title>
+     <code>
+        (match-all (not (header-starts-with "To" ${recipient})))
+     </code>
+    </option>
+    <option value="ends with">
+     <title>ends with</title>
+     <code>
+        (match-all (header-ends-with "To" ${recipient}))
+     </code>
+    </option>
+    <option value="not ends with">
+     <title>does not end with</title>
+     <code>
+        (match-all (not (header-ends-with "To" ${recipient})))
+     </code>
+    </option>
+    <option value="matches soundex">
+     <title>sounds like</title>
+     <code>
+       (match-all (header-soundex "To" ${recipient}))
+     </code>
+    </option>
+    <option value="not match soundex">
+     <title>does not sound like</title>
+     <code>
+       (match-all (not (header-soundex "To" ${recipient})))
+     </code>
+    </option>
+   </input>
+   <input type="address" name="recipient"/>
+ </part>
+
  <part name="cc">
    <title>CC</title>
    <input type="optionlist" name="recipient-type">
diff --git a/mail/vfoldertypes.xml b/mail/vfoldertypes.xml
index 59dc96227c..5f8bbd19a4 100644
--- a/mail/vfoldertypes.xml
+++ b/mail/vfoldertypes.xml
@@ -115,6 +115,73 @@
    <input type="address" name="recipient"/>
  </part>
 
+ <part name="toonly">
+   <title>To</title>
+   <input type="optionlist" name="recipient-type">
+    <option value="contains">
+     <title>contains</title>
+     <code>
+	(match-all (header-contains "To" ${recipient}))
+     </code>
+    </option>
+    <option value="not contains">
+     <title>does not contain</title>
+     <code>
+	(match-all (not (header-contains "To" ${recipient})))
+     </code>
+    </option>
+    <option value="is">
+     <title>is</title>
+     <code>
+	(match-all (header-matches "To" ${recipient}))
+     </code>
+    </option>
+    <option value="is not">
+     <title>is not</title>
+     <code>
+	(match-all (not (header-matches "To" ${recipient})))
+     </code>
+    </option>
+    <option value="starts with">
+     <title>starts with</title>
+     <code>
+        (match-all (header-starts-with "To" ${recipient}))
+     </code>
+    </option>
+    <option value="not starts with">
+     <title>does not start with</title>
+     <code>
+        (match-all (not (header-starts-with "To" ${recipient})))
+     </code>
+    </option>
+    <option value="ends with">
+     <title>ends with</title>
+     <code>
+        (match-all (header-ends-with "To" ${recipient}))
+     </code>
+    </option>
+    <option value="not ends with">
+     <title>does not end with</title>
+     <code>
+        (match-all (not (header-ends-with "To" ${recipient})))
+     </code>
+    </option>
+    <option value="matches soundex">
+     <title>sounds like</title>
+     <code>
+	(match-all (header-soundex "To" ${recipient}))
+     </code>
+    </option>
+    <option value="not match soundex">
+     <title>does not sound like</title>
+     <code>
+	(match-all (not (header-soundex "To" ${recipient})))
+     </code>
+    </option>
+   </input>
+   <input type="address" name="recipient"/>
+ </part>
+
  <part name="cc">
    <title>CC</title>
    <input type="optionlist" name="recipient-type">