DataMuseum.dk

top - download

    Length: 2795 (0xaeb)
    Types: TextFile
    Notes: @(#)Menu.nlist 13.1 (RC International) 91/07/25
    Names: »Menu.nlist«

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦97ad7467e⟧ »0005« 
        └─⟦this⟧ »./home/vmsys/OBJECTS/mail/Menu.nlist« 

TextFile

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

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

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

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

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

close=`	codestroy -R listing new 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 new "fi $ARG2" | set -l MUPD;
cosend new "fi $ARG3" > /dev/null;
cosend new "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 new %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=SAVE
button=11
action=`message -w "Saving message. Please wait...";
	cosend new "s ${LININFO} $HOME/mbox" > /dev/null;
	message -w "Message has been saved."`update

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

name=UPDATE
button=13
action=update

name=CANCEL
button=14
action=close