.key file/a
.bra [
.ket ]

; MultiView fails RC=20 if it's called on an unrecognized file
;
FailAt 21

; easy living
;
set tempname "AmiElm-NeXTmail.$process"

; temporary directory
;
makedir T:${tempname}
assign ${tempname}: ""
cd T:${tempname}

; uudecode file
;
uudecode "[file]"
; for relative path: uudecode "${tempname}:[file]"

; uncompress uudecoded file
;
list LFORMAT="gzip -cdq <*"%N*" >nextmail.tar*Ndelete *"%N*" FORCE QUIET" >T:${tempname}_untar
execute T:${tempname}_untar
delete T:${tempname}_untar FORCE QUIET

; untar uncompressed uudecoded file
;
tar xf nextmail.tar
delete nextmail.tar FORCE QUIET

; view contents
;
list LFORMAT="multiview PUBSCREEN=`getactscreen` *"%N*"" >T:${tempname}_show
execute T:${tempname}_show
delete T:${tempname}_show FORCE QUIET

; wipe out temporary stuff
;
cd ${tempname}:
assign ${tempname}:
delete T:$tempname ALL FORCE QUIET

FailAt 20

endcli
