Mercurial > dotfiles
annotate unixSoft/otherbin/Archive Message.applescript @ 391:24d75bc4a3a1
hgimp: add support for using --partial on imported patches
Most of the time that's not what I want, but recently it was useful a couple
of times in a row.
author | Augie Fackler <raf@durin42.com> |
---|---|
date | Wed, 16 Mar 2016 14:32:55 -0400 |
parents | ca0e1cff654c |
children |
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 |