Order by rowid
This commit is contained in:
parent
5eb6333d24
commit
0582f91fb9
|
@ -172,8 +172,9 @@ 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 DATE\(time\)
|
:order-by rowid
|
||||||
:desc]))
|
;; :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))
|
||||||
|
@ -224,6 +225,7 @@ unread by default, but you can MARK-READ it."
|
||||||
|
|
||||||
(defun mark-message-read (msgid echo)
|
(defun mark-message-read (msgid echo)
|
||||||
"Mark message MSGID as read in ECHO database."
|
"Mark message MSGID as read in ECHO database."
|
||||||
|
(message (concat "Mark read message " msgid " in " echo))
|
||||||
(emacsql (open-echo-db echo)
|
(emacsql (open-echo-db echo)
|
||||||
[:update messages
|
[:update messages
|
||||||
:set (= unread 0)
|
:set (= unread 0)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user