[cl-irc-cvs] r205 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri May  4 06:54:12 2007
New Revision: 205

Modified:
   trunk/command.lisp
Log:
Make privmsg work for dcc CHAT connections.

Modified: trunk/command.lisp
==============================================================================
--- trunk/command.lisp	(original)
+++ trunk/command.lisp	Fri May  4 06:54:12 2007
@@ -228,6 +228,10 @@
 (defmethod privmsg ((connection connection) (channel channel) (message string))
   (privmsg connection (name channel) message))
 
+(defmethod privmsg ((connection dcc-chat-connection) target message)
+  (declare (ignore target))
+  (send-dcc-message connection message))
+
 (defmethod notice ((connection connection) (target string) (message string))
   (send-irc-message connection :notice target message))