+(defun lirc-del-users (&rest users)
+ (dolist (channel lirc-channel-list)
+ (apply #'lirc-del-channel-users (cons (car channel) users))))
+
+(defun lirc-rename-user (old-nick new-nick)
+ (dolist (channel lirc-channel-list)
+ (let ((channel-name (car channel))
+ (channel-users (cdr channel)))
+ (when (memq old-nick channel-users)
+ (lirc-del-channel-users old-nick)
+ (lirc-add-channel-users new-nick)))))
+