From: teranisi <teranisi>
Date: Mon, 17 Jun 2002 04:04:59 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-read-folder): Use copy-sequence
X-Git-Tag: elmo-mark-root~81
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cc7c4d063c3ea29fdacc01d932314ceef66ac172;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-read-folder): Use copy-sequence
`wl-folder-entity-hashtb' as completion table.
---

diff --git a/WL-MK b/WL-MK
index d35e5df..fbc9789 100644
--- a/WL-MK
+++ b/WL-MK
@@ -390,7 +390,7 @@
 
 (defun wl-texinfo-install-file (lang)
   (let ((infofile (symbol-value (intern (format "wl-%s-info" lang)))))
-    (install-file infofile DOCDIR INFODIR)))
+    (install-file infofile DOCDIR INFODIR nil 'overwrite)))
 
 (defun wl-texinfo-install ()
   (cond ((listp wl-info-lang)
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 626a136..3e9a13d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-read-folder): Use copy-sequence 
+	`wl-folder-entity-hashtb' as completion table.
+
 2002-06-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* wl-draft.el (wl-draft-beginning-of-line): Set zmacs-region-stays
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 58fb80a..e306419 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3070,7 +3070,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 	      (or wl-folder-completion-function
 		  (if (memq 'read-folder wl-use-folder-petname)
 		      (wl-folder-get-entity-with-petname)
-		    wl-folder-entity-hashtb))
+		    (copy-sequence wl-folder-entity-hashtb)))
 	      nil nil (or init wl-default-spec)
 	      'wl-read-folder-hist)))
     (if (or (string= fld wl-default-spec)