From ca31697cc95491c19ff257c29bdab3b88d043b09 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 25 Aug 2026 21:11:27 +0100 Subject: emacs 31 --- attic/elisp/jao-maildir.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'attic/elisp/jao-maildir.el') diff --git a/attic/elisp/jao-maildir.el b/attic/elisp/jao-maildir.el index 18a1725..3078a95 100644 --- a/attic/elisp/jao-maildir.el +++ b/attic/elisp/jao-maildir.el @@ -90,8 +90,8 @@ 0)) (defun jao-maildir--update-track-string (mbox) - (when-let ((track (seq-find (lambda (td) (string-match-p (car td) mbox)) - jao-maildir--trackers))) + (when-let* ((track (seq-find (lambda (td) (string-match-p (car td) mbox)) + jao-maildir--trackers))) (let* ((label (cadr track)) (other (assoc-delete-all label jao-maildir--track-strings)) (cnt (jao-maildir--tracked-count track))) -- cgit v1.2.3