Mercurial > dotfiles

view 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
line wrap: on
line source

tell application "Mail"
	set selectedMails to the selection
	if the length of selectedMails is greater than 0 then
		repeat with theMessage in selectedMails
			if the name of the mailbox of theMessage is "INBOX" then
				# Set "gmail" to whatever your account is called in Mail.app's preferences
				if the account of the mailbox of theMessage is account "gmail" then
					# Note: instead of "All Mail" below, I had to use "[Gmail]/All Mail" -Simon, using Mail 3.5 (930.3) & Gmail w/ IMAP
					move theMessage to mailbox "[Gmail]/All Mail" in account "Gmail"
					# Add custom accounts with custom names and custom archive mailboxes here
				else if the account of the mailbox of theMessage is account "Google" then
					move theMessage to mailbox "[Gmail]/All Mail" in account "Google"
				else
					say "Your mail didn't belong to any account I know."
				end if
			else
				say "Only mails in inbox can be moved"
			end if
		end repeat
	else
		say "You have to select mails first"
	end if
end tell