+foreach $ref (@ref) {
+ next if $ref->{private};
+ unless (grep {$_ eq $call} @{$ref->{gotit}}) {
+ push @{$ref->{gotit}}, $call; # mark this up as being received
+ $ref->store( [ $ref->read_msg_body() ] ); # re- store the file
+ push @out, $self->msg('m14', $ref->{msgno}, $call);
+ }
+}