(defun erc-mark-current-buffer-my ()
  (interactive)
  (let ((buf (current-buffer)))
    (switch-to-buffer "*scratch*")
    (sleep-for 0.2)
    (setf
     erc-modified-channels-alist
     (cons
      (cons buf (cons 1 'erc-inverse-face))
      erc-modified-channels-alist)))
  (erc-show-buffers-my))

(defun erc-show-buffers-my ()
  (interactive)
  (message "Channel list is %s" erc-modified-channels-alist))