From 0582f91fb9c1d8537a4bff570700fb95303e75e4 Mon Sep 17 00:00:00 2001
From: Denis Zheleztsov <d_zheleztsov@wargaming.net>
Date: Thu, 28 Jun 2018 12:47:05 +0300
Subject: [PATCH] Order by rowid

---
 idec-db.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/idec-db.el b/idec-db.el
index 8bb33c0..ff5e3d8 100644
--- a/idec-db.el
+++ b/idec-db.el
@@ -172,8 +172,9 @@ 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 DATE\(time\)
-                                    :desc]))
+                                    :order-by rowid
+                                    ;; :desc
+                                    ]))
             (if (> (length l) 0)
                     (setq msgs (append msgs (make-list 1 (make-hash-from-msg-list l))))))
         msgs))
@@ -224,6 +225,7 @@ unread by default, but you can MARK-READ it."
 
 (defun mark-message-read (msgid echo)
     "Mark message MSGID as read in ECHO database."
+    (message (concat "Mark read message " msgid " in " echo))
     (emacsql (open-echo-db echo)
              [:update messages
               :set (= unread 0)