tell application "Mailsmith 1.1"
    set m_list to selection as list
    set m to item 1 of m_list
    set c to container of m
    set s to subject of m
    if s starts with "Re: " then
        set ct to count characters of s
        set s to characters 5 thru ct of s as text
    end if
    set n to "Thread: " & s as text
    make new mail list window with data every message of c whose subject contains s with properties {name:n}
end tell