ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update awesome mail widget

Browse source
This commit is contained in:
Tom Willemse 2015-04-08 15:02:08 +02:00
parent 5d9ad8a032
commit 742577668a
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/.emacs.d/init.el
View file

@ -164,11 +164,7 @@ MODE1 is enabled and vice-versa."
"Update mailcount widget for GNUS-GROUP. "Update mailcount widget for GNUS-GROUP.
But only if it is a maildir inbox." But only if it is a maildir inbox."
(let ((name (and (awesome-send "mymailwidget:set_count()"))
(string-match "^nnmaildir\\+\\(.*\\):inbox$" gnus-group)
(match-string 1 gnus-group))))
(when name
(awesome-send (format "mailwidgets.%s:set_mailcount()" name)))))
(defun awesome-update-current-mailbox () (defun awesome-update-current-mailbox ()
"Update mailcount widget for current gnus group." "Update mailcount widget for current gnus group."