Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv10524

Modified Files: event.lisp Log Message: calling apply-to-hooks on every irc-message-event

Date: Mon Nov 3 15:54:10 2003 Author: eenge

Index: net-nittin-irc/event.lisp diff -u net-nittin-irc/event.lisp:1.1.1.1 net-nittin-irc/event.lisp:1.2 --- net-nittin-irc/event.lisp:1.1.1.1 Mon Nov 3 12:00:54 2003 +++ net-nittin-irc/event.lisp Mon Nov 3 15:54:10 2003 @@ -1,4 +1,4 @@ -;;;; $Id: event.lisp,v 1.1.1.1 2003/11/03 17:00:54 eenge Exp $ +;;;; $Id: event.lisp,v 1.2 2003/11/03 20:54:10 eenge Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/event.lisp,v $

;;;; See LICENSE for licensing information. @@ -11,245 +11,325 @@ message."))

(defmethod irc-message-event ((message irc-message)) + (apply-to-hooks message) (client-log (connection message) message "UNHANLDED-EVENT:"))

(defmethod irc-message-event ((message irc-error-reply)) + (apply-to-hooks message) (let* ((connection (connection message)) (stream (client-stream connection))) (client-log connection message)))

(defmethod irc-message-event ((message irc-rpl_welcome-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_yourhost-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_created-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_myinfo-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_bounce-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_tracelink-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_traceconnecting-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_tracehandshake-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_traceunknown-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_traceoperator-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_traceuser-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_traceservice-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_tracenewtype-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_traceclass-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_tracereconnect-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statslinkinfo-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statscommands-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statscline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statsnline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statsiline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statskline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statsqline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statsyline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofstats-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_umodeis-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statsdline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_option-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endoptions-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_serviceinfo-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofservices-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_service-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_servlist-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_servlistend-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statsvline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statslline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statsonline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statshline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statssline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statsping-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statsbline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statsuline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_statsdebug-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_luserclient-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_luserop-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_luserunknown-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_luserchannels-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_luserme-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_adminme-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_adminloc1-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_adminloc2-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_adminemail-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_tracelog-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_traceend-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_tryagain-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_localusers-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_globalusers-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_mode-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endmode-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_sitelist-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_clientcapab-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_noservicehost-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_none-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_away-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_userhost-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_ison-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_unaway-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_noaway-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_whoisuser-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_whoisserver-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_whoisoperator-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_whowasuser-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofwho-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_whoischanop-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_whoisidle-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofwhois-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_whoischannels-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_liststart-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_list-message)) + (apply-to-hooks message) (let ((connection (connection message)) (channel (second (arguments message))) (user-count (parse-integer (or (third (arguments message)) "0"))) @@ -261,59 +341,77 @@ (channel-list connection))))

(defmethod irc-message-event ((message irc-rpl_listend-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_channelmodeis-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_uniqopis-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_whoisoperprivs-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_whoisrealhost-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_creationtime-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_notopic-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_topic-message)) + (apply-to-hooks message) (setf (topic (find-channel (connection message) (second (arguments message)))) (trailing-argument message)))

(defmethod irc-message-event ((message irc-rpl_topicwhotime-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_inviting-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_summoning-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_invitelist-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofinvitelist-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_exceptlist-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofexceptlist-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_version-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_whoreply-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_namreply-message)) + (apply-to-hooks message) (let ((channel (find-channel (connection message) (car (last (arguments message)))))) (dolist (nickname (tokenize-string (trailing-argument message))) (add-user channel @@ -323,87 +421,115 @@ :hostname (host message))))))

(defmethod irc-message-event ((message irc-rpl_killdone-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_closing-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_closeend-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofnames-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_links-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endoflinks-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_banlist-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofbanlist-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofwhowas-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_info-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_motd-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_infostart-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofinfo-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_motdstart-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofmotd-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_map-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofmap-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_forward-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_youreoper-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_rehashing-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_yourservice-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_myportis-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_time-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_usersstart-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_users-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_endofusers-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_nousers-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-rpl_message-message)) + (apply-to-hooks message) (client-log (connection message) message))

;; @@ -411,217 +537,288 @@ ;;

(defmethod irc-message-event ((message irc-err_nosuchnick-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nosuchserver-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nosuchchannel-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_cannotsendtochan-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_toomanychannels-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_wasnosuchnick-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nosuchservice-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_noorigin-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_services_offline-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_norecipient-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_notexttosend-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_notoplevel-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_wildtoplevel-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_badmask-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_unknowncommand-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nomotd-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_noadmininfo-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_fileerror-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nonicknamegiven-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_erroneusnickname-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nicknameinuse-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nickcollision-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_unavailresource-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_bannickchange-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_usernotinchannel-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_notonchannel-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_useronchannel-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nologin-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_summondisabled-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_userdisabled-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_targetninvite-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_sourceninvite-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_notregistered-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_needmoreparams-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_alreadyregistered-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nopermforhost-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_passwdmismatch-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_yourebannedcreep-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_youwillbebanned-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_keyset-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_channelisfull-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_unknownmode-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_inviteonlychan-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_bannedfromchan-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_badchannelkey-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_badchanmask-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nochanmodes-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_banlistfull-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_badchanname-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_throttled-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_noprivileges-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_chanoprivsneeded-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_cantkillserver-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_restricted-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_uniqopprivsneeded-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_no_op_split-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_need_umode-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nooperhost-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_umodeunknownflag-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_usersdontmatch-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_ghostedclient-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_blocking_notid-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_sitelistfull-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_maxmapnodes-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_maxforwarding-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_noforwarding-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_nounidentified-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-err_last_err_msg-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-ping-message)) + (apply-to-hooks message) (client-log (connection message) message) (pong (trailing-argument message) (connection message)))

(defmethod irc-message-event ((message irc-error-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-join-message)) + (apply-to-hooks message) (client-log (connection message) message) (let* ((connection (connection message)) (user (find-or-make-user @@ -636,12 +833,14 @@ (add-user channel user))))

(defmethod irc-message-event ((message irc-topic-message)) + (apply-to-hooks message) (client-log (connection message) message) (setf (topic (find-channel (connection message) (first (arguments message)))) (trailing-argument message)))

(defmethod irc-message-event ((message irc-part-message)) + (apply-to-hooks message) (client-log (connection message) message) (let* ((connection (connection message)) (channel (find-channel connection (first (arguments message)))) @@ -651,10 +850,12 @@ (remove-user channel user))))

(defmethod irc-message-event ((message irc-quit-message)) + (apply-to-hooks message) (let ((connection (connection message))) (remove-user-everywhere connection (find-user connection (source message)))))

(defmethod irc-message-event ((message irc-nick-message)) + (apply-to-hooks message) (when (self-message-p message) (setf (nickname (user (connection message))) (trailing-argument message))) @@ -666,18 +867,22 @@ (source message))))))

(defmethod irc-message-event ((message irc-notice-message)) + (apply-to-hooks message) (client-log (connection message) message))

;; if we don't know about the user, we should probably add him here to ;; the dangling-users as he is messaging us without being on a channel ;; we are. (defmethod irc-message-event ((message irc-privmsg-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-mode-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message irc-kick-message)) + (apply-to-hooks message) (client-log (connection message) message) (let* ((connection (connection message)) (channel (find-channel connection (first (arguments message)))) @@ -691,6 +896,7 @@ ;;

(defmethod irc-message-event ((message ctcp-time-message)) + (apply-to-hooks message) (client-log (connection message) message) (multiple-value-bind (second minute hour date month year day) (get-decoded-time) (send-irc-message @@ -701,9 +907,11 @@ (source message))))

(defmethod irc-message-event ((message ctcp-action-message)) + (apply-to-hooks message) (client-log (connection message) message))

(defmethod irc-message-event ((message ctcp-source-message)) + (apply-to-hooks message) (client-log (connection message) message) (send-irc-message (connection message) @@ -715,6 +923,7 @@ (source message)))

(defmethod irc-message-event ((message ctcp-finger-message)) + (apply-to-hooks message) (client-log (connection message) message) (let* ((user (user (connection message))) (finger-info (if (not (zerop (length (realname user)))) @@ -727,6 +936,7 @@ (source message))))

(defmethod irc-message-event ((message ctcp-version-message)) + (apply-to-hooks message) (client-log (connection message) message) (send-irc-message (connection message) @@ -738,6 +948,7 @@ (client-log (connection message) message))

(defmethod irc-message-event ((message ctcp-ping-message)) + (apply-to-hooks message) (client-log (connection message) message) (send-irc-message (connection message)