An applescript that archives old email messages