From: TAKAHASHI Kaoru <kaoru@kaisei.org>
Date: Fri, 23 Jan 2004 19:23:56 +0000 (+0000)
Subject: * riece-handle.el (riece-handle-privmsg-message): Check own
X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=c25d70d909973165534487d5cd529a11b5987f43

* 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).
---

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  <kaoru@kaisei.org>
+
+	* 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  <ueno@unixuser.org>
 
 	* 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