int
list_delete_all (struct list *lst, char *str)
{
  int pos;
  while ((pos = list_index_of (lst, str)) != -1)
    {
      if (! list_cut (lst, pos))
        return 0;
    } // while
  return 1;
} // list_delete_all