/*
** This script shows how to perform an Import
*/

/* First the gating of emails - change the "UUMAIL:Adrian" to your username*/

if exists('UUMAIL:Adrian') then do
    address command 'rx rexx:mailmanager/gate.rexx >CON:0/0/800/200/gating.../AUTO/CLOSE/SCREEN*'
    end

/* Now any news is gated */

if exists('UUSPOOL:Newsbatch') then do
    address command 'rx rexx:mailmanager/gate.rexx >CON:0/0/800/200/gating.../AUTO/CLOSE/SCREEN*'
    end

address 'MAILMANAGER'

MM_AreasWin
IF RC ~= 0 THEN DO
   text = 'cThere is an ARexx script waiting.'||'0A'x||'Please go back to the Areas Window as soon as possible'
   gadget = "*_Ok"
   MM_Requester '"MM Requester"' 'text' 'gadget'
   END

DO UNTIL RC = 0
   call Delay(250)
   MM_AreasWin
   END

MM_Import

exit