[Mldonkey-commits] Changes to mldonkey/src/gtk2/im/guiImRooms.ml

[mldonkey-commits]

Index: mldonkey/src/gtk2/im/guiImRooms.ml
diff -u mldonkey/src/gtk2/im/guiImRooms.ml:1.2 
mldonkey/src/gtk2/im/guiImRooms.ml:1.3
--- mldonkey/src/gtk2/im/guiImRooms.ml:1.2      Mon Oct 31 18:34:03 2005
+++ mldonkey/src/gtk2/im/guiImRooms.ml  Sat Nov 12 11:16:36 2005
@@ -249,15 +249,15 @@
 (*                                                                       *)
 (*************************************************************************)
 
-let update_identity id_new idstore =
+let update_identity id_new (idstore : g_identity) =
   try
     let id = Hashtbl.find id_by_num (identity_num id_new) in
     let row = idstore#find_row (id_key (identity_num id_new)) in
-    idstore#update_item row id id_new;
+    Gaux.may ~f:(fun r -> idstore#update_item r id id_new) row;
     Hashtbl.replace id_by_num (identity_num id_new) id_new
   with _ ->
     begin
-      ignore (idstore#add_item id_new);
+      idstore#add_item id_new ();
       Hashtbl.add id_by_num (identity_num id_new) id_new
     end
 
@@ -303,7 +303,7 @@
 
       | Room_user_join (_, identity) ->
           update_identity identity ro.store
-      
+
       | Room_user_leave (_, identity) ->
           remove_identity identity ro.store