From: teranisi <teranisi>
Date: Sat, 15 Apr 2000 05:36:20 +0000 (+0000)
Subject: (wl-expire-archive-get-max-number): Don't use `file-name-directory'.
X-Git-Tag: wl-1_1_1~49
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ae4739309a2ea48239a5ed635afcc6277a47eaa5;p=elisp%2Fwanderlust.git

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

diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index 80a96bd..11b6f79 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: <2000-04-14 15:12:52 teranisi>
+;; Time-stamp: <00/04/15 13:53:01 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -263,8 +263,7 @@ 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 
-			       (file-name-directory dst-folder-base))
+  (let ((files (reverse (sort (elmo-list-folders dst-folder-base)
 			      'string<)))
 	(regexp (or regexp wl-expire-archive-folder-num-regexp))
 	filenum in-folder)