From 5029d8942ada6f90dec9eef1744612575d31466b Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 22 Aug 2020 00:03:23 +0100 Subject: maildir: better echo messages --- net/jao-maildir.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'net') diff --git a/net/jao-maildir.el b/net/jao-maildir.el index 93269aa..12c534a 100644 --- a/net/jao-maildir.el +++ b/net/jao-maildir.el @@ -62,8 +62,11 @@ '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 "Mail %s" s)) + (when jao-maildir-echo-p + (with-current-buffer " *Minibuf-0*" + (erase-buffer) + (when (not (string-blank-p jao-maildir-mode-line-string)) + (insert (format "Mail %s" jao-maildir-mode-line-string))))) (force-mode-line-update t)))) (defvar jao-maildir--watches nil) @@ -96,10 +99,11 @@ jao-maildirs))) ;;;###autoload -(defun jao-maildir-setup (maildirs &optional cb) +(defun jao-maildir-setup (maildirs mode-line &optional cb) (setq jao-maildirs maildirs) (setq jao-maildir-counts (jao-maildir-counts)) - (add-to-list 'global-mode-string 'jao-maildir-mode-line-string t) + (when mode-line + (add-to-list 'global-mode-string 'jao-maildir-mode-line-string t)) (jao-maildir--setup-watches cb)) -- cgit v1.2.3