- $self->index_text(join("\n", @xnq), 1, 'XNQ');
-}
-
-sub index_body ($$$) {
- my ($self, $lines, $doc) = @_;
- my $txt = join("\n", @$lines);
- if ($doc) {
- # does it look like a diff?
- if ($txt =~ /^(?:diff|---|\+\+\+) /ms) {
- $txt = undef;
- $self->index_diff($lines, $doc);
- } else {
- $self->index_text($txt, 1, 'XNQ');
- }
- } else {
- $self->index_text($txt, 0, 'XQUOT');
- }
- @$lines = ();
+ index_text($self, join("\n", @xnq), 1, 'XNQ');