From: Daiki Ueno <ueno@unixuser.org>
Date: Fri, 18 Nov 2005 06:08:00 +0000 (+0000)
Subject: Fixed.
X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=e230743233c6a11e59f79c8e10cabcde70ddb7f1;hp=1982ba4b8e406ac6166649ed0165606e08502913

Fixed.
---

diff --git a/lisp/riece-develop.el b/lisp/riece-develop.el
index 6bc766c..6788813 100644
--- a/lisp/riece-develop.el
+++ b/lisp/riece-develop.el
@@ -22,11 +22,12 @@ sStruct: ")
     (setq attributes (nreverse attributes)
 	  pointer (cons (vector "" nil nil nil)  attributes))
     (while (cdr pointer)
-      (when (aref (car (cdr pointer)) 1)
-	(setq optional-attributes (cons (car (cdr pointer))
-					optional-attributes))
-	(setcdr pointer (nthcdr 2 pointer)))
-      (setq pointer (cdr pointer)))
+      (if (aref (car (cdr pointer)) 1)
+	  (progn
+	    (setq optional-attributes (cons (car (cdr pointer))
+					    optional-attributes))
+	    (setcdr pointer (nthcdr 2 pointer)))
+	(setq pointer (cdr pointer))))
     (setq optional-attributes (nreverse optional-attributes)
 	  arglist (mapconcat (lambda (attribute)
 			       (aref attribute 0))