## mark a section (Learn more)

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

This paste will be private.