[claude] mu4e keep the + indicators

This is a claude hack, I should better understand this later

lisp/ti-config/work-mail.el

@@ -57,19 +57,19 @@
 
 (setq mu4e-bookmarks
       '(( :name  "Unread messages"
-          :query "flag:unread AND NOT maildir:/work/INBOX/llvm/* AND NOT flag:trashed"
+          :query "flag:unread AND NOT maildir:/work/INBOX/llvm* AND NOT flag:trashed"
           :key ?u)
         ( :name  "Inbox"
           :query "maildir:/work/INBOX AND NOT flag:trashed"
           :key ?i)
         ( :name  "mailing_lists"
-          :query "maildir:/work/INBOX/mailing_lists/* AND NOT flag:trashed"
+          :query "maildir:/work/INBOX/mailing_lists* AND NOT flag:trashed"
           :key ?m)
         ( :name  "Services"
-          :query "maildir:/work/INBOX/Services/* AND NOT flag:trashed"
+          :query "maildir:/work/INBOX/Services* AND NOT flag:trashed"
           :key ?s)
         ( :name  "automation"
-          :query "maildir:/work/INBOX/automation/* AND NOT flag:trashed"
+          :query "maildir:/work/INBOX/automation* AND NOT flag:trashed"
           :key ?a)
         ( :name "Today's messages"
           :query "date:today..now"
@@ -78,9 +78,10 @@
           :query "date:7d..now"
           :hide-unread t
           :key ?w)
-        ( :name "Messages with images"
-          :query "mime:image/*"
-          :key ?p)))
+        ;; ( :name "Messages with images"
+        ;;   :query "mime:image/*"
+        ;;   :key ?p)
+        ))
 
 (setq mu4e-bookmarks
       (mapcar (lambda (x)
@@ -180,5 +181,29 @@
 (define-key mu4e-headers-mode-map (kbd "C-M-a") #'mu4e-view-thread-goto-root)
 (define-key mu4e-thread-mode-map (kbd "<tab>") #'mu4e-thread-fold-toggle)
 
+(setq mu4e-attachment-dir "/scratch/benson/mail_attachments")
+
+(require 'mu4e-contrib)
+(define-key mu4e-headers-mode-map (kbd "M") #'mu4e-headers-mark-all)
+
+;; Prevent automatic baseline resets to keep (+x) indicators persistent
+(defvar my/mu4e-allow-baseline-reset nil
+  "When non-nil, allow baseline resets. Otherwise, preserve the baseline.")
+
+(defun my/mu4e--query-items-refresh-no-auto-reset (orig-fun &optional reset-baseline)
+  "Advice for `mu4e--query-items-refresh' to prevent automatic baseline resets.
+Only reset the baseline if `my/mu4e-allow-baseline-reset' is non-nil."
+  (funcall orig-fun (and reset-baseline my/mu4e-allow-baseline-reset)))
+
+(advice-add 'mu4e--query-items-refresh :around
+            #'my/mu4e--query-items-refresh-no-auto-reset)
+
+(defun my/mu4e-reset-baseline ()
+  "Manually reset the mu4e baseline to clear all (+x) indicators."
+  (interactive)
+  (let ((my/mu4e-allow-baseline-reset t))
+    (mu4e--query-items-refresh 'reset-baseline))
+  (message "mu4e baseline reset - (+x) indicators cleared"))
+
 (provide 'work-mail)
 ;;; work-mail.el ends here