From 3b738ab5668dd71a649693c6bf35645067627245 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 1 Apr 2005 12:49:27 +0000 Subject: [PATCH] (elmo-maildir-list-location): Sort by last modification time of the file. --- elmo/ChangeLog | 5 +++++ elmo/elmo-maildir.el | 6 ++++++ 2 files changed, 11 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index df5c4dc..e92c514 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2005-04-01 Yuuichi Teranishi + + * elmo-maildir.el (elmo-maildir-list-location): Sort by last + modification time of the file. + 2005-03-28 Hiroya Murata * elmo-util.el (elmo-condition-optimize): Discriminated against diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el index 6710212..cbbdb12 100644 --- a/elmo/elmo-maildir.el +++ b/elmo/elmo-maildir.el @@ -114,6 +114,12 @@ LOCATION." nil "^[^.].*$" t)) unread-locations flagged-locations answered-locations sym locations flag-list) + (setq cur (sort cur + (lambda (x y) + (< (elmo-get-last-modification-time + (expand-file-name x cur-dir)) + (elmo-get-last-modification-time + (expand-file-name y cur-dir)))))) (setq locations (mapcar (lambda (x) -- 1.7.10.4