let get_enclosure xmls =
  try
    match List.find (find_ele "enclosure") xmls with
      Element (_,atts,_) ->
        Some { encl_url = get_att atts "url" ;
               encl_length = int_of_string (get_att atts "length") ;
               encl_type = get_att atts "type" ;
             }
    | _ ->
        None
  with
    _ ->
      None