- (unless (memq user speakers)
- (riece-channel-set-speakers channel (cons user speakers)))
- (if (setq user (car (memq user speakers)))
- (riece-channel-set-speakers channel (delq user speakers))))))
-
-(defun riece-channel-operator-p (channel user)
- "Return non-nil, if USER has operator privileges in channel."
- (memq (riece-channel-intern-user channel user)
- (riece-channel-operators channel)))
-
-(defun riece-channel-speaker-p (channel user)
- "Return non-nil, if USER is allowed to speak in channel."
- (memq (riece-channel-intern-user channel user)
- (riece-channel-speakers channel)))
+ (if user
+ (unless (memq ?v (cdr user))
+ (setcdr user (cons ?v (cdr user))))
+ (riece-channel-set-users channel (cons (list user ?v) users)))
+ (if user
+ (setcdr user (delq ?v (cdr user)))))))