Mercurial > dotfiles

annotate unixSoft/otherbin/Archive Message.applescript @ 276:46979cef73b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
emacs: require and configure company mode
author Augie Fackler <raf@durin42.com>
date Fri, 27 Apr 2012 16:48:48 -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