Added scoring xml stuffs

2000-09-08  Jeffrey Stedfast  <fejj@helixcode.com>

	* filtertypes.xml: Added scoring xml stuffs

	* Makefile.am: added filter-score.[c,h]

	* filter-score.[c,h]: New functions to handle the "score" filter
	type.

	* filter-element.c (filter_element_new_type_name): Added support
	for "score" type.

	* filter-driver.c (do_score): New ESExp callback for filter
	actions to set the score on a message.

	* filter-message-search.c (get_score): New ESExp callback for
	getting the score tag as an integer value.

svn path=/trunk/; revision=5274

1 files changed, 37 insertions, 0 deletions

diff --git a/filter/filtertypes.xml b/filter/filtertypes.xml
index 09daea6de1..791e566a85 100644
--- a/filter/filtertypes.xml
+++ b/filter/filtertypes.xml
@@ -141,6 +141,38 @@
   </input>
  </part>
 
+ <part name="score">
+  <title>Message score</title>
+  <input type="optionlist" name="score-type">
+   <option value="less-than">
+    <title>less than</title>
+    <code>
+       (match-all (&lt; (get-score) ${versus}))
+    </code>
+   </option>
+   <option value="less-than-or-equal">
+    <title>less than or equal to</title>
+    <code>
+       (match-all (not (&gt; (get-score) ${versus})))
+    </code>
+   </option>
+   <option value="greater-than">
+    <title>greater than</title>
+    <code>
+       (match-all (&gt; (get-score) ${versus}))
+    </code>
+   </option>
+   <option value="greater-than-or-equal">
+    <title>greater than or equal to</title>
+    <code>
+       (match-all (not (&lt; (get-score) ${versus})))
+    </code>
+   </option>
+  </input>    
+  <input type="score" name="versus">
+  </input>
+ </part>
+
 </partset>
 
 
@@ -168,5 +200,10 @@
   <code>(set-colour ${colour})</code>
   <input type="colour" name="colour"/>
  </part>
+ <part name="score">
+  <title>Assign Score</title>
+  <code>(set-score ${score})</code>
+  <input type="score" name="score"/>
+ </part>
 </actionset>
 </filterdescription>