- ((string-match (rx (= 3 digit)) (lirc-msg-cmd msg))
- (lirc-display-string (string-join (cdr (lirc-msg-params msg)) " ")))
- (t
+ ;; ((rx (= 3 digit))
+ ;; (lirc-display-string (string-join (cdr (lirc-msg-params msg)) " ")))
+ ((and "JOIN" (let (rx (: (literal lirc-nick) "!" (* anychar))) (lirc-msg-src msg)))
+ (let ((channel (car (lirc-msg-params msg))))
+ (setq lirc-current-channel channel)
+ (add-to-list 'lirc-channel-list channel)
+ (lirc-render-prompt)))
+ (_