* mailbox/list.c (list_destroy) : Call to list->destroy_item() when

        the data is free().
        (list_set_destroy_item): New function.

@@ -62,6 +62,8 @@ list_destroy (list_t *plist)
 	{
 	{
 	  previous = current;
 	  previous = current;
 	  current = current->next;
 	  current = current->next;
+	  if (list->destroy_item)
+	    list->destroy_item (previous->item);
 	  free (previous);
 	  free (previous);
 	}
 	}
       monitor_unlock (list->monitor);
       monitor_unlock (list->monitor);
@@ -293,3 +295,11 @@ list_do (list_t list, list_action_t * action, void *cbdata)
   monitor_unlock (list->monitor);
   monitor_unlock (list->monitor);
   return status;
   return status;
 }
 }
+
+int
+list_set_destroy_item (list_t list, void (*destroy_item)(void *item))
+{
+  if (list == NULL)
+    return EINVAL;
+  list->destroy_item = destroy_item;
+}