X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-misc.el;h=72c9452c56a523d600e40464eaa677579afd1a1e;hp=ded59d1f8293722c83aa5ed6fff374859b644285;hb=b37e0983b51928fb38f29d753b94d7521f15c309;hpb=b51452a92d547fd23cd5bf0c28cca50963b89360

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