;;; User object:
(defun riece-find-user (name)
"Get a user object named NAME from the server buffer."
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
;;; User object:
(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)
(defun riece-user-toggle-mode (name mode flag)
"Add or remove user MODE of user."
(let* ((user (riece-get-user name))
(defun riece-user-toggle-mode (name mode flag)
"Add or remove user MODE of user."
(let* ((user (riece-get-user name))