#	@(#)Menu.slist	13.1 (RC International) 91/07/25

#ident	"@(#)face:OBJECTS/mail/Menu.slist	1.1"

`if [ "${SFIRST}" = "true" ];
then
	message -w "Creating list of saved mail messages.  Please wait...";
	set -l SFIRST=false;
else
	message -w "Updating list of saved mail messages.  Please wait...";
fi;
cocreate -R listing -s ( -e "Unknown command" -i saved mailx -N -f $ARG2;
cosend saved "set MBOX=$HOME/mbox";
cosend saved "set screen=999";
cosend saved "set hold";
cosend saved "ignore message status"`

menu="Read Saved Mail"
help=OPEN TEXT OBJECTS/Text.h "Read Saved Mail" mail/T.smail
altslks=true
rows=18

init=`if [ "${NR}" -eq "0" ];
then
	message -b 1 "There are no longer any saved messages.";
	echo false;
else
	echo true;
fi`

close=`	codestroy -R listing saved q | set -l MBYE;
	regex -v "$MBYE"
		'^Held +([0-9]+ messages*)$0 in' '$m0 left in mailbox.'
		'.*'				 '' | set -l MLEFT;
	regex -v "$MBYE"
		'^New mail has arrived'	'New mail has arrived.'
		'.*'			'' | set -l MNEW;
	regex -v "$MNEW:$MLEFT"
		'^:$'		'echo'
		'^[^:]+:'	'message -b 2 "$MNEW"'
		'.*'		'message -b 1 "$MLEFT"' | set -l CMD;
	$CMD;
	unset -l MBYE -l MNEW -l MLEFT -l MTO -l MSUBJ`

# First two cosends are needed to allow new messages to pop up in window
# as they are delivered (or rather every $MAILCHECK seconds).

`cosend saved "fi $ARG2" | set -l MUPD;
cosend saved "fi $ARG3" > /dev/null;
cosend saved "h" | regex
'^[^0-9]*([0-9]+)$0 ([^ ]+)$1 +(...)$2 (...)$3 +([0-9]+)$4 (..)$5:(..)$6 +([0-9]+)$7/[0-9]+ *(.*)$8$'
'$m0+$m1+$m2+$m3+$m4+$m5+$m6+$m7+$m8' | awk -F+ '
	{
		hour = $6
		tod = "pm"
		if ($6 > 12)
			hour -= 12
		else {
			if (hour == 0)
				hour = 12
		}
		if ($6 < 12)
			tod = "am"

		printf "name=\"%-3d %s\"\n", $1, $2
		printf "description=\"%s/%s %-2d %2d:%s%s %5s lines %-25s\"\n", $3, $4, $5, hour, $7, tod, $8, $9
		printf "action=OPEN TEXT OBJECTS/mail/Text.read saved %d \"%s\" \"%s\"\n", $1, $2, $9
		printf "lininfo=`set -l MTO=\"%s\" -l MSUBJ=\"%s\"`\"%-3d\"\n", $2, $9, $1
		print "itemmsg=\"Move to a message with arrow keys and press ENTER to read the message.\""
	}
';
regex -v "$MUPD"
	'^New mail has arrived.'	'NEW'
	'.*'				'' | set -l MNEW;
regex -v "$MNEW"
	'^$'	'echo'
	'.*'	'message -b 2 "New mail has arrived."' | set -l CMD;
$CMD;
unset -l $MUPD`

name=HELP
button=9
action=help
 
name=REPLY
button=10
action=OPEN OBJECTS/mail/Form.send "Reply to" "${MTO}" "Re: ${MSUBJ}"	
 
name=""
button=11
action=nop

name=DELETE
button=12
action=`message -w "Deleting message. Please wait...";
	cosend saved "d ${LININFO}" > /dev/null;
	message -w "Message has been deleted."`update

name=UPDATE
button=13
action=update

name=CANCEL
button=14
action=close