Mercurial > dotfiles
view unixSoft/otherbin/Archive Message.applescript @ 372:ce87db9038f5
havepatch: new script to easily check if a mailed patch is applied
Right now this only works on the hg repo, and it assumes the patch was
applied as a descendant of 3.5 to keep the checks quick. In a perfect
world I'd be able to do this all with obsolete marker checks, but that
doesn't seem to be a good option yet.
author | Augie Fackler <raf@durin42.com> |
---|---|
date | Tue, 13 Oct 2015 11:04:51 -0400 |
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