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

* wl-summary.el (wl-summary-read-folder): Fixed last change.
---

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)