Fix RaidFrame Taint [Proof of Concept]

-- http://www.curse.com/addons/wow/showraidframe#c4

local container = CompactRaidFrameContainer

local t = {
    discrete = "flush",
    flush = "discrete",
}

local function FixTaintBug(self)
    -- secure or still in combat somehow
    if issecurevariable("CompactRaidFrame1") or InCombatLockdown() or not container:IsShown() then return end

    -- Bug #1: left/joined players not updated
    -- Bug #2: sometimes selecting different than the intended target

    -- change back and forth from flush <-> discrete
    local mode = container.groupMode -- groupMode changes after _SetGroupMode calls
    CompactRaidFrameContainer_SetGroupMode(container, t[mode]) -- forth
    CompactRaidFrameContainer_SetGroupMode(container, mode) -- back
end

local f = CreateFrame("Frame")
f:RegisterEvent("PLAYER_REGEN_ENABLED")
f:SetScript("OnEvent", FixTaintBug)