(defun riece-find-user (name)
"Get a user object named NAME from the server buffer."
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
(defun riece-find-user (name)
"Get a user object named NAME from the server buffer."
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
(defun riece-rename-user (old-name new-name)
(unless (equal (riece-identity-canonicalize-prefix old-name)
(riece-identity-canonicalize-prefix new-name))
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix old-name)
(defun riece-rename-user (old-name new-name)
(unless (equal (riece-identity-canonicalize-prefix old-name)
(riece-identity-canonicalize-prefix new-name))
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix old-name)