let rss_item_of_tdl_item i =
  match i.item_enddate with
    None -> None
  | Some d ->
      let pubdate =
        { Rss.year = d.year ;
          Rss.month = d.month ;
          Rss.day = d.day ;
          Rss.hour = d.hour ;
          Rss.minute = d.minute ;
          Rss.second = d.second ;
          Rss.zone = d.zone ;
          Rss.week_day = d.week_day ;
        }
      in
      Some
        (Rss.item
         ~title: i.item_title
           ?desc: i.item_desc
           ~pubdate
           ()
        )