#!/bin/sh
: ; exec klone $0 "$@"
; The above line finds the klone executable in the $PATH
;;Skeleton of a typical klone script
;;(stack-dump-on-error t)
;;(kdb t)

(setq args (getopts "USAGE:"
    ("-v" () verbose "verbose operation")
))

(defvar mail-body ())			;the text of the mail
(defvar re-to-gwm (regcomp "^To: <owner-gwmt@babar.inria.fr>$"))
(defvar re-to-xpm (regcomp "^To: <owner-xpmt@babar.inria.fr>$"))

(defun main (&aux
  )
  ;; copy mail into one string
  (setq mail-body (String *standard-input*))

  (if 
    (regexec re-to-gwm mail-body)
    (process-list-error "gwm-talk")

    (regexec re-to-xpm mail-body)
    (process-list-error "xpm-talk")

    t
    (exit 1)
  )
  (exit 0)
)

########UNFINISHED

(main)

;;; EMACS MODES
;;; Local Variables: ***
;;; mode:lisp ***
;;; End: ***

