-- Downloaded From: http://c-command.com/scripts/mailsmith/show-unread
-- Last Modified: 2007-08-17



tell application "Mailsmith"
   if class of selection is mailbox then
      set mBox to the selection
   else
      set mBox to container of selection
   end if
   set windowName to "Unread Messages from Ò " & name of mBox & " Ó"
   try
      make new mail list window with data every message of mBox whose seen is false with properties {name:windowName}
      sort window 1 by thread title sort direction forward
      set bounds of window 1 to {1, 44, 782, 994}
   on error e
      display dialog e
   end try
end tell