Re: sam and varios mail programs

[Rich Salz <rsalz@osf.org>]

I modified sam so that when creating the fifo it first did
	getenv("sampipe")
and if that existed it used that as the name of the pipe.  I set that
variable in my .rcrc which is sourced by my X startup stuff.

For editing I set VISUAL to $home/bin/callsam, which is this:
#! /bin/rc
~ $#* 1 || {
    echo Usage: `{basename $0} file >[1=2]
    exit 1
}

~ $#sampipe 0 && {
    sampipe=$home/.sam.$USER
    ! ~ $#DISPLAY 0 && sampipe=$sampipe.$DISPLAY
}
! test -r $sampipe && {
    echo `{basename $0} ^ ': No pipe "' ^ $sampipe ^ '" to sam' >[1=2]
    exit 1
}

{ switch ($1) {
case /*
    echo B $1
case *
    echo B `{builtin pwd} ^ / ^ $1
} }>$sampipe

echo Type EOF when done:
cat
# Could use "sed 1q" to get just a newline but I prefer the EOF.