From: hmurata <hmurata>
Date: Wed, 10 Oct 2001 14:06:00 +0000 (+0000)
Subject: * wl-expire.el (wl-summary-archive): Fixed;
X-Git-Tag: wl-2_7_5~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3bf5a2337e8ace0407158c23e4ef3ef6f243b59f;p=elisp%2Fwanderlust.git

* wl-expire.el (wl-summary-archive): Fixed;
Use `elmo-folder-name-internal'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fd4d42c..fd8489c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-expire.el (wl-summary-archive): Fixed;
+	Use `elmo-folder-name-internal'.
+
 2001-10-08  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-expire.el (wl-expire-refile): Remove ALL and DONE arguments
diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index 0537bb7..b2ca640 100644
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -734,9 +734,12 @@ Refile to archive folder followed message date."
 	 archives func args dst-folder archive-list)
     (if arg
 	(let ((wl-default-spec (char-to-string
-				(car (rassq 'archive elmo-folder-type-alist)))))
+				(car (rassq 'archive
+					    elmo-folder-type-alist)))))
 	  (setq dst-folder (wl-summary-read-folder
-			    (concat wl-default-spec (substring folder 1))
+			    (concat wl-default-spec
+				    (substring
+				     (elmo-folder-name-internal folder) 1))
 			    "for archive"))))
     (run-hooks 'wl-summary-archive-pre-hook)
     (if dst-folder