on run
  tell application "Mailsmith 1.1"
    set xs to selection
    if class of xs ≠ list then
      set xs to xs as list
    end if
    repeat with currentItem from 1 to the number of items of xs
      set m to item currentItem of xs
      -- Check to make sure that the selection is something
      -- the script understands what to do with
      if class of m = string then
        set m to message of window 1
      else if class of m ≠ message then
        display dialog ¬
          "Oppps, you have to select a message for this script to work" buttons {"OK"} default button "OK"
        return
      end if
      set c to container of m
      set y to originator of m
      set adr to address string of y
      make new mail list window with data every message of c whose originator contains adr with properties {name:"Author: " & adr}
    end repeat
  end tell
end run