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