diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <deniz@dogan.se> + + * net/rcirc.el (rcirc-handler-353): Fix bug for channels which the + user has not joined. + 2011-04-28 Stefan Monnier <monnier@iro.umontreal.ca> * 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)) " ")))) |