Send mail

[Back]

# Ask for address
mailto = string_dialog("Mail to: (default: alberto@coker)", "OK", "Cancel")
if ($string_dialog_button == 2) return

# Set default value if not given
if (mailto == "")
    mailto = "alberto@coker"

# If no selection, send the whole window contents
if ($selection_start == -1) {
    start = 0
    end = $text_length
} else {
    start = $selection_start
    end = $selection_end
}

# Issue the command
string = get_range(start, end)
shell_command("mail " mailto, string)

# Check command status
if ($shell_cmd_status == 0)
    dialog("Mail sent correctly")
else
    dialog("Mail not sent")

Released on  Wed, 21 Nov 2001  by C. Denat