X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-irc.el;h=5b569936147b1d8936b6b8444a3d75bf741a23e1;hp=004f0bc1f28b0fb4c0c0976cde5abf8727c2e6fc;hb=HEAD;hpb=5d369e177bb8ccc3ac899f178f59e19a0b457ea3

diff --git a/lisp/riece-irc.el b/lisp/riece-irc.el
index 004f0bc..5b56993 100644
--- a/lisp/riece-irc.el
+++ b/lisp/riece-irc.el
@@ -1,4 +1,4 @@
-;;; riece-irc.el --- IRC protocol
+;;; riece-irc.el --- IRC protocol -*- lexical-binding: t -*-
 ;; Copyright (C) 1998-2004 Daiki Ueno
 
 ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -86,7 +86,10 @@
 	(unless realname
 	  (setq realname (riece-mcat "No information given")))
 	(if coding
-	    (setq realname (encode-coding-string realname coding)))
+	    (setq realname (encode-coding-string realname
+						 (if (consp coding)
+						     (cdr coding)
+						   coding))))
 	(riece-process-send-string process
 				   (format "USER %s * * :%s\r\n"
 					   (or username