From: teranisi <teranisi>
Date: Tue, 19 Sep 2000 10:02:18 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-make-number-set-list): Copy `msg-list'
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9725371adf3ac85630e9f1140e175acb384a95e2;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-make-number-set-list): Copy `msg-list'
 before `sort'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index edc780a..2d72bd4 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-19  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-imap4-make-number-set-list): Copy `msg-list'
+	before `sort'.
+
 2000-09-18  OKAZAKI Tetsurou  <okazaki@be.to>
 
 	* elmo-imap4.el (elmo-imap4-literal-1): Renamed from
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 641bbc7..fe96f92 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -869,7 +869,7 @@ NUMBER is contained message number in SET-STRING.
 Every SET-STRING does not contain number of messages longer than CHOP-LENGTH.
 If CHOP-LENGTH is not specified, message set is not chopped."
   (let (count cont-list set-list)
-    (setq msg-list (sort msg-list '<))
+    (setq msg-list (sort (copy-sequence msg-list) '<))
     (while msg-list
       (setq cont-list nil)
       (setq count 0)