dup

$folder->dup(msg_num, \$folder_ref)