-- Steve Ivy (steve@redmonk.net)

-- change this to the name of the group in NNW you want to open unread headlines for
set gname to "Design"

on openurl(u)
	open location u
end openurl

tell application "NetNewsWire"
	-- get the right group
	repeat with s in subscriptions
		if the display name of s is gname then
			set g to s
			exit repeat
		end if
	end repeat
	
	set ret to "Opened these URLs" & return
	repeat with sub in every subscription of g
		if (unread count of sub > 0) then
			repeat with h in every headline of sub
				if not (isRead of h) then
					set ret to ret & return & (the URL of h)
					set hurl to the URL of h
					my openurl(URL of h)
					set the isRead of h to true
				end if
			end repeat
		end if
	end repeat
	return ret
end tell