From aac5d1fdcef39ff30bdb47192791b4bf6c08b5d4 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 23 Jun 2006 13:23:39 +0000 Subject: [PATCH] (rcirc-mode): Fix initialization of coding systems based on rcirc-coding-system-alist. --- lisp/ChangeLog | 5 +++++ lisp/net/rcirc.el | 4 ++-- 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 + + * 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) -- 2.39.5