[net-nittin-irc-cvs] CVS update: net-nittin-irc/parse-message.lisp

[Erik Enge]

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc
In directory common-lisp.net:/tmp/cvs-serv13779

Modified Files:
	parse-message.lisp 
Log Message:
return-arguments now parses arguments-lists of MODE messages properly

Date: Mon Nov 24 22:12:01 2003
Author: eenge

Index: net-nittin-irc/parse-message.lisp
diff -u net-nittin-irc/parse-message.lisp:1.6 net-nittin-irc/parse-message.lisp:1.7
--- net-nittin-irc/parse-message.lisp:1.6	Sun Nov 23 17:39:16 2003
+++ net-nittin-irc/parse-message.lisp	Mon Nov 24 22:12:00 2003
@@ -1,4 +1,4 @@
-;;;; $Id: parse-message.lisp,v 1.6 2003/11/23 22:39:16 eenge Exp $
+;;;; $Id: parse-message.lisp,v 1.7 2003/11/25 03:12:00 eenge Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/parse-message.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -50,7 +50,7 @@
 arguments part of the message as a list.  Returns nil if the arguments
 part is not present."
   (multiple-value-bind (end-position return-argument)
-      (cut-between string nil '(#\:) :start start)
+      (cut-between string nil '(#\: #\Return) :start start)
     (values end-position (tokenize-string return-argument
                                           :delimiters '(#\Space)))))