Zander671/random-scripts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix notify-mail.hy again

Browse Source
This commit is contained in:
Alexander Rosenberg 2023-05-27 05:23:24 -07:00
parent fbf7e67019
commit 0d915e9647
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
mail/notify-mail.hy
View File

@ -29,9 +29,9 @@
(output.add msg)))) (output.add msg))))
output)) output))
(defn mark-all-read [self uid [exclude-msgs None]] (defn mark-all-read [self uid [exclude-msgs None]]
(let [files (self.find-by-uid uid exclude-msgs)] (let [msgs (self.find-by-uid uid exclude-msgs)]
(for [file files] (for [msg msgs]
(file.mark-read))))) (msg.mark-read)))))
(defclass MailMessage [] (defclass MailMessage []
(setv inbox None (setv inbox None
@ -139,9 +139,12 @@
msg.subject msg.subject
:time 10000 :time 10000
:actions ["Mark Read" "Delete"]) :actions ["Mark Read" "Delete"])
0 (msg.inbox.mark-all-read msg.uid) 0 (do
(msg.mark-read)
(msg.inbox.mark-all-read msg.uid :exclude-msgs [msg]))
1 (do 1 (do
(msg.inbox.mark-all-read msg.uid) (msg.mark-read)
(msg.inbox.mark-all-read msg.uid :exclude-msgs [msg])
(msg.move "Trash"))))) (msg.move "Trash")))))
(when (< (len sys.argv) 2) (when (< (len sys.argv) 2)