alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of github.com:djcb/mu

Browse Source
This commit is contained in:
djcb
2015-12-16 21:39:47 +02:00
parent a14b3f0e62 8293dac5b4
commit c328d679de
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
mu4e/mu4e-compose.el
View File

@ -368,8 +368,9 @@ tempfile)."
(set (make-local-variable 'mu4e-compose-parent-message) original-msg) (set (make-local-variable 'mu4e-compose-parent-message) original-msg)
(put 'mu4e-compose-parent-message 'permanent-local t) (put 'mu4e-compose-parent-message 'permanent-local t)
(let ((context (mu4e-context-determine mu4e-compose-parent-message))) (let ((context (mu4e-context-determine mu4e-compose-parent-message)))
(when context (if context
(mu4e-context-switch (mu4e-context-name context)))) (mu4e-context-switch (mu4e-context-name context))
(when mu4e-contexts (mu4e-context-switch))))
(run-hooks 'mu4e-compose-pre-hook) (run-hooks 'mu4e-compose-pre-hook)
;; this opens (or re-opens) a messages with all the basic headers set. ;; this opens (or re-opens) a messages with all the basic headers set.

2
mu4e/mu4e-context.el
View File

@ -107,7 +107,7 @@ If there are contexts but none match, return nil, unless
(or (find-if (lambda (context) (or (find-if (lambda (context)
(and (mu4e-context-match-func context) (and (mu4e-context-match-func context)
(funcall (mu4e-context-match-func context) msg))) mu4e-contexts) (funcall (mu4e-context-match-func context) msg))) mu4e-contexts)
(car mu4e-contexts)))) (when pick-first (car mu4e-contexts)))))
(provide 'mu4e-context) (provide 'mu4e-context)