Mercurial > dotfiles

annotate unixSoft/otherbin/Archive Message.applescript @ 266:93a8f55a4e30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
xmonad: add takeTopFocus logHook This is required to make IntelliJ (and supposedly all other Swing applications) properly notice that they've recieved the focus. According to [0], the problem is that "xmonad does not follow ICCCM and ignores WM_TAKE_FOCUS protocol", but the patches on that ticket haven't yet been accepted, so the function was added to xmonad-contrib as a workaround until something happens in xmonad proper. [0]: http://code.google.com/p/xmonad/issues/detail?id=177
author Augie Fackler <durin42@gmail.com>
date Wed, 02 Nov 2011 09:53:57 -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