Author: ehuelsmann Date: Tue Apr 24 18:23:39 2007 New Revision: 200

Modified: trunk/event.lisp trunk/package.lisp Log: r199 followup: read-message calls dcc-message-event. Provide it.

Modified: trunk/event.lisp ============================================================================== --- trunk/event.lisp (original) +++ trunk/event.lisp Tue Apr 24 18:23:39 2007 @@ -15,6 +15,16 @@ (unless (apply-to-hooks message) (client-log (connection message) message "UNHANDLED-EVENT:")))

+(defgeneric dcc-message-event (connection message) + (:documentation "Upon receipt of an IRC message from the +connection's stream, irc-message-event will be called with the +message.")) + +(defmethod dcc-message-event (connection (message dcc-message)) + (declare (ignore connection)) + (unless (apply-to-hooks message) + (client-log (connection message) message "UNHANDLED-EVENT:"))) +

(defgeneric default-hook (message) (:documentation "Minimum action to be executed upon reception

Modified: trunk/package.lisp ============================================================================== --- trunk/package.lisp (original) +++ trunk/package.lisp Tue Apr 24 18:23:39 2007 @@ -146,6 +146,7 @@ :close-on-main :remote-user :dcc-close + :dcc-message-event :make-dcc-chat-connection )))