* 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 (file)
--- 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 (file)
--- 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)