From 3d54471b2ad3df595855d7053a70646faea1a475 Mon Sep 17 00:00:00 2001 From: Liam Hupfer Date: Sat, 10 Jul 2021 13:50:20 -0500 Subject: [PATCH] Mu4e: Fix setting default context The default-p argument to `set-email-account!` now works as intended. mu4e checks the first context on startup to determine the default and uses functions for that, so we can't really get around it by setting the bare mu4e~context-current variable. --- modules/email/mu4e/autoload/email.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/modules/email/mu4e/autoload/email.el b/modules/email/mu4e/autoload/email.el index 4f391100b..ed0094f0d 100644 --- a/modules/email/mu4e/autoload/email.el +++ b/modules/email/mu4e/autoload/email.el @@ -23,6 +23,7 @@ default/fallback account." (when (version< mu4e-mu-version "1.4") (when-let (address (cdr (assq 'user-mail-address letvars))) (add-to-list 'mu4e-user-mail-address-list address))) + ;; remove existing context with same label (setq mu4e-contexts (cl-loop for context in mu4e-contexts unless (string= (mu4e-context-name context) label) @@ -37,9 +38,7 @@ default/fallback account." (string-prefix-p (format "/%s" label) (mu4e-message-field msg :maildir)))) :vars letvars))) - (push context mu4e-contexts) - (when default-p - (setq-default mu4e-context-current context)) + (add-to-list 'mu4e-contexts context (not default-p)) context)))