From: Daiki Ueno <ueno@unixuser.org>
Date: Wed, 5 May 2004 09:53:17 +0000 (+0000)
Subject: * riece-misc.el (riece-split-parameters): Don't remove a trailing
X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=b37e0983b51928fb38f29d753b94d7521f15c309

* riece-misc.el (riece-split-parameters): Don't remove a trailing
string even if it is empty.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b3299b..9a6ccf2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-05  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-misc.el (riece-split-parameters): Don't remove a trailing
+	string even if it is empty.
+
 2004-05-05  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-ctlseq.el: Require 'riece-message for riece-message-text;
diff --git a/lisp/riece-misc.el b/lisp/riece-misc.el
index ded59d1..72c9452 100644
--- a/lisp/riece-misc.el
+++ b/lisp/riece-misc.el
@@ -125,9 +125,10 @@
 	(while (string-match "^\\([^ ]+\\) +" string)
 	  (setq parameters (nconc parameters (list (match-string 1 string)))
 		string (substring string (match-end 0)))
-	  (and (not (equal "" string)) (eq ?: (aref string 0))
-	       (setq string (substring string 1))
-	       (throw 'done nil))))
+	  (when (and (not (equal "" string)) (eq ?: (aref string 0)))
+	    (setq string (substring string 1)
+		  parameters (nconc parameters (list string)))
+	    (throw 'done nil))))
       (or (equal "" string)
 	  (setq parameters (nconc parameters (list string))))
       parameters)))