[Emacs-diffs] /srv/bzr/emacs/trunk r104043: * lisp/net/rcirc.el (rcirc-handler-353): Fix bug for channels which the

[Deniz Dogan]

------------------------------------------------------------
revno: 104043
committer: Deniz Dogan <address@hidden>
branch nick: emacs-trunk
timestamp: Thu 2011-04-28 22:22:51 +0200
message:
  * lisp/net/rcirc.el (rcirc-handler-353): Fix bug for channels which the
  user has not joined.
modified:
  lisp/ChangeLog
  lisp/net/rcirc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-28 19:39:11 +0000
+++ b/lisp/ChangeLog    2011-04-28 20:22:51 +0000
@@ -1,3 +1,8 @@
+2011-04-28  Deniz Dogan  <address@hidden>
+
+       * net/rcirc.el (rcirc-handler-353): Fix bug for channels which the
+       user has not joined.
+
 2011-04-28  Stefan Monnier  <address@hidden>
 
        * pcomplete.el (pcomplete-completions-at-point): Return nil if there

=== modified file 'lisp/net/rcirc.el'
--- a/lisp/net/rcirc.el 2011-04-05 04:33:38 +0000
+++ b/lisp/net/rcirc.el 2011-04-28 20:22:51 +0000
@@ -2741,10 +2741,13 @@
 
 (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)) " "))))