From 01858c96fa83e2c2b6af7a21096247d9a82cacd7 Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 23 Jan 2004 19:23:56 +0000 Subject: [PATCH] * riece-handle.el (riece-handle-privmsg-message): Check own message from server. For deal with another client that connected same irc proxy (e.g. plum, pirc). --- lisp/ChangeLog | 6 ++++++ lisp/riece-handle.el | 11 +++++++---- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8e2f43c..5fa05ae 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-01-23 TAKAHASHI Kaoru + + * riece-handle.el (riece-handle-privmsg-message): Check own + message from server. For deal with another client that connected + same irc proxy (e.g. plum, pirc). + 2004-01-21 Daiki Ueno * riece-identity.el (riece-identity-canonicalize-prefix): Convert diff --git a/lisp/riece-handle.el b/lisp/riece-handle.el index 0e35d5c..17d4b09 100644 --- a/lisp/riece-handle.el +++ b/lisp/riece-handle.el @@ -67,13 +67,16 @@ (let* ((user (riece-prefix-nickname prefix)) (parameters (riece-split-parameters string)) (targets (split-string (car parameters) ",")) - (message (nth 1 parameters))) + (message (nth 1 parameters)) + (speaker (riece-make-identity user riece-server-name))) (riece-display-message - (riece-make-message (riece-make-identity user - riece-server-name) + (riece-make-message speaker (riece-make-identity (car targets) riece-server-name) - message)))) + message + nil + (riece-identity-equal + speaker (riece-current-nickname)))))) (defun riece-handle-notice-message (prefix string) (let* ((user (if prefix -- 1.7.10.4