/* YAMandPGP V1.0 -- Roberto Ragusa 1997 */
/* close mailpacket */

windowfilename = 'CON:50/50/600/200/YAM-REXX/CLOSE'

to_be_decrypted_txt = 'to be decrypted and decompressed'

userid     = '0x--------'         /* To encrypt mails with your personal key, too, */
                                  /* so you can read sent messages */
pgppath    = 'pgp'

pgpcomm_es = '-esa'
pgpcomm_e  = '-ea'

CALL CLOSE 'STDOUT'
CALL CLOSE 'STDIN'
CALL OPEN 'STDIN',windowfilename
CALL PRAGMA '*','STDIN'
CALL OPEN 'STDOUT','*'

options results

address COMMAND

call pragma('D','MAILPACKETS:')

call pragma('D','newmessage')
'assign MW: ""'

address YAM 'Request "Select the filetype of archived attachment" ".lzx|.lha|.zip|.tar.gz|Cancel"'
choice=result
if choice=1 then do
  'lzx -x -r -e -Qf -M100000 -9 a attachment.lzx attachment'
  attafn="attachment.lzx"
  end
if choice=2 then do
  'lha -x -r -e a attachment.lha attachment'
  attafn="attachment.lha"
  end
if choice=3 then do
  'zip -r -v -9 attachment.zip attachment'
  attafn="attachment.zip"
  end
if choice=4 then do
  'tar -vcf attachment.tar attachment'
  'gzip -v -9 attachment.tar'
  attafn="attachment.tar.gz"
  end
if choice=0 then exit

pgppath '>RAM:keys -kv'
'YAM:Rexx/SelectPGPKey RAM:keys OUTFILE RAM:selected'
address YAM 'Request "Select the operation to be performed" "Encrypt&Sign|Encrypt|Cancel"'
choice=result
if choice=1 then pgpcommand=pgpcomm_es
if choice=2 then pgpcommand=pgpcomm_e
if choice=0 then exit
pgppath pgpcommand attafn userid '-@ram:selected'
'delete >nil: RAM:keys RAM:selected'

address YAM

'Show'
'MailWrite'
'WriteSubject ""'
'WriteMailTo ""'
'WriteLetter MW:plain_mail.txt'
'WriteAttach MW:'||attafn||'.asc "'||to_be_decrypted_txt||'" MIME text/plain'


'assign MW:'