anchor.diff:             server            = make_server_header(),
              connection        = make_connection_close_header(DoClose),
              content_type      = make_content_type_header(UT#urltype.mime),
  -           expires           = make_expires_header(UT#urltype.mime,
  -                                                   UT#urltype.finfo),
  -           cache_control     = make_cache_control_header(UT#urltype.mime,
  -                                                         UT#urltype.finfo),
              doclose           = DoClose,
              chunked           = Chunked,
              transfer_encoding = make_transfer_encoding_chunked_header(Chunked)},
  -
  +    %% store finfo to set last_modified, expires and cache_control headers
  +    %% during #outh{} serialization.
  +    put(file_info, UT#urltype.finfo),
       put(outh, H2).
   
   
  
positive.code:     ok.
  
  outh_set_content_type(Mime) ->
      put(outh, (get(outh))#outh{content_type = make_content_type_header(Mime)}),
      ok.
  
  
negative.code:                      undefined -> make_content_encoding_header(H#outh.encoding);
                       CE        -> CE
                   end,
      {LastModified, Expires, CacheControl} =
          case erase(file_info) of
              undefined ->
                  {H#outh.last_modified, H#outh.expires, H#outh.cache_control};
              FI ->
                  LM = case H#outh.last_modified of
                           undefined ->
                               make_last_modified_header(FI);
                           _ ->
                               H#outh.last_modified
                       end,
                  {E, CC} = case {H#outh.expires, H#outh.cache_control} of
                                {undefined, undefined} ->
                                    CT = outh_get_content_type(),
                                    make_expires_header(CT, FI);
                                _ ->
                                    {H#outh.expires, H#outh.cache_control}
                            end,
                  {LM, E, CC}
          end,
      Headers = [noundef(H#outh.connection),
                 noundef(H#outh.server),
                 noundef(H#outh.location),
                 noundef(H#outh.date),
                 noundef(H#outh.allow),
                 noundef(LastModified),
                 noundef(Expires),
                 noundef(CacheControl),
                 noundef(H#outh.etag),
                 noundef(H#outh.content_range),
                 noundef(H#outh.content_length),
  