* riece-misc.el (riece-split-parameters): Don't remove a trailing
authorDaiki Ueno <ueno@unixuser.org>
Wed, 5 May 2004 09:53:17 +0000 (09:53 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Wed, 5 May 2004 09:53:17 +0000 (09:53 +0000)
string even if it is empty.

lisp/ChangeLog
lisp/riece-misc.el

index 1b3299b..9a6ccf2 100644 (file)
@@ -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;
 2004-05-05  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-ctlseq.el: Require 'riece-message for riece-message-text;
index ded59d1..72c9452 100644 (file)
        (while (string-match "^\\([^ ]+\\) +" string)
          (setq parameters (nconc parameters (list (match-string 1 string)))
                string (substring string (match-end 0)))
        (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)))
       (or (equal "" string)
          (setq parameters (nconc parameters (list string))))
       parameters)))