Mark all unread emails in *all* folders read

Scripting Forums AppleScript | Mac OS X
#1

I need to create script which marks all unread emails in all folders read in Mail.app. Is this possible?

#2

this will go through all folders in mail and mark as read

tell application “Mail” to repeat with aFolder in (get mailboxes)
set read status of every message of aFolder to true
end repeat