home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
Amiga
/
Internet
/
Mail
/
iris.lha
/
Iris
/
DelFolder.irx
< prev
next >
Wrap
Text File
|
1998-03-18
|
683b
|
31 lines
/* REXX-script to delete the contents of a folder */
/* $VER: IrisRMail.irx V1.1 (supplied with Iris V1.2b) */
address IRIS
options results
options failat 11
messagefile
if rc = 10 then do
selectmessage 0
if rc = 10 then do
askchoice '"Delete all messages"' '"There are no messages to*Ndelete in this folder!"' '*_OK'
exit
end
askchoice '"Delete all messages"' '"Are you sure you want to delete all messages in this folder?"' '_Yes|_No'
if rc = 0 then do
selectmessage 0
messagefile
a=substr(result,1,length(result)-11)||"#?"
address command "DELETE" a
getfolder
fol=result
setfolder '"'||fol||'"'
setfolder '"'||fol||'"'
end