Fix eww-mu4e-messages

This commit is contained in:
Alexander Rosenberg 2024-08-16 21:18:05 -07:00
parent bac0d1a109
commit c9a999f5a2
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

View File

@ -3,7 +3,7 @@
(require 'server) (require 'server)
(princ (princ
(if-let ((modeline-string (server-eval-at "server" '(mu4e--modeline-string))) (if-let ((modeline-string (server-eval-at "server" '(mu4e--modeline-string)))
((string-match "/\\([0-9]+\\) $" modeline-string)) ((string-match "\\([0-9]+\\)\\((\\+1)\\)?/[0-9]+ $" modeline-string))
(matched-string (match-string 1 modeline-string))) (matched-string (match-string 1 modeline-string)))
(progn (progn
(set-text-properties 0 (length matched-string) (set-text-properties 0 (length matched-string)