Alte Artikel in NetNewsWire als gelesen markieren

NetNewsWire – die lokale Alternative zum designtechnisch neuerdings missglückten Google Reader – besitzt die Funktion, alte Artikel als gelesen zu markieren, nicht. Ich habe dieses AppleScript gefunden (und leicht modifiziert), das genau das erledigt. Das Skript fragt zuerst nach, wie alt die Artikel mindestens sein müssen, um als gelesen markiert zu werden und markiert sie nach einem Klick auf OK dann dementsprechend.

tell application "NetNewsWire"
  display dialog "Wie alt müssen Artikel sein, um als gelesen markiert zu werden?" default answer "7"
  set numDays to text returned of result
  set threshold to (current date) – (numDays * days)
  set isRead of (headlines of subscriptions where (isRead is equal to false and date published < threshold)) to true
end tell