(wl-expire-archive-get-max-number): Use `file-name-directory'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5b265eb..4de9c49 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-expire.el (wl-expire-archive-get-max-number):
+       Use `file-name-directory'.
+
 2000-04-13  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-summary.el (wl-summary-sync-marks): Re-display progress

diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index 003c749..80a96bd 100644 (file)
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -5,7 +5,7 @@
 
 ;; Author: Masahiro MURATA <muse@ba2.so-net.ne.jp>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/03/14 19:34:13 teranisi>
+;; Time-stamp: <2000-04-14 15:12:52 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -263,7 +263,8 @@ If REFILE-LIST includes reserve mark message, so copy."
     (cons dst-folder-base dst-folder-fmt)))
 
 (defsubst wl-expire-archive-get-max-number (dst-folder-base &optional regexp)
-  (let ((files (reverse (sort (elmo-list-folders dst-folder-base)
+  (let ((files (reverse (sort (elmo-list-folders 
+                              (file-name-directory dst-folder-base))
                              'string<)))
        (regexp (or regexp wl-expire-archive-folder-num-regexp))
        filenum in-folder)