projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Support Scandinavian alphabets, described in RFC2812, 2.2.
[riece]
/
lisp
/
riece-ctcp.el
diff --git
a/lisp/riece-ctcp.el
b/lisp/riece-ctcp.el
index
b878347
..
1110ca2
100644
(file)
--- a/
lisp/riece-ctcp.el
+++ b/
lisp/riece-ctcp.el
@@
-83,7
+83,7
@@
(defun riece-handle-ctcp-version-request (prefix target string)
(let ((buffer (if (riece-channel-p target)
(defun riece-handle-ctcp-version-request (prefix target string)
(let ((buffer (if (riece-channel-p target)
- (cdr (riece-identity-assoc
-no-server
+ (cdr (riece-identity-assoc
(riece-make-identity target)
riece-channel-buffer-alist))))
(user (riece-prefix-nickname prefix)))
(riece-make-identity target)
riece-channel-buffer-alist))))
(user (riece-prefix-nickname prefix)))
@@
-105,7
+105,7
@@
(defun riece-handle-ctcp-ping-request (prefix target string)
(let ((buffer (if (riece-channel-p target)
(defun riece-handle-ctcp-ping-request (prefix target string)
(let ((buffer (if (riece-channel-p target)
- (cdr (riece-identity-assoc
-no-server
+ (cdr (riece-identity-assoc
(riece-make-identity target)
riece-channel-buffer-alist))))
(user (riece-prefix-nickname prefix)))
(riece-make-identity target)
riece-channel-buffer-alist))))
(user (riece-prefix-nickname prefix)))
@@
-129,7
+129,7
@@
(defun riece-handle-ctcp-clientinfo-request (prefix target string)
(let ((buffer (if (riece-channel-p target)
(defun riece-handle-ctcp-clientinfo-request (prefix target string)
(let ((buffer (if (riece-channel-p target)
- (cdr (riece-identity-assoc
-no-server
+ (cdr (riece-identity-assoc
(riece-make-identity target)
riece-channel-buffer-alist))))
(user (riece-prefix-nickname prefix)))
(riece-make-identity target)
riece-channel-buffer-alist))))
(user (riece-prefix-nickname prefix)))
@@
-166,7
+166,7
@@
(defun riece-handle-ctcp-action-request (prefix target string)
(let ((buffer (if (riece-channel-p target)
(defun riece-handle-ctcp-action-request (prefix target string)
(let ((buffer (if (riece-channel-p target)
- (cdr (riece-identity-assoc
-no-server
+ (cdr (riece-identity-assoc
(riece-make-identity target)
riece-channel-buffer-alist))))
(user (riece-prefix-nickname prefix)))
(riece-make-identity target)
riece-channel-buffer-alist))))
(user (riece-prefix-nickname prefix)))
@@
-292,7
+292,7
@@
(riece-send-string (format "PRIVMSG %s :\1ACTION %s\1\r\n"
(riece-identity-prefix channel)
action))
(riece-send-string (format "PRIVMSG %s :\1ACTION %s\1\r\n"
(riece-identity-prefix channel)
action))
- (let ((buffer (cdr (riece-identity-assoc
-no-server
+ (let ((buffer (cdr (riece-identity-assoc
(riece-make-identity channel)
riece-channel-buffer-alist))))
(riece-insert-change
(riece-make-identity channel)
riece-channel-buffer-alist))))
(riece-insert-change