diff options
author | jao <jao@gnu.org> | 2019-12-01 17:46:04 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2019-12-01 17:46:04 +0000 |
commit | 087c3881b2365de87c8707d728b06873d508d706 (patch) | |
tree | 295990232157e3e288498e1d27a641f3d683cf44 /net/jao-frm.el | |
parent | 29174501739991eef804e26d39448b7cc7fb59b3 (diff) | |
download | elibs-087c3881b2365de87c8707d728b06873d508d706.tar.gz elibs-087c3881b2365de87c8707d728b06873d508d706.tar.bz2 |
New: jao-maildir
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) |