+ "List of channels on which MegaHAL should wait for messages."
+ :type '(repeat string))
(defun kbot-megahal-listen (kbot-erc-process kbot-channel-name kbot-sender-name kbot-message)
"Pass a message heard on the channel on to MegaHAL."
- (unless (erc-nick-equal-p kbot-sender-name (erc-current-nick)) ; ignore ourselves
+ (erc-nick-equal-p kbot-sender-name (erc-current-nick)) ; ignore ourselves
+ (not (member kbot-channel-name kbot-megahal-channels-enabled)))
(message "Calling kbot-megahal-listen with [%s] [%s] [%s]" kbot-channel-name kbot-sender-name kbot-message)
(concat (kbot-megahal-sanitize-input kbot-message) "\n\n"))