Attaching or linking emails

[Kai von Fintel]

After a second look at the script, I've removed some superfluous stuff
that was left over from debugging, I think. The cleaned up script:

tell application "Mail"
	
	set theSel to selection
	set theMsg to item 1 of theSel
	set msgID to id of theMsg
	
	set theScript to "mdfind -onlyin ~/Library/Mail  " & quote & "
kMDItemFSName == " & msgID & ".emlx" & quote
	set theMsgFile to do shell script theScript
	
	set the clipboard to ("file://" & theMsgFile)
	
end tell

-- Based on a script from
http://homepage.mac.com/brettgross/AppleScripts/AppleScripts_Mail/AppleScripts_Mail.html

This works for me while waiting to see what Ethan comes up with for
connecting kGTD to Mail.

All the best,

Kai
http://semantics-online.org/fintel