tell application "Mailsmith 1.1"
  set the_class to class of window 1
  if the_class is message window then
    set msg_list to {msg to message of window 1}
  else
    set msg_list to selection as list
    if class of item 1 of msg_list is not message then
      display dialog "This script works on selected messages!" buttons {"Oops!"} default button 1
    end if
  end if
  repeat with i from 1 to count items of msg_list
    set msg to item i of msg_list
    set ct to count enclosures of msg
    repeat with j from ct to 1 by -1
      delete enclosure j of msg
    end repeat
  end repeat
end tell