+(defmethod cl-irc::irc-message-event :around ((msg cl-irc::irc-message))
+ (let ((result (call-next-method msg)))
+ (typecase msg
+ ((or irc::irc-privmsg-message irc::ctcp-action-message irc::irc-nick-message
+ irc::irc-part-message irc::irc-quit-message irc::irc-join-message
+ irc::irc-kick-message irc::irc-mode-message irc::irc-topic-message
+ irc::irc-notice-message irc::irc-error-message irc::irc-ping-message
+ irc::irc-pong-message irc::irc-kill-message irc::irc-invite-message
+ irc::irc-rpl_killdone-message irc::irc-rpl_closing-message
+ irc::irc-rpl_topic-message irc::irc-rpl_namreply-message
+ irc::irc-rpl_endofnames-message irc::irc-rpl_topicwhotime-message
+ irc::irc-rpl_motd-message irc::irc-rpl_motdstart-message
+ irc::irc-rpl_endofmotd-message)
+ ;; nothing to do
+ )
+ (t
+ (let ((logger (find-logger-with-connection (connection msg))))
+ (format (get-unknown-log-stream
+ (find-logger-with-connection (connection msg)))
+ "~A ~A~%"
+ (format-date-time (received-time msg ))
+ (raw-message-string msg))
+ (force-output (get-unknown-log-stream logger)))))
+ result))
+