projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Prevent an args-out-of-range error during login/out
[riece]
/
lisp
/
riece-irc.el
diff --git
a/lisp/riece-irc.el
b/lisp/riece-irc.el
index
004f0bc
..
5b56993
100644
(file)
--- 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>
;; 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
(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
(riece-process-send-string process
(format "USER %s * * :%s\r\n"
(or username