tell application "Mail"
	set theCalendar to "Inbox"
	set theMessages to selection
	repeat with msg in theMessages
		set msgsubject to subject of msg
		set msgbody to content of msg
		try
			tell application "iCal"
				set newTodo to (make new todo at end of todos of calendar theCalendar)
				tell newTodo
					set summary to msgsubject
					set description to msgbody
				end tell
			end tell
		end try
	end repeat
end tell