* 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 (file)
--- 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 (file)
--- 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)