fix(mu4e): support mu 1.8
Thanks to some combination of ignorance and obstinance, mu4e has thrown compatibility to the wind and completely ignored the exitance of define-obsolete-function-alias. Coupled with the inconsistent/partial function renaming, this has made the mu4e 1.6⟶1.8 change particularly annoying to deal with. By suffering the pain of doing the mu4e author's work for them, we can use defalias to give backwards compatibility a good shot for about 60 functions. Some mu4e~x functions are now mu4e--x, others are unchanged, and then you've got a few odd changes like mu4e~proc -> mu4e--server and mu4e-search-rerun. The form of message :from entries has also changed, and a new (mu4e) entrypoint added supplanting mu4e~start. Fix: #6511 Close: #6549 Co-authored-by: Rahguzar <aikrahguzar@gmail.com>
This commit is contained in:
parent
33c5f3721a
commit
b07614037f
3 changed files with 59 additions and 18 deletions
|
@ -67,7 +67,7 @@ default/fallback account."
|
|||
(setq +mu4e--old-wconf (current-window-configuration))
|
||||
(delete-other-windows)
|
||||
(switch-to-buffer (doom-fallback-buffer)))
|
||||
(mu4e~start 'mu4e~main-view)
|
||||
(mu4e)
|
||||
;; (save-selected-window
|
||||
;; (prolusion-mail-show))
|
||||
)
|
||||
|
@ -188,6 +188,8 @@ is tomorrow. With two prefixes, select the deadline."
|
|||
(lev (org-outline-level))
|
||||
(folded-p (invisible-p (point-at-eol)))
|
||||
(from (plist-get msg :from)))
|
||||
(if (consp (car from)) ; Occurs when using mu4e 1.8+.
|
||||
(setq from (car from)))
|
||||
;; place the subheader
|
||||
(when folded-p (show-branches)) ; unfold if necessary
|
||||
(org-end-of-meta-data) ; skip property drawer
|
||||
|
|
|
@ -76,7 +76,7 @@ Else, write to this process' PID to the lock file"
|
|||
"Handle another process requesting the Mu4e lock."
|
||||
(when (equal (nth 1 event) 'created)
|
||||
(when +mu4e-lock-relaxed
|
||||
(mu4e~stop)
|
||||
(mu4e--stop)
|
||||
(file-notify-rm-watch +mu4e-lock--file-watcher)
|
||||
(message "Someone else wants to use Mu4e, releasing lock")
|
||||
(delete-file +mu4e-lock-file)
|
||||
|
@ -90,4 +90,4 @@ Else, write to this process' PID to the lock file"
|
|||
(setq +mu4e-lock--file-just-deleted t)
|
||||
(when (and +mu4e-lock-greedy (+mu4e-lock-available t))
|
||||
(message "Noticed Mu4e lock was available, grabbed it")
|
||||
(run-at-time 0.2 nil #'mu4e~start)))))
|
||||
(run-at-time 0.2 nil #'mu4e)))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue