- (let ((pointer (riece-identity-member old-identity
- riece-current-channels)))
- (when pointer
- (setcar pointer new-identity)
- (with-current-buffer (riece-channel-buffer-name new-identity)
- (rename-buffer (riece-channel-buffer-name new-identity)))
- (if (riece-identity-equal new-identity riece-current-channel)
- (riece-switch-to-channel new-identity))
- (setq channels (cons new-identity channels))))
+ (if (riece-identity-member old-identity riece-current-channels)
+ (setq channels (cons new channels)))