(output-event msg :part (first (arguments msg))))
(defun quit-hook (msg)
- (output-event msg :quit (trailing-argument msg)))
+ (output-event msg :quit nil (trailing-argument msg)))
(defun join-hook (msg)
(output-event msg :join (trailing-argument msg)))