# HG changeset patch
# User Augie Fackler <durin42@gmail.com>
# Date 1281836578 18000
# Node ID ca0e1cff654cd7ce74893f9530c334944883f1b0
# Parent  2a4efba0fe8b9a630f0ade2eed2e93bdb95e85e1
Add an applescript I use to archive messages in Mail.app

diff --git a/unixSoft/otherbin/Archive Message.applescript b/unixSoft/otherbin/Archive Message.applescript
new file mode 100644
--- /dev/null
+++ b/unixSoft/otherbin/Archive Message.applescript	
@@ -0,0 +1,23 @@
+tell application "Mail"
+	set selectedMails to the selection
+	if the length of selectedMails is greater than 0 then
+		repeat with theMessage in selectedMails
+			if the name of the mailbox of theMessage is "INBOX" then
+				# Set "gmail" to whatever your account is called in Mail.app's preferences
+				if the account of the mailbox of theMessage is account "gmail" then
+					# Note: instead of "All Mail" below, I had to use "[Gmail]/All Mail" -Simon, using Mail 3.5 (930.3) & Gmail w/ IMAP
+					move theMessage to mailbox "[Gmail]/All Mail" in account "Gmail"
+					# Add custom accounts with custom names and custom archive mailboxes here
+				else if the account of the mailbox of theMessage is account "Google" then
+					move theMessage to mailbox "[Gmail]/All Mail" in account "Google"
+				else
+					say "Your mail didn't belong to any account I know."
+				end if
+			else
+				say "Only mails in inbox can be moved"
+			end if
+		end repeat
+	else
+		say "You have to select mails first"
+	end if
+end tell