summaryrefslogtreecommitdiffhomepage
path: root/net
diff options
context:
space:
mode:
Diffstat (limited to 'net')
-rw-r--r--net/jao-maildir.el15
1 files changed, 8 insertions, 7 deletions
diff --git a/net/jao-maildir.el b/net/jao-maildir.el
index 2e15980..05cfc2d 100644
--- a/net/jao-maildir.el
+++ b/net/jao-maildir.el
@@ -77,8 +77,7 @@
(dolist (mbox maildirs)
(let ((lb (seq-find (lambda (lb) (string-match-p lb mbox))
(hash-table-keys label-mboxes))))
- (puthash lb (cons mbox (gethash lb label-mboxes)) label-mboxes)
- (puthash mbox lb mboxes-label)))
+ (puthash lb (cons mbox (gethash lb label-mboxes)) label-mboxes)))
(setq jao-maildir--label-mboxes label-mboxes)
(setq jao-maildir--trackers trackers)))
@@ -103,10 +102,13 @@
(cons str other))))
(setq jao-maildir--track-strings other)))))
-(defun jao-maildir--update-info-string (&optional mbox)
+;;;###autoload
+(defun jao-maildir-update-info-string (&optional mbox)
(cond ((eq mbox t)
(seq-do 'jao-maildir--update-track-string jao-maildir--maildirs))
- ((stringp mbox) (jao-maildir--update-track-string mbox)))
+ ((stringp mbox)
+ (puthash mbox (jao-maildir--maildir-new-count mbox) jao-maildir--counts)
+ (jao-maildir--update-track-string mbox)))
(let ((s (mapconcat 'identity (mapcar 'cdr jao-maildir--track-strings) " ")))
(setq jao-maildir-info-string (if (string-blank-p s) "" (concat s " "))))
(when jao-maildir-echo-p (jao-minibuffer-refresh)))
@@ -125,8 +127,7 @@
(lambda (e)
(jao-maildir--log-watch e mbox)
(when (memq (cadr e) '(created deleted))
- (puthash mbox (jao-maildir--maildir-new-count mbox) jao-maildir--counts)
- (jao-maildir--update-info-string mbox)
+ (jao-maildir-update-info-string mbox)
(when cb (funcall cb mbox)))))
(defun jao-maildir--setup-watches (cb)
@@ -145,7 +146,7 @@
(add-to-list 'global-mode-string 'jao-maildir-info-string t))
((eq 'minibuffer mode-line)
(jao-minibuffer-add-variable 'jao-maildir-info-string)
- (jao-maildir--update-info-string t))
+ (jao-maildir-update-info-string t))
(t (error "Invalid mode-line value")))
(jao-maildir--setup-watches cb))