(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)