Ticket #1296: vandusen.patch

vandusen.scm

@@ -151 +151 @@
                               command: "PRIVMSG"
                               body: (match-body matcher)))
 
-  (let ((matcher `(: ,($ 'nick) ":" (+ whitespace) ,matcher)))
+  (let ((matcher `(: ,($ 'nick) (or #\: #\,) (+ whitespace) ,matcher)))
     (irc:add-message-handler! connection (let ((handle (make-handler matcher)))
                                            (lambda (m)
                                              (and (eq? (string-ref (car (irc:message-parameters m)) 0) #\#)