gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

app/email: replace existing contexts instead of shadowing them #528

Browse Source
This commit is contained in:
Henrik Lissner 2018-04-18 01:07:11 -04:00
parent dbd6982e06
commit ba24073a07
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
modules/app/email/config.el
View File

@ -28,6 +28,9 @@ default/fallback account."
(let ((account-vars ,letvars))
(when-let* ((address (cdr (assq 'user-mail-address account-vars))))
(cl-pushnew address mu4e-user-mail-address-list :test #'equal))
(setq mu4e-contexts
(cl-delete-if (lambda (c) (string= (mu4e-context-name c) ,label))
mu4e-contexts))
(let ((context (make-mu4e-context
:name ,label
:enter-func (lambda () (mu4e-message "Switched to %s" ,label))
@ -39,8 +42,8 @@ default/fallback account."
(mu4e-message-field msg :maildir))))
:vars ,letvars)))
(push context mu4e-contexts)
,(when default-p
`(setq-default mu4e-context-current context))))))
,(if default-p `(setq-default mu4e-context-current context))
context))))
;;