Add NNW links to Safari's Reading List

gistfile1.scpt

tell application "NetNewsWire"
	refreshAll
	repeat with theSubscription in every subscription
		repeat with theItem in every headline in theSubscription
			if isRead of theItem is false then
				tell application "Safari" to add reading list item URL of theItem
				set isRead of theItem to true
			end if
		end repeat
	end repeat
end tell