From: okazaki <okazaki>
Date: Sat, 26 Feb 2005 16:47:20 +0000 (+0000)
Subject: (elmo-list-diff): Fix the last change.
X-Git-Tag: wl-2_14-root~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4fc56f34898419347645a033593be88f8f14a0f4;p=elisp%2Fwanderlust.git

(elmo-list-diff): Fix the last change.
---

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index dc06f2d..1c0d809 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -753,17 +753,13 @@ the directory becomes empty after deletion."
 	  (setq list1-only (cons (car clist1) list1-only))
 	  (setq clist1 (cdr clist1))))
        ((< (car clist1) (car clist2))
-	(while (not (eq (car clist1) (car clist2)))
+	(while (and clist1 (< (car clist1) (car clist2)))
 	  (setq list1-only (cons (car clist1) list1-only))
-	  (setq clist1 (cdr clist1)))
-	(setq clist1 (cdr clist1)
-	      clist2 (cdr clist2)))
+	  (setq clist1 (cdr clist1))))
        ((< (car clist2) (car clist1))
-	(while (not (eq (car clist1) (car clist2)))
+	(while (and clist2 (< (car clist2) (car clist1)))
 	  (setq list2-only (cons (car clist2) list2-only))
-	  (setq clist2 (cdr clist2)))
-	(setq clist1 (cdr clist1)
-	      clist2 (cdr clist2)))
+	  (setq clist2 (cdr clist2))))
        ((= (car clist1) (car clist2))
 	(setq clist1 (cdr clist1)
 	      clist2 (cdr clist2)))))