From ae4739309a2ea48239a5ed635afcc6277a47eaa5 Mon Sep 17 00:00:00 2001 From: teranisi Date: Sat, 15 Apr 2000 05:36:20 +0000 Subject: [PATCH] (wl-expire-archive-get-max-number): Don't use `file-name-directory'. --- wl/wl-expire.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 ;; 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) -- 1.7.10.4