cuberoot

set _description to "All unflagged, read messages in each IMAP account inbox will be moved to the “Archive” mailbox corresponding to that account. All POP inboxes will be moved to a mailbox on this Mac called 'Archive (<Account Name>)'. This action is not undoable."

tell application "Mail"
	display alert "Archive read messages from IMAP inboxes?" buttons ¬
		{"Cancel", "Archive"} cancel button 1 message _description
	
	repeat with _acct in pop accounts
		if (enabled of _acct) then
			set _acct_name to name of _acct