diff options
| -rw-r--r-- | net/jao-maildir.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/net/jao-maildir.el b/net/jao-maildir.el index 41b5ecc..ee064a1 100644 --- a/net/jao-maildir.el +++ b/net/jao-maildir.el @@ -61,7 +61,8 @@ :group 'faces) (defface jao-maildir-emph '((t :inherit font-lock-keyword-face)) - "Face used to highlihgt non-boring tracked maildirs") + "Face used to highlihgt non-boring tracked maildirs" + :group 'jao-maildir-faces) (defun jao-maildir--update-mode-line-string () (let ((total 0) @@ -76,7 +77,8 @@ (am (when a (format "%s%s" an n))) (am (when am (if ab am (propertize am 'face 'jao-maildir-emph))))) (when (null a) (setq total (+ n total))) - (when a (if ab (push am counts) (nconc counts (list am))))))) + (when a + (if ab (push am counts) (setq counts (nconc counts (list am)))))))) (let* ((total (if (> total 0) (format " %d " total) " ")) (s (mapconcat 'identity counts " ")) (s (if (string-empty-p s) s (concat s " ")))) |