-- Downloaded From: http://c-command.com/scripts/spamsieve/powermail-uncertain-spam
-- Last Modified: 2007-08-17



tell application "PowerMail"
	tell application "SpamSieve"
		set uncertainThreshold to lookup keys {"Border"} default values {75}
	end tell
	set theMessages to current messages
	repeat with msg in theMessages
		set score to spam rating of msg
		if score >= 50 and score <= uncertainThreshold then
			set filter criterion result to true
		end if
	end repeat
end tell