[Xubera]

local old = SendChatMessage

local new = function(message, ...)
        local channel = ...
        if channel == "GUILD" or channel == "SAY" or channel == "YELL" then
	    if message:len() > 0 and not message:match("^/") then
		    message = message:replace("r", "rr"):replace("rrrr", "rr"):replace("R" "RR"):replace("RRRR", "RR")
	    end
        end
	old(message, ...)
end

SendChatMessage = new

SLASH_ADDONNAME1 = "/doubler"

SlashCmdList.ADDONNAME = function()
	if SendChatMessage == new then
		SendChatMessage = old
		DEFAULT_CHAT_FRAME:AddMessage("AddonName disabled.")
	else
		SendChatMessage = new
		DEFAULT_CHAT_FRAME:AddMessage("AddonName enabled.")
	end
end