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