(rcirc-mode): Fix initialization of coding systems based on

rcirc-coding-system-alist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75b758b0d5d81764fd77dc6775420d509156eee9..1d63d52da500115072365e63b065f396de6db02f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-23  Ryan Yeske  <rcyeske@gmail.com>
+
+       * net/rcirc.el (rcirc-mode): Fix initialization of coding systems
+       based on rcirc-coding-system-alist.
+
 2006-06-23  Martin Rudalics  <rudalics@gmx.at>
 
        * cus-edit.el (customize-apropos): A better error message.

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index a0b328413b0c6f29d51f328312b78ec3b9ea9946..683d7c6f3c11b587551e82669ffd804c9753359f 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -719,8 +719,8 @@ If NOTICEP is non-nil, send a notice instead of privmsg."
          (serv (if (consp (car i)) (cdar i) "")))
       (when (and (string-match chan (or target ""))
                 (string-match serv (rcirc-server-name process)))
-       (setq rcirc-decode-coding-system (if (consp (cdr i)) (cadr i) i)
-             rcirc-encode-coding-system (if (consp (cdr i)) (cddr i) i)))))
+       (setq rcirc-decode-coding-system (if (consp (cdr i)) (cadr i) (cdr i))
+             rcirc-encode-coding-system (if (consp (cdr i)) (cddr i) (cdr i))))))
 
   ;; setup the prompt and markers
   (make-local-variable 'rcirc-prompt-start-marker)