emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e-compose: turn off message-completion-function 

It interferes with mu4e's completion.
This commit is contained in:
Dirk-Jan C. Binnema 2024-04-02 07:39:06 +03:00
parent 5bd0750bce
commit 2e40852abc
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mu4e/mu4e-compose.el
View File

@ -390,12 +390,16 @@ contact fields."
(mu4e-complete-contact)))) (mu4e-complete-contact))))
(defun mu4e--compose-setup-completion () (defun mu4e--compose-setup-completion ()
"Set up auto-completion of addresses." "Set up auto-completion of addresses if enabled."
;; turn off message-mode's completion, it's just interfering.
(remove-hook 'completion-at-point-functions
#'message-completion-function 'local)
(when mu4e-compose-complete-addresses
(set (make-local-variable 'completion-ignore-case) t) (set (make-local-variable 'completion-ignore-case) t)
(set (make-local-variable 'completion-cycle-threshold) 7) (set (make-local-variable 'completion-cycle-threshold) 7)
(add-to-list (make-local-variable 'completion-styles) 'substring) (add-to-list (make-local-variable 'completion-styles) 'substring)
(add-hook 'completion-at-point-functions (add-hook 'completion-at-point-functions
#'mu4e--compose-complete-contact-field nil t)) #'mu4e--compose-complete-contact-field nil t)))
(defun mu4e--fcc-handler (msgpath) (defun mu4e--fcc-handler (msgpath)
"Handle Fcc: for MSGPATH. "Handle Fcc: for MSGPATH.
@ -654,11 +658,8 @@ buffers; lets remap its faces so it uses the ones for mu4e."
(set (make-local-variable 'message-send-mail-real-function) nil) (set (make-local-variable 'message-send-mail-real-function) nil)
;; Set to nil to enable `electric-quote-local-mode' to work: ;; Set to nil to enable `electric-quote-local-mode' to work:
(set (make-local-variable 'comment-use-syntax) nil) (set (make-local-variable 'comment-use-syntax) nil)
;; offer completion for e-mail addresses (mu4e--compose-setup-completion) ;; maybe offer address completion
(when mu4e-compose-complete-addresses (if mu4e-compose-format-flowed ;; format-flowed
(mu4e--compose-setup-completion))
;; format-flowed
(if mu4e-compose-format-flowed
(progn (progn
(turn-off-auto-fill) (turn-off-auto-fill)
(setq truncate-lines nil (setq truncate-lines nil