projects
/
elisp
/
wanderlust.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d0492ce
)
(elmo-maildir-list-location): Sort by last modification time of the file.
author
teranisi
<teranisi>
Fri, 1 Apr 2005 12:49:27 +0000
(12:49 +0000)
committer
teranisi
<teranisi>
Fri, 1 Apr 2005 12:49:27 +0000
(12:49 +0000)
elmo/ChangeLog
patch
|
blob
|
history
elmo/elmo-maildir.el
patch
|
blob
|
history
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
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)
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)
(setq locations
(mapcar
(lambda (x)