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