osx/Mail.applescript

-- Mail.applescript
-- iCal
-- !!! Note that this script is not compiled by iCal.xcodeproj, which uses a compiled version instead
-- !!! so changes to this file will not be reflected in iCal behavior unless manually recompiled.
-- (Not compiled because of <rdar://problem/3675416> osacompile fails in a chrooted environment)
-- Simple script derived from 'http://daringfireball.net/2003/02/save_and_restore_safari_urls"
-- This is used to save the message body to a file
on save_file(filename, contents)
	try
		set open_file to open for access POSIX file filename with write permission
		-- erase current contents of file:
		set eof of open_file to 0
		write contents to open_file starting at eof
		close access open_file
	on error
		try
			close access file filename
		end try
	end try
end save_file
-- We are ignoring the messageText at the moment
on show_mail_sbrs(subjectLine, messageText, myrecipients)
	tell application "iTerm"
		set myterm to (make new terminal)
		tell myterm
			set mysession to (make new session at the end of sessions)
			tell mysession
				set mycommand to "/sw/bin/mutt"
				set mycommand to mycommand & " -s \"" & subjectLine & "\""
				set mycommand to mycommand & " -- "
				repeat with i from 1 to (count of myrecipients)
					set mycommand to mycommand & " " & (item i of myrecipients)
				end repeat
				exec command mycommand
			end tell
		end tell
		activate
	end tell
end show_mail_sbrs
on show_mail_sbr(subjectLine, messageText, myrecipient, myrecipientname)
	tell application "iTerm"
		set myterm to (make new terminal)
		tell myterm
			set mysession to (make new session at the end of sessions)
			tell mysession
				set mycommand to "/sw/bin/mutt"
				set mycommand to mycommand & " -s \"" & subjectLine & "\""
				set mycommand to mycommand & " -- " & myrecipient
				exec command mycommand
			end tell
		end tell
		activate
	end tell
end show_mail_sbr
on send_mail_sb(subjectLine, messageText)
	tell application "iTerm"
		set myterm to (make new terminal)
		tell myterm
			set mysession to (make new session at the end of sessions)
			tell mysession
				set mycommand to "/sw/bin/mutt"
				set mycommand to mycommand & " -s \"" & subjectLine & "\""
				exec command mycommand
			end tell
		end tell
		activate
	end tell
end send_mail_sb
on send_mail_sbr(subjectLine, messageText, myrecipient, myrecipientname)
	show_mail_sbr(subjectLine, messageText, myrecipient, myrecipientname)
end send_mail_sbr
on send_mail_sbrp(subjectLine, messageText, myrecipient, myrecipientname, invitationPath)
	set mytempdir to do shell script "/usr/bin/mktemp -d -t iCalMutt"
	set mydestfilename to do shell script "basename \"" & invitationPath & "\""
	set mydestfilename to mytempdir & "/" & mydestfilename
	set myBodyFile to mytempdir & "/body.eml"
	do shell script "cp \"" & invitationPath & "\" \"" & mydestfilename & "\""
	save_file(myBodyFile, messageText)
	tell application "iTerm"
		set myterm to (make new terminal)
		tell myterm
			set mysession to (make new session at the end of sessions)
			tell mysession
				set mycommand to "/sw/bin/mutt"
				set mycommand to mycommand & " -a \"" & mydestfilename & "\""
				set mycommand to mycommand & " -s \"" & subjectLine & "\""
				set mycommand to mycommand & " -i \"" & myBodyFile & "\""
				set mycommand to mycommand & " -- " & myrecipient
				exec command mycommand
			end tell
		end tell
		activate
	end tell
end send_mail_sbrp
on send_mail_sbp(subjectLine, messageText, invitationPath)
	set mytempdir to do shell script "/usr/bin/mktemp -d -t iCalMutt"
	set mydestfilename to do shell script "/usr/bin/basename \"" & invitationPath & "\""
	set mydestfilename to mytempdir & "/" & mydestfilename
	set myBodyFile to mytempdir & "/body.eml"
	do shell script "cp \"" & invitationPath & "\" \"" & mydestfilename & "\""
	save_file(myBodyFile, messageText)
	tell application "iTerm"
		set myterm to (make new terminal)
		tell myterm
			set mysession to (make new session at the end of sessions)
			tell mysession
				set mycommand to "/sw/bin/mutt"
				set mycommand to mycommand & " -a \"" & mydestfilename & "\""
				set mycommand to mycommand & " -s \"" & subjectLine & "\""
				set mycommand to mycommand & " -i \"" & myBodyFile & "\""
				set mycommand to mycommand & " -- " & myrecipient
				exec command mycommand
			end tell
		end tell
		activate
	end tell
end send_mail_sbp