let add_po_translation_domain domain po po_translation =
  {
    po with domain =
      let map_domain = 
        try
          MapTextdomain.find domain po.domain
        with Not_found ->
          MapString.empty
      in
      let map_domain = 
        add_po_translation_aux map_domain po_translation
      in
      MapTextdomain.add domain map_domain po.domain
  }