From: Eli Zaretskii Date: Fri, 23 Jun 2006 13:23:39 +0000 (+0000) Subject: (rcirc-mode): Fix initialization of coding systems based on X-Git-Tag: emacs-pretest-22.0.90~1870 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aac5d1fdcef39ff30bdb47192791b4bf6c08b5d4;p=emacs.git (rcirc-mode): Fix initialization of coding systems based on rcirc-coding-system-alist. --- 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 + + * net/rcirc.el (rcirc-mode): Fix initialization of coding systems + based on rcirc-coding-system-alist. + 2006-06-23 Martin Rudalics * 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)