| !Run file for !FetchMail
|
%Set FetchMail$Dir <Obey$Dir>
%IconSprites <FetchMail$Dir>.!Sprites
|
|
| This is a precaution - for RiscOS2 users...
%RMEnsure SharedCLibrary 0.00 RMLoad System:Modules.CLib
%RMEnsure SharedCLibrary 3.75 Error FetchMail needs SharedCLibrary 3.75 or later
|
|
| Has Voyager been seen?
%If "<VTiInternet$Dir>" = "" Then Error Voyager has not been seen by the filer...
|
|
| This sets up the default path to DTPosty's mail. You may wish to copy this
| across to the !RunPreprc file.
| Patch out or edit the following if Posty is somewhere else...
%If "<PostyUser$Dir>" = "" Then Set PostyUser$Dir <VTiInternet$Dir>.Apps.Mail.!PostyUser
%If "<PostyUser$Dir>" = "" Then Error Cannot resolve |<PostyUser$Dir|>...
|
|
| The later versions of DTPosty apparently have different paths, so this
| allows you to set up the paths as reqiired...
| The order is:
|   STD  - Standard, the regular mailbox.
|   SAV  - Save, when you 'preserve' a message.
|   LOG  - Log, your replies.
| The individual mailbox files are appended, so you require a final '.'.
%Set FetchMail$Path$Std <PostyUser$Dir>.Mailboxes.Standard.
%Set FetchMail$Path$Sav <PostyUser$Dir>.Mailboxes.Save.
%Set FetchMail$Path$Log <PostyUser$Dir>.Mailboxes.Log.
|
|
| Run FetchMail.
|%WimpSlot -min 128K -max 128K
%WimpSlot -min 96K -max 96K
%Run <FetchMail$Dir>.!RunImage %*0