attachments and the equivalent of send again in mail.app

Does anybody know a way to applescript the equivalent of the “send again” command, other than through gui scripting? (Which would not appropriate for the background process I want to run.)

I want to do something like this, preserving attachments


tell application "Mail"
	-- skipping irrelevant stuff
	set thisContent to the content of OldMessage
	set newMessage to make new outgoing message with properties ¬
		{subject:thisSubject, sender:theSender}
 
	tell newMessage
		set content to thisContent
		set visible to true
	end tell
end tell


but the attachments dont’ get copied over. using “source” rather than content leads to copying in the (binhex’d?) text of the attachment, but the message file is not interpreted properly as containing an attachment.

(Simply moving OldMessage to mailbox “outbox” doesn’t seem to work.)

Any suggestions?

Thanks very much.

AppleScript: xCode 2.1
Browser: Safari 412.5
Operating System: Mac OS X (10.4)