From d5aeb0de1b95f792a31efb26d89d61d8439d6dce Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 10 Jul 2020 14:03:51 +0100 Subject: maildir: adjustments in formatting --- net/jao-maildir.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'net') diff --git a/net/jao-maildir.el b/net/jao-maildir.el index 8b0f6c9..bedaa7f 100644 --- a/net/jao-maildir.el +++ b/net/jao-maildir.el @@ -57,12 +57,13 @@ (a (cdr (assoc m jao-maildir-tracked-maildirs)))) (when (null a) (setq total (+ n total))) (when a (push (format "%s%s" a n) counts))))) - (let ((total (if (> total 0) (format " %d " total) " ")) - (s (propertize (mapconcat 'identity counts " ") - 'face 'font-lock-function-name-face))) + (let* ((total (if (> total 0) (format " %d " total) " ")) + (s (propertize (mapconcat 'identity counts " ") + 'face 'font-lock-function-name-face)) + (s (if (string-empty-p s) s (concat s " ")))) (setq jao-maildir-mode-line-string (format "%s%s" total s)) (when (and jao-maildir-echo-p (not (string-empty-p s))) - (message "%s" s)) + (message "Mail%s" s)) (force-mode-line-update t)))) (defvar jao-maildir--watches nil) -- cgit v1.2.3