From: yoichi <yoichi>
Date: Fri, 21 Apr 2006 04:00:33 +0000 (+0000)
Subject: * elmo-maildir.el (elmo-maildir-list-location): Reduce
X-Git-Tag: wl-2_15_4~50
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8932d734327d59a651a05a8f155fa8d0c5a5e173;p=elisp%2Fwanderlust.git

* elmo-maildir.el (elmo-maildir-list-location): Reduce
`elmo-get-last-modification-time' call.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8137d72..b2aa9fd 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-21  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* elmo-maildir.el (elmo-maildir-list-location): Reduce
+	`elmo-get-last-modification-time' call.
+
 2006-04-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-maildir.el (elmo-maildir-list-location): Fixed a regular
diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index ef62c3c..8fa8e32 100644
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -110,42 +110,44 @@ LOCATION."
 
 (defsubst elmo-maildir-list-location (dir &optional child-dir)
   (let* ((cur-dir (expand-file-name (or child-dir "cur") dir))
-	 (cur (directory-files cur-dir
-			       nil "^[^.].*$" t))
+	 (cur (mapcar (lambda (x)
+			(cons x (elmo-get-last-modification-time
+				 (expand-file-name x cur-dir))))
+		      (directory-files cur-dir
+				       nil "^[^.].*$" t)))
 	 (regexp (elmo-maildir-adjust-separator "^\\(.+\\):[12],\\(.*\\)$"))
 	 unread-locations flagged-locations answered-locations
 	 sym locations flag-list x-time y-time)
     (setq cur (sort cur
 		    (lambda (x y)
-		      (setq x-time (elmo-get-last-modification-time
-				    (expand-file-name x cur-dir))
-			    y-time (elmo-get-last-modification-time
-				    (expand-file-name y cur-dir)))
+		      (setq x-time (cdr x)
+			    y-time (cdr y))
 		      (cond
 		       ((< x-time y-time)
 			t)
 		       ((eq x-time y-time)
-			(< (elmo-maildir-sequence-number x)
-			   (elmo-maildir-sequence-number y)))))))
+			(< (elmo-maildir-sequence-number (car x))
+			   (elmo-maildir-sequence-number (car y))))))))
     (setq locations
 	  (mapcar
 	   (lambda (x)
-	     (if (string-match regexp x)
-		 (progn
-		   (setq sym (elmo-match-string 1 x)
-			 flag-list (string-to-char-list
-				    (elmo-match-string 2 x)))
-		   (when (memq ?F flag-list)
-		     (setq flagged-locations
-			   (cons sym flagged-locations)))
-		   (when (memq ?R flag-list)
-		     (setq answered-locations
-			   (cons sym answered-locations)))
-		   (unless (memq ?S flag-list)
-		     (setq unread-locations
-			   (cons sym unread-locations)))
-		   sym)
-	       x))
+	     (let ((name (car x)))
+	       (if (string-match regexp name)
+		   (progn
+		     (setq sym (elmo-match-string 1 name)
+			   flag-list (string-to-char-list
+				      (elmo-match-string 2 name)))
+		     (when (memq ?F flag-list)
+		       (setq flagged-locations
+			     (cons sym flagged-locations)))
+		     (when (memq ?R flag-list)
+		       (setq answered-locations
+			     (cons sym answered-locations)))
+		     (unless (memq ?S flag-list)
+		       (setq unread-locations
+			     (cons sym unread-locations)))
+		     sym)
+		 name)))
 	   cur))
     (list locations unread-locations flagged-locations answered-locations)))