// 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)