diff options
| author | Deniz Dogan <deniz@dogan.se> | 2011-04-28 22:22:51 +0200 |
|---|---|---|
| committer | Deniz Dogan <deniz@dogan.se> | 2011-04-28 22:22:51 +0200 |
| commit | 0ba690bd8fc8c41f5c74901523f60566f869b363 (patch) | |
| tree | dd5f0a2ae0a91768b44b09e980cce37ff028e1e6 /lisp/net/rcirc.el | |
| parent | fdc5744d4f448c2250d798b0c271910cd6254f2d (diff) | |
| download | emacs-0ba690bd8fc8c41f5c74901523f60566f869b363.tar.gz | |
* lisp/net/rcirc.el (rcirc-handler-353): Fix bug for channels which the
user has not joined.
Diffstat (limited to 'lisp/net/rcirc.el')
| -rw-r--r-- | lisp/net/rcirc.el | 7 |
1 files changed, 5 insertions, 2 deletions
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)) " ")))) |