From: ueno <ueno>
Date: Thu, 29 Jan 2004 03:42:10 +0000 (+0000)
Subject: * riece-ctcp.el (riece-handle-ctcp-version-request): Format target
X-Git-Tag: signal-slot-branchpoint~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=96a9a95b33961f72f087abaf49c8adcbc7dcc0d1;p=elisp%2Friece.git

* riece-ctcp.el (riece-handle-ctcp-version-request): Format target
identity before display.
(riece-handle-ctcp-ping-request): Ditto.
(riece-handle-ctcp-clientinfo-request): Ditto.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e4c66a..759e3e9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2004-01-29  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-ctcp.el (riece-handle-ctcp-version-request): Format target
+	identity before display.
+	(riece-handle-ctcp-ping-request): Ditto.
+	(riece-handle-ctcp-clientinfo-request): Ditto.
+
 2004-01-28  Daiki Ueno  <ueno@unixuser.org>
 
 	* Riece: Version 0.1.8 released.
diff --git a/lisp/riece-ctcp.el b/lisp/riece-ctcp.el
index 8c8ba1c..8baad1d 100644
--- a/lisp/riece-ctcp.el
+++ b/lisp/riece-ctcp.el
@@ -127,7 +127,7 @@
        (format "CTCP VERSION from %s (%s) to %s"
 	       user
 	       (riece-strip-user-at-host (riece-prefix-user-at-host prefix))
-	       target))
+	       (riece-format-identity target t)))
       "\n"))))
 
 (defun riece-handle-ctcp-ping-request (prefix target string)
@@ -150,7 +150,7 @@
        (format "CTCP PING from %s (%s) to %s"
 	       user
 	       (riece-strip-user-at-host (riece-prefix-user-at-host prefix))
-	       target))
+	       (riece-format-identity target t)))
       "\n"))))
 
 (defun riece-handle-ctcp-clientinfo-request (prefix target string)
@@ -186,7 +186,7 @@
        (format "CTCP CLIENTINFO from %s (%s) to %s"
 	       user
 	       (riece-strip-user-at-host (riece-prefix-user-at-host prefix))
-	       target))
+	       (riece-format-identity target t)))
       "\n"))))
 
 (defun riece-handle-ctcp-action-request (prefix target string)