 
 M: privmsg write-irc
     "<" blue write-color
-    [ prefix>> parse-name write ] keep
+    [ irc-message-sender write ] keep
     "> " blue write-color
     trailing>> write ;
 


M: join write-irc
    "* " dark-green write-color
    prefix>> parse-name write
    " has entered the channel." dark-green write-color ;

M: part write-irc
    "* " dark-red write-color
    [ prefix>> parse-name write ] keep
    " has left the channel" dark-red write-color
    trailing>> dot-or-parens dark-red write-color ;

M: quit write-irc
    "* " dark-red write-color
    [ prefix>> parse-name write ] keep
    " has left IRC" dark-red write-color
    trailing>> dot-or-parens dark-red write-color ;

M: kick write-irc
    "* " dark-red write-color
    [ prefix>> parse-name write ] keep
    " has kicked " dark-red write-color
    [ who>> write ] keep
    " from the channel" dark-red write-color


M: mode write-irc
    "* " blue write-color
    [ irc-message-sender write ] keep
    " has applied mode " blue write-color
    [ full-mode write ] keep
    " to " blue write-color
