+ if (my $refs = $self->{references_sorted}) {
+ push @h, References => $refs;
+ }
+ my $mime = Email::MIME->create(header_str => \@hs, header => \@h);
+ my $h = $mime->header_obj;
+
+ # set these headers manually since Encode::encode('MIME-Q', ...)
+ # will add spaces to long values when using header_str above.