set ret_text to button returned of (display dialog "Attach to new or current message?" buttons {"New", "Current", "Cancel"} default button "New")

if ret_text is "New" then
    tell application "BBEdit 5.0"
        set the_file to file of window 1
    end tell
    tell application "Mailsmith 1.1"
        make new message window
        make new enclosure at end of window 1 with properties {file:the_file}
        activate
    end tell
end if

if ret_text is "Current" then
    tell application "BBEdit 5.0"
        set the_file to file of window 1
    end tell
    tell application "Mailsmith 1.1"
        set current_message to first message window
        
        make new enclosure at end of current_message with properties {file:the_file}

        set index of current_message to 1
        activate
    end tell
end if