// MAILTO.VDM V1.0
//
// Written by Scott Lambert 02/98
//
// If no block is set, asks for the email address on the status line, and inserts
// with the email after the : and between the "> and
//
// if block is set, and block contains no @, asks for the email address on the
// status line, and inserts with the address after the :
// and the block between the "> and the
//
// if block is set, and block contains an @, assumes block is an email address
// and inserts with the address after the :
// and between the "> and the
//
if(block_begin==-1) {
reg_empty(12)
reg_set(12,//,append)
reg_set(12,@10,append)
reg_set(12,"",append)
reg_ins(12)
break_out(extra)
}
if(block_end==-1) {
block_end(Cur_Pos)
}
goto_pos(Block_Begin)
#30=0
Search_Block("|064",Block_Begin,Block_End,noerr)
#30=Error_Match
reg_copy_block(11,block_begin,block_end,delete)
reg_empty(12)
reg_set(12,/0) {
get_input(10,"Email Address =",nocr+statline)
reg_set(12,@10,append)
} else {
reg_set(12,@11,append)
}
reg_set(12,/">/,append)
reg_set(12,@11,append)
reg_set(12,"",append)
reg_ins(12)