* wl-expire.el (wl-summary-archive): Fixed;

Use `elmo-folder-name-internal'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fd4d42c..fd8489c 100644 (file)
--- 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 (file)
--- 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