From 5c05caf1964256c017001a4c6689af42109f34c1 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 17 Jun 2015 10:43:35 +0200
Subject: Add mail update routines for mowedline

---
 emacs/.emacs.d/init.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'emacs/.emacs.d/init.el')

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 829644e..81e243d 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -182,6 +182,10 @@ But only if it is a maildir inbox."
   (when (and (boundp 'gnus-newsgroup-name) gnus-newsgroup-name)
     (awesome-update-mailbox gnus-newsgroup-name)))
 
+(defun update-mailcount ()
+  "Update the mailcount in the wm."
+  (shell-command-to-string "new-mail-mowedline"))
+
 (defun oni:before-save-func ()
   "Function for `before-save-hook'."
   (if (eq major-mode 'html-mode)
@@ -1305,8 +1309,8 @@ from myaethon2.core.decorators import (
 (add-hook 'diary-display-hook 'oni:diary-display-func)
 (add-hook 'flycheck-mode-hook #'flycheck-cask-setup)
 (add-hook 'git-commit-mode-hook #'oni:set-ispell-local-en-dict)
-(add-hook 'gnus-exit-group-hook 'awesome-update-current-mailbox)
-(add-hook 'gnus-exit-gnus-hook 'awesome-update-current-mailbox)
+(add-hook 'gnus-exit-group-hook 'update-mailcount)
+(add-hook 'gnus-exit-gnus-hook 'update-mailcount)
 (add-hook 'haskell-mode-hook 'oni:haskell-mode-func)
 (add-hook 'outline-minor-mode-hook #'oni:set-tab-maybe-toggle-outline)
 (add-hook 'scheme-mode-hook (lambda () (setq ac-sources '(ac-source-geiser))))
-- 
cgit v1.2.3-54-g00ecf