public

oparrish / gist:1134751

Last active 2013-04-12

tell application "Mail"
	set theSelectedMessages to selection
	set theMailbox to "[Gmail]/All Mail"
	
	repeat with theMessage in theSelectedMessages
		set messageAccount to account of mailbox of theMessage
		tell application "Mail"
			move the theMessage to mailbox theMailbox of messageAccount
		end tell
	end repeat
end tell