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 ; }