(riece-make-identity channel riece-server-name))
channels))))
(riece-naming-assert-rename old new)
- (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)))
(riece-insert-change (mapcar
(lambda (channel)
- (riece-channel-buffer-name
- (riece-make-identity channel riece-server-name)))
+ (riece-channel-buffer (riece-make-identity
+ channel riece-server-name)))
channels)
(format "%s -> %s\n"
(riece-format-identity old-identity t)
(riece-naming-assert-join user (car channels))
(let* ((channel-identity (riece-make-identity (car channels)
riece-server-name))
- (buffer (get-buffer (riece-channel-buffer-name
- channel-identity))))
+ (buffer (riece-channel-buffer channel-identity)))
(riece-insert-change
buffer
(format "%s (%s) has joined %s\n"
(riece-naming-assert-part user (car channels))
(let* ((channel-identity (riece-make-identity (car channels)
riece-server-name))
- (buffer (get-buffer (riece-channel-buffer-name
- channel-identity))))
+ (buffer (riece-channel-buffer channel-identity)))
(riece-insert-change
buffer
(concat
(channel-identity (riece-make-identity channel riece-server-name))
(user-identity (riece-make-identity user riece-server-name)))
(riece-naming-assert-part user channel)
- (let ((buffer (get-buffer (riece-channel-buffer-name channel-identity))))
+ (let ((buffer (riece-channel-buffer channel-identity)))
(riece-insert-change
buffer
(concat
(let ((buffers
(mapcar
(lambda (channel)
- (get-buffer
- (riece-channel-buffer-name
- (riece-make-identity channel riece-server-name))))
+ (riece-channel-buffer (riece-make-identity channel
+ riece-server-name)))
channels)))
(riece-insert-change
buffers
(let ((buffers
(mapcar
(lambda (channel)
- (get-buffer
- (riece-channel-buffer-name
- (riece-make-identity channel riece-server-name))))
+ (riece-channel-buffer (riece-make-identity channel
+ &nb