[beirc-cvs] CVS beirc

[rgoldman]

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 ""))))))