From 0ba690bd8fc8c41f5c74901523f60566f869b363 Mon Sep 17 00:00:00 2001 From: Deniz Dogan Date: Thu, 28 Apr 2011 22:22:51 +0200 Subject: [PATCH] * lisp/net/rcirc.el (rcirc-handler-353): Fix bug for channels which the user has not joined. --- lisp/ChangeLog | 5 +++++ lisp/net/rcirc.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 11b648367fc..835fc7287e6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-04-28 Deniz Dogan + + * net/rcirc.el (rcirc-handler-353): Fix bug for channels which the + user has not joined. + 2011-04-28 Stefan Monnier * pcomplete.el (pcomplete-completions-at-point): Return nil if there diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 663c1ded9f1..148c9b7b297 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -2741,10 +2741,13 @@ the only argument." (defun rcirc-handler-353 (process sender args text) "RPL_NAMREPLY" - (let ((channel (caddr args))) + (let ((channel (nth 2 args)) + (names (or (nth 3 args) ""))) (mapc (lambda (nick) (rcirc-put-nick-channel process nick channel)) - (split-string (cadddr args) " " t)) + (split-string names " " t)) + ;; create a temporary buffer to insert the names into + ;; rcirc-handler-366 (RPL_ENDOFNAMES) will handle it (with-current-buffer (rcirc-get-temp-buffer-create process channel) (goto-char (point-max)) (insert (car (last args)) " ")))) -- 2.39.2