(elmo-maildir-list-location): Sort by last modification time of the file.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index df5c4dc..e92c514 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-maildir.el (elmo-maildir-list-location): Sort by last
+       modification time of the file.
+
 2005-03-28  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-util.el (elmo-condition-optimize): Discriminated against

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 6710212..cbbdb12 100644 (file)
--- 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)