-(defun riece-get-users-on-server ()
- (riece-with-server-buffer (if riece-current-channel
- (riece-identity-server riece-current-channel)
- "")
- (let (users)
+(defun riece-get-users-on-server (server-name)
+ (delq nil (mapcar (lambda (identity)
+ (if (riece-user-p (riece-identity-prefix identity))
+ identity))
+ (riece-get-identities-on-server server-name))))
+
+(defun riece-get-identities-on-server (server-name)
+ (riece-with-server-buffer server-name
+ (let (identities)