Added mailing list matching rules.

2001-02-23  Not Zed  <NotZed@Ximian.com>

        * filtertypes.xml: Added mailing list matching rules.

        * vfoldertypes.xml: Added mailing list rules.

svn path=/trunk/; revision=8356

4 files changed, 101 insertions, 0 deletions

diff --git a/filter/ChangeLog b/filter/ChangeLog
index bde9b4f311..101fe65c9a 100644
--- a/filter/ChangeLog
+++ b/filter/ChangeLog
@@ -1,3 +1,9 @@
+2001-02-23  Not Zed  <NotZed@Ximian.com>
+
+	* filtertypes.xml: Added mailing list matching rules.
+
+	* vfoldertypes.xml: Added mailing list rules.
+
 2001-02-11  Gediminas Paulauskas <menesis@delfi.lt>
 
 	* filter.glade.h: removed.
diff --git a/filter/filtertypes.xml b/filter/filtertypes.xml
index f8c6f6ef91..d0fdf7156f 100644
--- a/filter/filtertypes.xml
+++ b/filter/filtertypes.xml
@@ -433,6 +433,53 @@
   <input type="system-flag" name="flag"/>
  </part>
 
+ <part name="mlist">
+  <title>Mailing list</title>
+   <input type="optionlist" name="sender-type">
+    <option value="contains">
+        <title>contains</title>
+	<code>(match-all (header-contains "x-camel-mlist" ${sender}))</code>
+    </option>
+    <option value="not contains">
+        <title>does not contain</title>
+        <code>(match-all (not (header-contains "x-camel-mlist" ${sender})))</code>
+    </option>
+    <option value="is">
+        <title>is</title>
+	<code>(match-all (header-matches "x-camel-mlist" ${sender}))</code>
+    </option>
+    <option value="is not">
+        <title>is not</title>
+        <code>(match-all (not (header-matches "x-camel-mlist" ${sender})))</code>
+    </option>
+    <option value="starts with">
+     <title>starts with</title>
+     <code>
+        (match-all (header-starts-with "x-camel-mlist" ${sender}))
+     </code>
+    </option>
+    <option value="not starts with">
+     <title>does not start with</title>
+     <code>
+        (match-all (not (header-starts-with "x-camel-mlist" ${sender})))
+     </code>
+    </option>
+    <option value="ends with">
+     <title>ends with</title>
+     <code>
+        (match-all (header-ends-with "x-camel-mlist" ${sender}))
+     </code>
+    </option>
+    <option value="not ends with">
+     <title>does not end with</title>
+     <code>
+        (match-all (not (header-ends-with "x-camel-mlist" ${sender})))
+     </code>
+    </option>
+   </input>
+   <input type="string" name="sender"/>
+ </part>
+
  <part name="regex">
   <title>Regex Match</title>
   <input type="optionlist" name="match-type">
diff --git a/filter/libfilter-i18n.h b/filter/libfilter-i18n.h
index ffc805f9bb..db555323c1 100644
--- a/filter/libfilter-i18n.h
+++ b/filter/libfilter-i18n.h
@@ -7,6 +7,7 @@ char *s = N_("Date sent");
 char *s = N_("Delete");
 char *s = N_("Expression");
 char *s = N_("Forward to Address");
+char *s = N_("Mailing list");
 char *s = N_("Message Body");
 char *s = N_("Message Header");
 char *s = N_("Message was received");
diff --git a/filter/vfoldertypes.xml b/filter/vfoldertypes.xml
index 36157e6ffc..5f5ab473c6 100644
--- a/filter/vfoldertypes.xml
+++ b/filter/vfoldertypes.xml
@@ -275,5 +275,52 @@
   <input type="system-flag" name="flag"/>
  </part>
 
+ <part name="mlist">
+  <title>Mailing list</title>
+   <input type="optionlist" name="sender-type">
+    <option value="contains">
+        <title>contains</title>
+	<code>(match-all (header-contains "x-camel-mlist" ${sender}))</code>
+    </option>
+    <option value="not contains">
+        <title>does not contain</title>
+        <code>(match-all (not (header-contains "x-camel-mlist" ${sender})))</code>
+    </option>
+    <option value="is">
+        <title>is</title>
+	<code>(match-all (header-matches "x-camel-mlist" ${sender}))</code>
+    </option>
+    <option value="is not">
+        <title>is not</title>
+        <code>(match-all (not (header-matches "x-camel-mlist" ${sender})))</code>
+    </option>
+    <option value="starts with">
+     <title>starts with</title>
+     <code>
+        (match-all (header-starts-with "x-camel-mlist" ${sender}))
+     </code>
+    </option>
+    <option value="not starts with">
+     <title>does not start with</title>
+     <code>
+        (match-all (not (header-starts-with "x-camel-mlist" ${sender})))
+     </code>
+    </option>
+    <option value="ends with">
+     <title>ends with</title>
+     <code>
+        (match-all (header-ends-with "x-camel-mlist" ${sender}))
+     </code>
+    </option>
+    <option value="not ends with">
+     <title>does not end with</title>
+     <code>
+        (match-all (not (header-ends-with "x-camel-mlist" ${sender})))
+     </code>
+    </option>
+   </input>
+   <input type="string" name="sender"/>
+ </part>
+
 </partset>
 </filterdescription>