--- trunk/MWS_swish.pm	2004/05/06 12:40:11	12
+++ trunk/MWS_swish.pm	2004/05/06 16:53:40	13
@@ -46,7 +46,22 @@
 	my @r;
 
 	while ( my $result = $results->NextResult ) {
-		push @r, $result->Property( "swishdocpath" );
+		my $id = $result->Property( "swishdocpath" );
+		push @r, $id;
+
+
+		foreach my $p (qw(from to cc bcc)) {
+			@{$self->{cache}->{$id}->{$p}} = split(/##/, $result->Property($p.'_phrase'));
+		}
+
+		foreach my $p (qw(subject body date)) {
+			$self->{cache}->{$id}->{$p} = $result->Property($p);
+		}
+
+		$self->{cache}->{$id}->{'body'} =~ s/##lf##/\n/gs;
+
+		# this is redundant, but needed for templates later...
+		$self->{cache}->{$id}->{'id'} = $id;
 	}
 
 	return @r;