Sort messages by date. Fixes #4
This commit is contained in:
parent
9f5850bbb9
commit
feb4da9f86
|
@ -172,7 +172,8 @@ unread by default, but you can MARK-READ it."
|
||||||
(dolist (l (emacsql (open-echo-db echo)
|
(dolist (l (emacsql (open-echo-db echo)
|
||||||
[:select [id, tags, author, address, recipient, repto, echo, subj, body, time, unread]
|
[:select [id, tags, author, address, recipient, repto, echo, subj, body, time, unread]
|
||||||
:from messages
|
:from messages
|
||||||
:order-by time]))
|
:order-by DATE\(time\)
|
||||||
|
:desc]))
|
||||||
(if (> (length l) 0)
|
(if (> (length l) 0)
|
||||||
(setq msgs (append msgs (make-list 1 (make-hash-from-msg-list l))))))
|
(setq msgs (append msgs (make-list 1 (make-hash-from-msg-list l))))))
|
||||||
msgs))
|
msgs))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user