Script sub-routine crashes on second loop

Question

G'day
I've got a 2000+ line Mail script that worked in Tiger, but seems to be a problem under leopard.
The first pass getting a Mail message ID works ok, but on the second pass, when getting a new ID, as soon as I try and use the ID variable, the script shows the ID once, then completely stops.
I've written a short version of the script to demonstrate the dilemma, but its still over 65,000 characters.
I can send the whole script to anyone kind enough to try it. Mail me at [email protected]
Anyone kind enough to run it must
1. first create a mail folder called "* items to shift"
2. Alter the short piece of script after the 'Set to suit' comment, to set your printer and email address.
3. Then the script must be saved in the main Library/Scrips/Folder Action Scripts.
4. Then, the script must be attached as a Folder Action to the 'messages' folder INSIDE the actual "* items to shift.mbox" mail folder which is in.....
<your home folder>/Library/Mail/Mailboxes.
5. Enable 'Access for Assistive devices' in the 'Universal Access' control panel.
Now, drop some mail on the '* items to shift' mail box. The second message should freeze after showing the ID once. The mail won't disappear, but will be shifted to a newly created dated mail folder.
The piece of offending script is as follows...
on MainLoopTwo(this_folder)
tell application "Mail"
activate
repeat while (number of messages of mailbox MailBoxName) > 0
set frontmost of application "Mail" to true
if RunForOz then say "main loop"
set EveryMailboxList to mailboxes
repeat with testBoxName in EveryMailboxList
set selected mailboxes of message viewers to {mailbox MailBoxName}
if (name of testBoxName as string) ≠ MailBoxName then
set selected mailboxes of message viewers to {mailbox (name of testBoxName as string)}
exit repeat
end if
end repeat
set CycleThroughMessages to last message of mailbox MailBoxName
tell application "Mail"
activate
set TheName to ""
set TheName to the (id of CycleThroughMessages & ".emlx" as string)
set frontmost of application "Mail" to true
try
if (exists CycleThroughMessages) in mailbox MailBoxName then
if my CheckThePausedReference(TheName) then
set byPassPrint to true
my TransferToITMP(CycleThroughMessages, true)
end if
else
set byPassPrint to true
end if
on error TheError number errNum
say "oooooops, can't set i d"
set TheName to ""
set byPassPrint to true
end try
set thetempname to TheName as string
tell application "System Events"
try
tell application "Mail" to display dialog thetempname
-- Next line after second loop fails after previous line.
-- 'On Error' does not trap error
-- Script simply stops
tell application "Mail" to display dialog thetempname
on error
say "error"
end try
end tell
if RunForOz then say "main loop continues"
my MainLoopThree(CycleThroughMessages)
end tell
end repeat
end tell
set TimeToElapse to my seeiftimehaselapsed("Check if elapsed")
if TimeToElapse = "" then -- No time stored, so check if to recycle
say "Checking recycle"
tell application "Mail"
set TemporaryMail2 to messages of mailbox MailBoxName
end tell
if (count of TemporaryMail2) > 0 then my MainLoopTwo(this_folder)
end if
end MainLoopTwo

Answer 1

G'day
For your information.
I've worked out what the problem is.
After removing a message from a series of messages in a mailbox, using a repeat loop or any other way, after about 5-10 seconds the Mail App seems to send an update signal to itself, or to Applescript, I'm not sure which.
This update causes any dialog box, or open message, to very briefly 'flicker'. Once that happens, the script can't run anything else.
The workaround is to run the main script on it's own, and call it from a short folder attached script.
The problem only arises when the script is directly attached as a folder action, and in Leopard.
A definite bug I think.
Regards
Santa