Delete Enclosures

What is this?
This script deletes the enclosures of the messages you have selected.
This action is not reversible and the does a minimum of error checking.
Note: You don't need this script to delete an enclosure since it's possible to do it manually. Look at the script as an scripting exercise.


tell application "Mailsmith 1.1"
  set addr to {}
  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 -- try with the assumption a list of messages is selected
    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
    if enclosure of item i of msg_list then
      delete enclosures of item i of msg_list
    end if
  end repeat
end tell