From: teranisi <teranisi>
Date: Fri, 1 Apr 2005 12:49:27 +0000 (+0000)
Subject: (elmo-maildir-list-location): Sort by last modification time of the file.
X-Git-Tag: wl-2_15_3~99
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3b738ab5668dd71a649693c6bf35645067627245;p=elisp%2Fwanderlust.git

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

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  <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
--- 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)