diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 60751c14e2..e5663d3fe6 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -3149,7 +3149,11 @@ rcirc-handler-NICK (with-current-buffer chat-buffer (rcirc-print process sender "NICK" old-nick new-nick) (setq rcirc-target new-nick) - (rename-buffer (rcirc-generate-new-buffer-name process new-nick))))) + (rename-buffer (rcirc-generate-new-buffer-name process new-nick)))) + (setf rcirc-buffer-alist + (cons (cons new-nick chat-buffer) + (delq (assoc-string old-nick rcirc-buffer-alist t) + rcirc-buffer-alist)))) ;; remove old nick and add new one (with-rcirc-process-buffer process (let ((v (gethash old-nick rcirc-nick-table)))