emacs
/
evil-collection
mirror of https://github.com/jojojames/evil-collection.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e queued mail status needs to be dynamic 

This fixes a fairly major bug where mail could be queued but not shown
to the user.  (This happened to me, I had a month of email sitting in
the queue!)

Since the number of messages in the queue can change, and the status
of queuing mail or direct mail can also change, the display should not
be in a defvar which only gets evaluated once when the library is
first loaded.

This change makes it so the queue status is updated each time the main
mu4e view is drawn.
This commit is contained in:
Peter Jones 2019-01-16 13:20:53 -07:00 committed by Pierre Neidhardt
parent 9e04ee565d
commit 7b12395c18
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
evil-collection-mu4e.el
View File

@ -277,7 +277,8 @@
(defvar evil-collection-mu4e-end-region-misc "q]uit" (defvar evil-collection-mu4e-end-region-misc "q]uit"
"The place where to end overriding Misc section.") "The place where to end overriding Misc section.")
(defvar evil-collection-mu4e-new-region-misc (defun evil-collection-mu4e-new-region-misc ()
"Define the evil-mu4e Misc region."
(concat (concat
(mu4e~main-action-str "\t* [;]Switch focus\n" 'mu4e-context-switch) (mu4e~main-action-str "\t* [;]Switch focus\n" 'mu4e-context-switch)
(mu4e~main-action-str "\t* [u]pdate email & database (Alternatively: gr)\n" (mu4e~main-action-str "\t* [u]pdate email & database (Alternatively: gr)\n"
@ -292,8 +293,7 @@
(mu4e~main-action-str "\t* [N]ews\n" 'mu4e-news) (mu4e~main-action-str "\t* [N]ews\n" 'mu4e-news)
(mu4e~main-action-str "\t* [A]bout mu4e\n" 'mu4e-about) (mu4e~main-action-str "\t* [A]bout mu4e\n" 'mu4e-about)
(mu4e~main-action-str "\t* [H]elp\n" 'mu4e-display-manual) (mu4e~main-action-str "\t* [H]elp\n" 'mu4e-display-manual)
(mu4e~main-action-str "\t* [q]uit\n" 'mu4e-quit)) (mu4e~main-action-str "\t* [q]uit\n" 'mu4e-quit)))
"Define the evil-mu4e Misc region.")
(defun evil-collection-mu4e-replace-region (new-region start end) (defun evil-collection-mu4e-replace-region (new-region start end)
"Replace region between START and END with NEW-REGION. "Replace region between START and END with NEW-REGION.
@ -310,18 +310,16 @@ START end END end are regular expressions."
(end-point (re-search-forward end))) (end-point (re-search-forward end)))
(delete-region start-point end-point))) (delete-region start-point end-point)))
(defun evil-collection-mu4e-update-main-view () (defun evil-collection-mu4e-update-main-view ()
"Update 'Basic' and 'Misc' regions to reflect the new "Update 'Basic' and 'Misc' regions to reflect the new
keybindings." keybindings."
(evil-collection-mu4e-replace-region evil-collection-mu4e-new-region-basic (evil-collection-mu4e-replace-region evil-collection-mu4e-new-region-basic
evil-collection-mu4e-begin-region-basic evil-collection-mu4e-begin-region-basic
evil-collection-mu4e-end-region-basic) evil-collection-mu4e-end-region-basic)
(evil-collection-mu4e-replace-region evil-collection-mu4e-new-region-misc (evil-collection-mu4e-replace-region (evil-collection-mu4e-new-region-misc)
evil-collection-mu4e-begin-region-misc evil-collection-mu4e-begin-region-misc
evil-collection-mu4e-end-region-misc)) evil-collection-mu4e-end-region-misc))
;;; Initialize evil-collection-mu4e ;;; Initialize evil-collection-mu4e