From 41f999a6bf01aecda102c3178fe2e139c80f4b14 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Wed, 29 Jul 2026 23:37:13 +0300 Subject: [PATCH] mu4e-dbus: include delta-unread Include the delta-unread in the QueryInfo. --- mu4e/mu4e-dbus.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/mu4e/mu4e-dbus.el b/mu4e/mu4e-dbus.el index ba06413d..48f6160b 100644 --- a/mu4e/mu4e-dbus.el +++ b/mu4e/mu4e-dbus.el @@ -1,6 +1,6 @@ ;;; mu4e-dbus.el --- DBus support -*- lexical-binding: t-*- -;; Copyright (C) 2025 Dirk-Jan C. Binnema +;; Copyright (C) 2025-2026 Dirk-Jan C. Binnema ;; Author: Dirk-Jan C. Binnema ;; Maintainer: Dirk-Jan C. Binnema @@ -21,7 +21,7 @@ ;; along with mu4e. If not, see . ;;; Commentary: -;;; Generic support for showing new-mail notifications. +;;; Export Mu4e information over D-Bus. ;;; Code: @@ -93,11 +93,12 @@ Apart from the properties boilerplate, the Each item describes a bookmark/maildir item with entries: - - name (string) -> name of the item - - query (string) -> query for this item - - count (number) -> number of matching messages - - unread (number) -> the number of unread messages - - favorite (bool) -> this is the favorite entry + - name (string) -> name of the item + - query (string) -> query for this item + - count (number) -> number of matching messages + - unread (number) -> the number of unread messages + - delta-unread (number) -> number of unread, since baseline + - favorite (bool) -> this is the favorite entry (optional, at most one entry has this).") ;; Introspection... although not strictly required, it is very useful for @@ -160,8 +161,7 @@ setting a property means (re)registering it." ;; Convert to D-Bus format - list of dict entries (defun mu4e--dbus-query-info () "Return an array of dbus vardicts with query-items information. - -This filters / maps the information from `mu4e-query-items'." +this filters / maps the information from `mu4e-query-items'." ;; D-Bus signature: aa{sv} (array of dict with string keys and variant values) ;; Return an array of dbus vardicts with query-items information. ;; This filters / maps the information from `mu4e-query-items'." @@ -172,8 +172,8 @@ This filters / maps the information from `mu4e-query-items'." (let ((dict)) (while plist (let* ((key (car plist)) (val (cadr plist))) - (when (memq key '(:name :query :count :unread :favorite)) - (push (list :dict-entry (substring (symbol-name key) 1) ; eat ':' + (when (memq key '(:name :query :count :unread :delta-unread :favorite)) + (push (list :dict-entry (substring (symbol-name key) 1) ; decolonize (list :variant val)) dict)) (setq plist (cddr plist)))) (cons ':array dict)))