Open, fetch, and close

What is this?
The script checks the mail then disconnects if Mailsmith made the connection.
Comment from jem: As I understand it this script could give some problems on slower machines due to a tight loop, follow this link for a modified script by Gavan Schneider.


 property NoError : 0
 property PortBusy : -7114
 
 property connectedState : {"connected"}
 
 on run
   try
       set pppWasClosed to (state of (PPP status)) is not in connectedState
       if pppWasClosed then
           PPP connect
       end if
       with timeout of 999 seconds
           tell application "Mailsmith 1.1"
               activate
               try
                   check mail
               on error theErr
                   display dialog theErr
               end try
               repeat until not connection in progress
               end repeat
           end tell
       end timeout
       if pppWasClosed and (state of (PPP status)) is in connectedState then
           PPP disconnect
       end if
   on error ErrMsg number errnum
       if pppWasClosed and (state of (PPP status)) is in connectedState then
           PPP disconnect
       end if
   end try
 end run