Path: utzoo!attcan!uunet!tut.cis.ohio-state.edu!ucbvax!ANDREW.CMU.EDU!bobg+
From: bobg+@ANDREW.CMU.EDU (Robert Steven Glickstein)
Newsgroups: comp.soft-sys.andrew
Subject: Re: Converting to AMS: Top 10 Reasons
Message-ID: <oacktFG00VsnM4RUtA@andrew.cmu.edu>
Date: 17 Jul 90 13:10:41 GMT
References: <103720@convex.convex.com>
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 69

Excerpts from internet.info-andrew: 6-Jul-90 Re: Converting to AMS: Top
.. Anthony A. Datri@uunet.u (969)

> Okay, here's my .AMS.flames file:

> (defun datri-mail-hook	(msg)
> ;  (process-mapped-mailbox
> ;   msg
> ;   "mail"
> ;   "denver"
> ;   '("from")
> ;   "mail"
> ;   (ReplyAddr msg "s")
> ;   NIL
> ;   "your mail has been rejected")
>   (post-by-keyword
>    msg
>    "mail"
>    '(
>      (("subject")("[^:]* cpypfiles" "^doallpasswd output$" "^convex
> mapmake" "forwmail output" "Dump status.*" "^files updated by rdist.*"
> )("cron"))
>      (("to" "cc" "received") ("datri\\+cron") ("cron"))
>      (("subject")("backing up.*at.*today" "[a-zA-Z0-9]*, ... .*") ("cron"))
>      ))
> )

> (load "flib") ; The standard flames library

The problem is that ELI (the Embedded Lisp Interpreter, on top of which
FLAMES is built), for (bogus) evolutionary reasons, has no implicit
progn in its function definitions.  You simply need to insert one
yourself:

(defun datri-mail-hook	(msg)
  (progn
   (process-mapped-mailbox
    msg
    "mail"
    "denver"
    '("from")
    "mail"
    (ReplyAddr msg "s")
    NIL
    "your mail has been rejected")
   (post-by-keyword
    msg
    "mail"
    '((("subject")
       ("[^:]* cpypfiles" "^doallpasswd output$"
                        "^convex mapmake" "forwmail output"
                        "Dump status.*"
                        "^files updated by rdist.*" )
       ("cron"))
      (("to" "cc" "received")
       ("datri\\+cron")
       ("cron"))
      (("subject")
       ("backing up.*at.*today" "[a-zA-Z0-9]*, ... .*")
       ("cron"))))))

(load "flib") ; The standard flames library

______________                  _____________________________
Bob Glickstein                | Internet: bobg@andrew.cmu.edu
Information Technology Center | Bitnet:   bobg%andrew@cmuccvma.bitnet
Carnegie Mellon University    | UUCP:     ...!harvard!andrew.cmu.edu!bobg
Pittsburgh, PA  15213-3890    |
(412) 268-6743                | Sinners can repent, but stupid is forever