diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 0704367a8b2..480a779f339 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -2312,14 +2312,16 @@ rcirc-channel-nicks PROCESS is the process object for the current connection." (when target (if (rcirc-channel-p target) - (let ((pseudo-nicks (mapcar #'list rcirc-pseudo-nicks))) + (let ((pseudo-nicks (mapcar #'list rcirc-pseudo-nicks)) + (self (rcirc-nick process))) (with-rcirc-process-buffer process (let (nicks) (maphash (lambda (k v) (let ((record (assoc-string target v t))) - (if record - (setq nicks (cons (cons k (cdr record)) nicks))))) + (when (and record (not (equal k self))) + (push (cons k (cdr record)) + nicks)))) rcirc-nick-table) (mapcar (lambda (x) (car x)) (sort (nconc pseudo-nicks nicks)