-- Downloaded From: http://c-command.com/scripts/mailsmith/mark-mailbox-read
-- Last Modified: 2007-08-17



on run
   tell application "Mailsmith"
      set mBoxList to get selection as list
      repeat with mBox in mBoxList
         my markRead(mBox)
      end repeat
   end tell
end run

on markRead(mBox)
   tell application "Mailsmith"
      set unreadMail to (every message of mBox whose seen is false)
      repeat with m in unreadMail
         set seen of m to true
      end repeat
      
      set ct to count mailboxes of mBox
      if ct is 0 then return
      repeat with i from 1 to ct
         set m to mailbox i of mBox
         my markRead(m)
      end repeat
   end tell
end markRead