Every six hours, labels the inbox mail from the senders and subjects you nominate and archives it out of the way.
Uses
Gmail
Clear the mail you never read out of your inbox
Run every 6 hours.Run every 6 hours.
Set clutterSenders to blank.Set clutterSenders to blank.Set clutterSubjects to blank.Set clutterSubjects to blank.Set labelName to blank.Set labelName to blank.Set maxToArchive to 25.Set maxToArchive to 25.Set inboxScanLimit to 50.Set inboxScanLimit to 50.Set punctuationMarks to [!, ?, :, ;, ,, ., (, ), [, ], , ', |"].Set punctuationMarks to [!, ?, :, ;, ,, ., (, ), [, ], , ', |"].Set senderRules to an empty list.Set senderRules to an empty list.
For each rawSender in clutterSenders split by ,:For each rawSender in clutterSenders split by ,:
Make rawSender lowercase and save it as senderRule.Make rawSender lowercase and save it as senderRule.
If senderRule isn't emptyIf senderRule isn't emptyYes
Add senderRule to the end of senderRules and save it as senderRules.Add senderRule to the end of senderRules and save it as senderRules.No
No steps
Set subjectRules to an empty list.Set subjectRules to an empty list.For each rawSubject in clutterSubjects split by ,:For each rawSubject in clutterSubjects split by ,:Make rawSubject lowercase and save it as subjectRule.Make rawSubject lowercase and save it as subjectRule.If subjectRule isn't emptyIf subjectRule isn't emptyYes
Add subjectRule to the end of subjectRules and save it as subjectRules.Add subjectRule to the end of subjectRules and save it as subjectRules.No
No steps
Set searchTerms to an empty list.Set searchTerms to an empty list.For each searchSender in senderRules:For each searchSender in senderRules:Add from:searchSender to the end of searchTerms and save it as searchTerms.Add from:searchSender to the end of searchTerms and save it as searchTerms.For each searchPhrase in subjectRules:For each searchPhrase in subjectRules:Add subject:@searchPhrase to the end of searchTerms and save it as searchTerms.Add subject:@searchPhrase to the end of searchTerms and save it as searchTerms.If searchTerms is emptyIf searchTerms is emptyYes
Stop and report a problem: List the senders to clear in the 'clutterSenders' step, or the subject words in the 'clutterSubjects' step, then run it again.Stop and report a problem: List the senders to clear in the 'clutterSenders' step, or the subject words in the 'clutterSubjects' step, then run it again.No
No steps
Set inboxSearch to {searchTerms joined by a space}.Set inboxSearch to {searchTerms joined by a space}.GmailList emails matching inboxSearch. Save it as inbox.List emails matching inboxSearch. Save it as inbox.Set candidates to inbox.emails.Set candidates to inbox.emails.
Trim labelName and save it as label.Trim labelName and save it as label.Set archivedCount to 0.Set archivedCount to 0.For each message in candidates:For each message in candidates:If archivedCount is greater than or equal to maxToArchiveIf archivedCount is greater than or equal to maxToArchiveYes
Stop repeating.Stop repeating.No
No steps
If a step below fails, save the error as clutterErrorIf a step below fails, save the error as clutterErrorTry
Trim message.id and save it as messageId.Trim message.id and save it as messageId.Trim message.from and save it as fromHeader.Trim message.from and save it as fromHeader.Set senderAddress to fromHeader.Set senderAddress to fromHeader.If fromHeader contains <If fromHeader contains <Yes
Get the first item of the last item of fromHeader split by < split by > and save it as senderAddress.Get the first item of the last item of fromHeader split by < split by > and save it as senderAddress.No
No steps
Make senderAddress lowercase and save it as senderAddress.Make senderAddress lowercase and save it as senderAddress.Make message.subject lowercase and save it as subjectText.Make message.subject lowercase and save it as subjectText.For each mark in punctuationMarks:For each mark in punctuationMarks: Replace mark with in subjectText and save it as subjectText. Replace mark with in subjectText and save it as subjectText.Set paddedSubject to subjectText .Set paddedSubject to subjectText .Check whether senderRules includes senderAddress and save it as matched.Check whether senderRules includes senderAddress and save it as matched.For each phrase in subjectRules:For each phrase in subjectRules: If paddedSubject contains phrase (ignoring case) If paddedSubject contains phrase (ignoring case)Yes
Change matched to true.Change matched to true.Stop repeating.Stop repeating.No
No steps
If matched is yesIf matched is yesYes
GmailAdd label label to email messageId.Add label label to email messageId.GmailArchive email messageId.Archive email messageId.Add 1 to archivedCount.Add 1 to archivedCount.No
No steps
On error
Show in the output: Left one message in the inbox because it could not be read: clutterError as text.Show in the output: Left one message in the inbox because it could not be read: clutterError as text.Show in the output: Labelled '@label' and archived archivedCount as text message(s). Nothing was deleted - search for the label to review what was cleared or move any of it back.Show in the output: Labelled '@label' and archived archivedCount as text message(s). Nothing was deleted - search for the label to review what was cleared or move any of it back.