From cc7c4d063c3ea29fdacc01d932314ceef66ac172 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 17 Jun 2002 04:04:59 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-read-folder): Use copy-sequence `wl-folder-entity-hashtb' as completion table. --- WL-MK | 2 +- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) 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 + + * wl-summary.el (wl-summary-read-folder): Use copy-sequence + `wl-folder-entity-hashtb' as completion table. + 2002-06-14 Katsumi Yamaoka * 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) -- 1.7.10.4