-- Show Unread
-- https://c-command.com/scripts/mailsmith/show-unread
-- Summary: Shows unread messages sorted by thread.
-- Requires: Mailsmith 1.5
-- Install Location: 
-- Last Modified: 2019-05-24



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