;;; Channel object:
(defun riece-find-channel (name)
"Get a channel object named NAME from the server buffer."
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
;;; Channel object:
(defun riece-find-channel (name)
"Get a channel object named NAME from the server buffer."
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)