so 
```perl
    my $body = {
        'template_id' => 'editor-message',
        'to'          => _user_address($to),
        'from'        => $EMAIL_NOREPLY_ADDRESS,
        # 'lang'
        'message_id'  => _message_id('correspondence-%s-%s-%d', $correspondents[0]->id, $correspondents[1]->id, $time),
        'references'  => [_message_id('correspondence-%s-%s', $correspondents[0]->id, $correspondents[1]->id)],
        'in_reply_to' => [_message_id('correspondence-%s-%s', $correspondents[0]->id, $correspondents[1]->id)],
        'params'      => {
            'to_name' => $to -> name,
            'from_name' => $from -> name,
            'subject' => $subject,
            'message' => $message,
            'contact_url' => $contact_url
        }
    };
    
    if ($opts{reveal_address}) {
        $body->{'reply_to'} = _user_address($from);
    } else {
        $body->{'reply_to'} = $EMAIL_NOREPLY_ADDRESS;
    }
```
?