-- Downloaded From: http://c-command.com/scripts/mailsmith/enter-search-string-and-send-now
-- Last Modified: 2010-11-27



on enterSearchString()
    tell application "System Events"
        tell application process "Mailsmith"
            click menu item "Enter Search String" of menu "Search" of menu bar 1
        end tell
    end tell
end

on menuselect()
    tell application "Mailsmith"
        tell message window 1
            if (selection as text) is not "" then
                my enterSearchString()
                return true
            else
                return false
            end if
        end tell
    end tell
end menuselect