Scripting Mail: Command to select a message?

Question

Is there an easy way in AppleScript to select a given message?
My problem is that the "Remove Attachments" command that I use all the time deselects the message after removing the attachment. I want to use a script that stores the current selection in a global variable, then apply the "Remove Attachments" command, and then use another script to reselect the previously selected message using the global variable.
I would then create a macro in Keyboard Maestro to do all three steps, since Mail's AppleScript dic does not include a command for removing attachments.
Any help would be appreciated.
Message was edited by: Pierre Igot
Message was edited by: Pierre Igot

Answer 1

Pierre Igot wrote:
Also, if you look at my sample script higher up, you'll see that there are problems with the selection even when you don't use the Remove Attachments command, i.e. even when message IDs don't change.
Even if you do something as simple as:
1) get the current selection
2) press the Up cursor key to select the message above
3) try to reselect what was selected in 1)
it doesn't work reliably. I don't think pressing the Up key changes any message IDs, and yet there is still a problem with reselecting what was selected.
Pierre
LATEXT - Literature, Music & Visuals @ www.latext.com
BETALOGUE - Weblog at www.betalogue.com
OK, so it would be a bug in the Mail of Snow Leopard.
Here, it works well.
Try a another script, but it will be slower :
property t_ids : {}
tell application "Mail"
activate
tell message viewer 1 to set {t_ids, sel} to {id of messages, selected messages}
set a_id to id of item 1 of sel
tell application "System Events" to tell process "Mail"
click menu item "Remove Attachments" of menu 1 of menu bar item "Message" of menu bar 1
end tell
delay 2
tell message viewer 1
set t_ids2 to id of messages
if t_ids2 is not t_ids then set a_id to my searchNewID(t_ids2)
set selected messages to {}
if a_id is not "" then repeat
tell application "System Events" to tell process "Mail" to keystroke character id 31
delay 0.2
try
set b to id of item 1 of (get selected messages)
if b = a_id then exit repeat
end try
end repeat
end tell
end tell
set t_ids to {}
on searchNewID(L)
repeat with i in L
if contents of i is not in t_ids then return contents of i
end repeat
return ""
end searchNewID