From 4cb8cb79cb53e27c63be9310ce917f242d307d3c Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 17 Jun 2002 04:36:04 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-read-folder): Fixed last change. --- wl/wl-summary.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index e306419..04883c0 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3070,7 +3070,14 @@ 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) - (copy-sequence wl-folder-entity-hashtb))) + (let (alist) + (mapatoms + (lambda (atom) + (setq alist + (cons (list (elmo-string + (symbol-name atom))) alist))) + wl-folder-entity-hashtb) + alist))) nil nil (or init wl-default-spec) 'wl-read-folder-hist))) (if (or (string= fld wl-default-spec) -- 1.7.10.4