seb3point0

property archive_mailbox_label : "Archive"

tell application "Mail"

    set theMessages to the selection
	
	repeat with m in theMessages
		set mb to mailbox of m
		set acc to account of mb
		set archive_mailbox to get (the (year of (current date)) as string) & " " & archive_mailbox_label