Function apply_voice_event 

fn apply_voice_event(
    messages: &Rc<RefCell<Vec<ChatMessage>>>,
    forest: &Rc<RefCell<ForestView>>,
    event: &VoiceEvent,
) -> Result<()>