From 087c3881b2365de87c8707d728b06873d508d706 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 1 Dec 2019 17:46:04 +0000 Subject: New: jao-maildir --- net/jao-frm.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'net/jao-frm.el') diff --git a/net/jao-frm.el b/net/jao-frm.el index f04c0ce..d189423 100644 --- a/net/jao-frm.el +++ b/net/jao-frm.el @@ -202,16 +202,16 @@ (when (and (boundp 'display-time-mode) display-time-mode) (display-time-update))))) -(defun jao-frm-show-mail-numbers () +(defun jao-frm-show-mail-numbers (&optional fmt) (interactive) - (let ((counts (jao-frm-mail-counts nil))) + (let ((counts (jao-frm-mail-counts fmt))) (message (if counts (mapconcat 'identity counts ", ") "No mail")))) (defun jao-frm-mail-string () (let ((counts (jao-frm-mail-counts (lambda (m n) (let ((m (substring (file-name-nondirectory m) 0 1))) - (format "%s %s" m n)))))) + (format "%s%s" (capitalize m) n)))))) (mapconcat 'identity counts " "))) (provide 'jao-frm) -- cgit v1.2.3