diff options
Diffstat (limited to 'net/jao-frm.el')
| -rw-r--r-- | net/jao-frm.el | 6 |
1 files changed, 3 insertions, 3 deletions
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) |