From 23e6c725869cac1f9c4dcdcbcb40f190e4d3dd76 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 14 Apr 2000 07:02:02 +0000 Subject: [PATCH] (wl-expire-archive-get-max-number): Use `file-name-directory'. --- wl/ChangeLog | 5 +++++ wl/wl-expire.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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 + + * wl-expire.el (wl-expire-archive-get-max-number): + Use `file-name-directory'. + 2000-04-13 Yuuichi Teranishi * 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 ;; 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) -- 1.7.10.4