AppleScript: Smart Archive for multiple inboxes in Mail.app

gistfile1.applescript

tell application "Mail"
	set selected_messages to selection
	
	repeat with a_message in selected_messages
		set a_message_mailbox to name of mailbox of a_message
		if a_message_mailbox is "INBOX" then
			tell application "Mail"
				move the a_message to mailbox "INBOX/Archive" of account "FastMail"
			end tell
		else if a_message_mailbox is "anotherinbox" then
			tell application "Mail"
				move the a_message to mailbox "INBOX/anotherinbox/Archive" of account "FastMail"
			end tell
		else if a_message_mailbox is "onemoreinbox" then
			tell application "Mail"
				move the a_message to mailbox "INBOX/onemoreinbox/Archive" of account "FastMail"
			end tell
		end if
	end repeat
end tell