From cdb2a45112b9ef60f88df1ff511a659a22caf85c Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Thu, 29 Jan 2004 03:42:09 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 7 +++++++ lisp/riece-ctcp.el | 6 +++--- 2 files changed, 10 insertions(+), 3 deletions(-) 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 + + * 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 * 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) -- 2.25.1