Mercurial > dotfiles

annotate unixSoft/otherbin/Archive Message.applescript @ 325:64e73453e43f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
xmonad: Pull apart custom layout into something readable This change doesn't affect any behavior, but it does document the custom layout by naming function parameters. Hopefully, this will make things easier to fix the next time the XMonad developers break us.
author Lucas Bergman <lucas@bergmans.us>
date Tue, 11 Mar 2014 12:49:05 -0500
parents ca0e1cff654c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
215
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1 tell application "Mail"
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
2 set selectedMails to the selection
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
3 if the length of selectedMails is greater than 0 then
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
4 repeat with theMessage in selectedMails
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
5 if the name of the mailbox of theMessage is "INBOX" then
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
6 # Set "gmail" to whatever your account is called in Mail.app's preferences
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
7 if the account of the mailbox of theMessage is account "gmail" then
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
8 # Note: instead of "All Mail" below, I had to use "[Gmail]/All Mail" -Simon, using Mail 3.5 (930.3) & Gmail w/ IMAP
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
9 move theMessage to mailbox "[Gmail]/All Mail" in account "Gmail"
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
10 # Add custom accounts with custom names and custom archive mailboxes here
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
11 else if the account of the mailbox of theMessage is account "Google" then
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
12 move theMessage to mailbox "[Gmail]/All Mail" in account "Google"
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
13 else
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
14 say "Your mail didn't belong to any account I know."
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
15 end if
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
16 else
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
17 say "Only mails in inbox can be moved"
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
18 end if
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
19 end repeat
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
20 else
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
21 say "You have to select mails first"
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
22 end if
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
23 end tell