KinoSearch, the code

    my %fields = (
	from => 'From',
	subject => 'Subject',
	to => 'To',
	message_id => 'Message-Id',
	body => undef,
    );

    for my $field (keys %fields) {
	 $invindexer->spec_field(name => $field, stored => 0);
    }

    $invindexer->spec_field(name => 'position', stored => 1);
    $invindexer->spec_field(name => 'content',  stored => 1);

    my $file_name = shift;