(defvar erc-read-only-channels
  '("#emacs-es")
  "Lista de canales read-only.")
  
(defun erc-toggle-read-only ()
  (when (member (buffer-name) erc-read-only-channels)
    (toggle-read-only 1)))
  
(add-hook 'erc-join-hook 'erc-toggle-read-only)