Pendingmessages

[Brian Yennie]

Ken,

Very clever... one question: how do you deal with the actual timing  
of those messages, or do these scripts assume that everything pending  
should be processed ASAP? Or am I confused (entirely possible!)?

- Brian

> I don't think that lock messages will affect pending messages. Here's
> an approach I've used that works pretty well, so long as you don't  
> have
> really complex messaging needs:
>
> on PausePending pMsg
>   global gPendingMessages
>   put the pendingMessages into tPending
>   if (pMsg <> "") and (pMsg <> "all") then filter tPending with "*," &
> pMsg & ",*"
>   put tPending into gPendingMessages
>   repeat for each line tMsg in tPending
>     cancel item 1 of tMsg
>   end repeat
> end PausePending
>
> on ResumePending pMsg
>   global gPendingMessages
>   put gPendingMessages into tPending
>   if (pMsg <> "") and (pMsg <> "all") then
>     filter tPending with "*," & pMsg & ",*"
>     filter gPendingMessages without "*," & pMsg & ",*"
>   else
>     delete global gPendingMessages
>   end if
>
>   -- Resend the messages
>   repeat for each line tLine in tPending
>     put item 3 of tLine into tCmd
>     put item 4 of tLine into tTarget
>     do "send" && quote & tCmd & quote && "to" && tTarget
>   end repeat
> end ResumePending