- if (@quot) {
- my $s = join("\n", @quot);
- @quot = ();
- $tg->index_text($s, 1, 'XQUOT');
- $tg->index_text($s, 0, 'XBS');
- $tg->index_text($s, 0, 'XBODY');
- $tg->index_text($s, 0);
- $tg->increase_termpos;
- }
- if (@orig) {
- my $s = join("\n", @orig);
- @orig = ();
- $tg->index_text($s, 1, 'XNQ');
- $tg->index_text($s, 1, 'XBS');
- $tg->index_text($s, 1, 'XBODY');
- $tg->index_text($s);
- $tg->increase_termpos;
- }
+ index_body($tg, \@quot, 0) if @quot;
+ index_body($tg, \@orig, 1) if @orig;