#! no gosh in /var/root/usr/local/bin /var/root/usr/bin /var/root/usr/X11R6/bin /Users/proclus/gnu-darwin-func/admin /usr/local/bin /usr/X11R6/bin /sbin /usr/sbin /var/root/usr/local/bin /var/root/usr/bin /var/root/usr/X11R6/bin /Users/proclus/gnu-darwin-func/admin /usr/local/bin /usr/X11R6/bin /sbin /usr/sbin /Users/proclus/usr/local/bin /Users/proclus/usr/bin /Users/proclus/usr/X11R6/bin /Users/proclus/gnu-darwin-func/admin /usr/local/bin /usr/X11R6/bin /sbin /usr/sbin /Users/proclus/usr/local/bin /Users/proclus/usr/bin /Users/proclus/usr/X11R6/bin /Users/proclus/gnu-darwin-func/admin /usr/local/bin /usr/X11R6/bin /sbin /usr/sbin /Users/proclus/usr/local/bin /Users/proclus/usr/bin /Users/proclus/usr/X11R6/bin /Users/proclus/gnu-darwin-func/admin /usr/local/bin /usr/X11R6/bin /sbin /usr/sbin /bin /sbin /usr/bin /usr/sbin
;;; -*- scheme -*-
;;;
;;; scmail - a mail filter written in Scheme
;;;
;;; Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
;;;     All rights reserved.
;;;     This is free software with ABSOLUTELY NO WARRANTY.
;;;
;;; Permission to use, copy, modify, distribute this software and
;;; accompanying documentation for any purpose is hereby granted,
;;; provided that existing copyright notices are retained in all
;;; copies and that this notice is included verbatim in all
;;; distributions.
;;; This software is provided as is, without express or implied
;;; warranty.  In no circumstances the author(s) shall be liable
;;; for any damages arising out of the use of this software.
;;;

(use scmail)
(use scmail.config)
(use scmail.mail)

(define (main-process mailbox target-folder dry-run-mode)
  (let* ((mailbox-type (ref (scmail-config) 'mailbox-type))
         (mail (make-scmail-mail mailbox-type
                                 :mailbox mailbox
                                 :dry-run-mode dry-run-mode)))
    (scmail-filter mail)
    (unless (scmail-mail-removed? mail)
	    (refile mail (slot-ref (scmail-config) 'inbox)))))

(define (main args)
  (with-error-handler 
   (lambda (e) 75)
   (lambda ()
     (scmail-main args main-process 'deliver-rules #t)
     0)))