From: teranisi <teranisi>
Date: Fri, 14 Apr 2000 07:02:02 +0000 (+0000)
Subject: (wl-expire-archive-get-max-number): Use `file-name-directory'.
X-Git-Tag: wl-1_1_1~50
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=23e6c725869cac1f9c4dcdcbcb40f190e4d3dd76;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5b265eb..4de9c49 100644
--- 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
--- 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)