From feb4da9f869d1033ad673ec6003d1098aa33f886 Mon Sep 17 00:00:00 2001 From: Denis Zheleztsov Date: Tue, 26 Jun 2018 11:49:22 +0300 Subject: [PATCH] Sort messages by date. Fixes #4 --- idec-db.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/idec-db.el b/idec-db.el index 3c2993f..8067f47 100644 --- a/idec-db.el +++ b/idec-db.el @@ -172,7 +172,8 @@ unread by default, but you can MARK-READ it." (dolist (l (emacsql (open-echo-db echo) [:select [id, tags, author, address, recipient, repto, echo, subj, body, time, unread] :from messages - :order-by time])) + :order-by DATE\(time\) + :desc])) (if (> (length l) 0) (setq msgs (append msgs (make-list 1 (make-hash-from-msg-list l)))))) msgs))