This tiny script marks all documents in your DT as read. Cool if using DT for reading RSS feeds.
tell application "DEVONthink Pro"
set unreadItems to search with unread
repeat with unreadItem in unreadItems
set unread of unreadItem to false
end repeat
end tell