sub start_element {
    my ($self, $element) = @_;

    $self->{parsing_markup} = allow_markup($element->{Name});

    $self->SUPER::start_element($element);
}