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

Fix eww-mu4e-messages

Browse Source
This commit is contained in:
Alexander Rosenberg 2024-08-18 09:54:18 -07:00
parent c9a999f5a2
commit a6fa3120d6
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
eww/eww-mu4e-messages
View File

@ -2,13 +2,16 @@
;;; -*- mode: emacs-lisp; lexical-binding: t -*- ;;; -*- mode: emacs-lisp; lexical-binding: t -*-
(require 'server) (require 'server)
(princ (princ
(if-let ((modeline-string (server-eval-at "server" '(mu4e--modeline-string))) (condition-case _
((string-match "\\([0-9]+\\)\\((\\+1)\\)?/[0-9]+ $" modeline-string)) (if-let ((modeline-string (server-eval-at "server" '(mu4e--modeline-string)))
(matched-string (match-string 1 modeline-string))) ((string-match "\\([0-9]+\\)\\((\\+1)\\)?/[0-9]+ $" modeline-string))
(progn (matched-string (match-string 1 modeline-string)))
(set-text-properties 0 (length matched-string) (progn
nil (set-text-properties 0 (length matched-string)
matched-string) nil
matched-string) matched-string)
"0")) matched-string)
"0")
(error
"0")))
(terpri) (terpri)