Mercurial > dotfiles

annotate unixSoft/otherbin/Archive Message.applescript @ 351:bef29d49d19f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
safe-paste: adds support for bracketed paste mode to zsh Since I don't use oh-my-zsh, just import their code directly with a reference. Based on the site where I learned about this [0], it's originally from [1], and I downloaded it from [2]. 0: https://cirw.in/blog/bracketed-paste 1: http://www.zsh.org/mla/users/2011/msg00367.html 2: https://raw.githubusercontent.com/robbyrussell/oh-my-zsh/master/plugins/safe-paste/safe-paste.plugin.zsh
author Augie Fackler <raf@durin42.com>
date Mon, 10 Nov 2014 09:26:04 -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