Path: utzoo!utgpu!attcan!uunet!steinmetz!vdsvax!montnaro
From: montnaro@sprite.steinmetz.ge.com (Skip Montanaro)
Newsgroups: comp.emacs
Subject: Re: mail without time
Message-ID: <MONTNARO.88Jul27081810@sprite.steinmetz.ge.com>
Date: 27 Jul 88 12:17:41 GMT
References: <GHH.88Jul25140445@clarity.princeton.edu> <27412@bbn.COM> <34270@yale-celray.yale.UUCP>
Sender: news@vdsvax.steinmetz.ge.com
Reply-To: <montanaro@sprite.steinmetz.ge.com> (Skip Montanaro)
Distribution: comp
Organization: GE Corporate Research & Development
Lines: 29
In-reply-to: Ram-Ashwin@cs.yale.edu's message of 26 Jul 88 14:29:24 GMT

Here's a /bin/sh version of loadst I pieced together. It ignores the uflag,
but then, Emacs doesn't use it.
----------
#!/bin/sh

nflag=
uflag=
repetition=

while [ $# -gt 0 ] ; do
    case $1 in
	-n) nflag=$1 ;;
	-u) uflag=$1 ;;
	 *) repetition=$1 ;;
    esac
    shift
done

while [ true ] ; do
    if [ -r /usr/spool/mail/$USER ] ; then
	echo $nflag "Mail"
    else
	echo $nflag "-"
    fi
    sleep $repetition
done
----------
--
Skip Montanaro (montanaro@sprite.steinmetz.ge.com, montanaro@ge-crd.arpa)