Updated to use new register style

@@ -79,5 +79,5 @@
 (if sieve-parser
 (if sieve-parser
     (sieve-register-test "mimeheader"
     (sieve-register-test "mimeheader"
 			 test-mimeheader
 			 test-mimeheader
-			 (append comparator match-type)
-			 (list 'string-list 'string-list)))
+			 (list 'string-list 'string-list)
+			 (append comparator match-type)))

@@ -69,5 +69,5 @@
 (if sieve-parser
 (if sieve-parser
     (sieve-register-test "numaddr"
     (sieve-register-test "numaddr"
 			 test-numaddr
 			 test-numaddr
-			 size-comp
-			 (list 'string-list 'number)))
+			 (list 'string-list 'number)
+			 size-comp))

@@ -51,7 +51,7 @@
 
 
 ;;; Register action
 ;;; Register action
 (if sieve-parser
 (if sieve-parser
-    (sieve-register-action "redirect" action-redirect 'string))
+    (sieve-register-action "redirect" action-redirect (list 'string) '()))
 
 
 
 
 
 

@@ -84,7 +84,7 @@
 
 
 ;;; Register action
 ;;; Register action
 (if sieve-parser
 (if sieve-parser
-    (sieve-register-action "reject" action-reject 'string))
+    (sieve-register-action "reject" action-reject (list 'string) '()))