Changed sieve-register-.* functions to allow for actions to accept tags.

(sieve-get-opt-arg): New function. Returns the argument to a given tag.

@@ -120,19 +120,22 @@
 ;;; Register standard actions
 ;;; Register standard actions
 (cond
 (cond
  (sieve-parser
  (sieve-parser
-  (sieve-register-action "keep" action-keep)
-  (sieve-register-action "discard" action-discard)
-  (sieve-register-action "fileinto" action-fileinto 'string)))
+  (sieve-register-action "keep" action-keep '() '())
+  (sieve-register-action "discard" action-discard '() '())
+  (sieve-register-action "fileinto" action-fileinto (list 'string) '())))
 
 
 ;;; Some utilities.
 ;;; Some utilities.
 
 
-(define (find-comp opt-args)
+(define (sieve-get-opt-arg opt-args tag default)
   (cond
   (cond
-   ((member #:comparator opt-args) =>
+   ((member tag opt-args) =>
     (lambda (x)
     (lambda (x)
       (car (cdr x))))
       (car (cdr x))))
    (else
    (else
-    string-ci=?)))
+    default)))
+
+(define (find-comp opt-args)
+  (sieve-get-opt-arg opt-args #:comparator string-ci=?))
 
 
 (define (find-match opt-args)
 (define (find-match opt-args)
   (cond
   (cond
@@ -358,24 +361,24 @@
  (sieve-parser
  (sieve-parser
   (sieve-register-test "address"
   (sieve-register-test "address"
 		       test-address
 		       test-address
-		       (append address-part comparator match-type)
-                       (list 'string-list 'string-list))
+                       (list 'string-list 'string-list)
+		       (append address-part comparator match-type))
   (sieve-register-test "size"
   (sieve-register-test "size"
 		       test-size
 		       test-size
-		       size-comp
-                       (list 'number))
+                       (list 'number)
+		       size-comp)
   (sieve-register-test "envelope"
   (sieve-register-test "envelope"
 		       test-envelope
 		       test-envelope
-		       (append comparator address-part match-type)
-                       (list 'string-list 'string-list))
+                       (list 'string-list 'string-list)
+		       (append comparator address-part match-type))
   (sieve-register-test "exists"
   (sieve-register-test "exists"
 		       test-exists
 		       test-exists
-		       '()
-                       (list 'string-list))
+                       (list 'string-list) 
+                       '())
   (sieve-register-test "header"
   (sieve-register-test "header"
 		       test-header
 		       test-header
-		       (append comparator match-type)
-		       (list 'string-list 'string-list))
+		       (list 'string-list 'string-list)
+		       (append comparator match-type))
   (sieve-register-test "false" #f '() '())
   (sieve-register-test "false" #f '() '())
   (sieve-register-test "true"  #t '() '())))
   (sieve-register-test "true"  #t '() '())))