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

mu4e: work-around for missing contacts

Browse Source
This commit is contained in:
djcb
2018-06-13 18:19:13 +03:00
parent acb68f5551
commit 9bf1670aa1
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
mu4e/mu4e-compose.el
View File

@ -288,9 +288,9 @@ If needed, set the Fcc header, and register the handler function."
(lambda (file) (lambda (file)
(setq message-fcc-handler-function old-handler) ;; reset the fcc handler (setq message-fcc-handler-function old-handler) ;; reset the fcc handler
(let ((mdir-path (concat mu4e-maildir maildir))) (let ((mdir-path (concat mu4e-maildir maildir)))
;; Create the full maildir structure for the sent folder if it doesn't exist. `mu4e~proc-mkdir` ;; Create the full maildir structure for the sent folder if it doesn't exist.
;; runs asynchronously but no matter whether it runs before or after `write-file`, the sent ;; `mu4e~proc-mkdir` runs asynchronously but no matter whether it runs before or after
;; maildir ends up in the correct state. ;; `write-file`, the sent maildir ends up in the correct state.
(unless (file-exists-p mdir-path) (unless (file-exists-p mdir-path)
(mu4e~proc-mkdir mdir-path))) (mu4e~proc-mkdir mdir-path)))
(write-file file) ;; writing maildirs files is easy (write-file file) ;; writing maildirs files is easy
@ -465,8 +465,9 @@ buffers; lets remap its faces so it uses the ones for mu4e."
(setq default-directory (expand-file-name "~/")) (setq default-directory (expand-file-name "~/"))
;; offer completion for e-mail addresses ;; offer completion for e-mail addresses
(when mu4e-compose-complete-addresses (when mu4e-compose-complete-addresses
(unless mu4e~contacts ;; work-around for https://github.com/djcb/mu/issues/1016
(mu4e~request-contacts))
(mu4e~compose-setup-completion)) (mu4e~compose-setup-completion))
(when mu4e-compose-format-flowed (when mu4e-compose-format-flowed
(turn-off-auto-fill) (turn-off-auto-fill)
(setq truncate-lines nil (setq truncate-lines nil