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

rcirc-coding-system-alist.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75b758b0d5d..1d63d52da50 100644
--- 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 a0b328413b0..683d7c6f3c1 100644
--- 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)