let item () =
  {
    item_title = "";
    item_date = Tdl_date.parse (Tdl_date.mk_mail_date (Unix.time ()));
    item_enddate = None ;
    item_desc = None ;
    item_state = Priority_normal ;
    item_id = None ;
  }