Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv4185

Modified Files: message-display.lisp Log Message: Fixed strip-preceding-punctuation to remove a leading open paren. This makes clicking on parenthesized urls work, previously the leading paren was incorrectly identified as part of the URL.

--- /project/beirc/cvsroot/beirc/message-display.lisp 2006/04/26 18:23:16 1.48 +++ /project/beirc/cvsroot/beirc/message-display.lisp 2006/05/09 17:10:00 1.49 @@ -146,7 +146,7 @@ (values word "") (let ((first-char (char word 0))) (case first-char - ((#@ #+ #<) + ((#@ #+ #< #() (values (subseq word 1) (string first-char))) (otherwise (values word ""))))))