diff options
| author | jao <jao@gnu.org> | 2020-08-22 00:03:23 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-08-22 00:04:05 +0100 |
| commit | 5029d8942ada6f90dec9eef1744612575d31466b (patch) | |
| tree | 1d9b3d6a22040dfa15b6be7d45172c761756f66a /net | |
| parent | ed64d6044c6a2d3d14a9a4cbd3eadda6831172fc (diff) | |
| download | elibs-5029d8942ada6f90dec9eef1744612575d31466b.tar.gz elibs-5029d8942ada6f90dec9eef1744612575d31466b.tar.bz2 | |
maildir: better echo messages
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)) |