- $smsg->{references} = '<'.join('> <', @refs).'>' if @refs;
- \@refs
-}
-
-sub link_message {
- my ($self, $smsg, $refs, $old_tid) = @_;
- my $tid;
-
- if (@$refs) {
-
- # first ref *should* be the thread root,
- # but we can never trust clients to do the right thing
- my $ref = shift @$refs;
- $tid = $self->_resolve_mid_to_tid($ref);
- $self->merge_threads($tid, $old_tid) if defined $old_tid;
-
- # the rest of the refs should point to this tid:
- foreach $ref (@$refs) {
- my $ptid = $self->_resolve_mid_to_tid($ref);
- merge_threads($self, $tid, $ptid);
- }
- } else {
- $tid = defined $old_tid ? $old_tid : $self->next_thread_id;
- }
- $smsg->{doc}->add_term('G' . $tid);
-}
-
-sub index_blob {
- my ($self, $mime, $bytes, $num, $blob) = @_;
- $self->add_message($mime, $bytes, $num, $blob);