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

* mu4e: make address completion case-insensitive

Browse Source
This commit is contained in:
djcb
2012-08-16 20:47:36 +03:00
parent 1a5ee55a80
commit 8853f0daa5
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
mu4e/mu4e-compose.el
View File

@ -31,7 +31,6 @@
(eval-when-compile (byte-compile-disable-warning 'cl-functions)) (eval-when-compile (byte-compile-disable-warning 'cl-functions))
(require 'cl) (require 'cl)
(require 'startup) ;; silence elint re `user-mail-address'.
(require 'message) (require 'message)
(require 'mail-parse) (require 'mail-parse)
(require 'smtpmail) (require 'smtpmail)
@ -476,10 +475,13 @@ needed, set the Fcc header, and register the handler function."
\\{message-mode-map}." \\{message-mode-map}."
(let ((message-hidden-headers mu4e~compose-hidden-headers)) (let ((message-hidden-headers mu4e~compose-hidden-headers))
(use-local-map mu4e-compose-mode-map) (use-local-map mu4e-compose-mode-map)
(make-local-variable 'message-default-charset) (make-local-variable 'message-default-charset)
;; if the default charset is not set, use UTF-8 ;; if the default charset is not set, use UTF-8
(unless message-default-charset (unless message-default-charset
(setq message-default-charset 'utf-8)) (setq message-default-charset 'utf-8))
;; make completion case-insensitive
(set (make-local-variable 'completion-ignore-case) t)
;; make sure mu4e is started in the background (ie. we don't want to error ;; make sure mu4e is started in the background (ie. we don't want to error
;; out when sending the message; better to do it now if there's a problem) ;; out when sending the message; better to do it now if there's a problem)
(mu4e~start) ;; start mu4e in background, if needed (mu4e~start) ;; start mu4e in background, if needed
@ -657,8 +659,6 @@ buffer."
(when (and forwarded-from (string-match "<\\(.*\\)>" forwarded-from)) (when (and forwarded-from (string-match "<\\(.*\\)>" forwarded-from))
(mu4e~proc-move (match-string 1 forwarded-from) nil "+P"))))))) (mu4e~proc-move (match-string 1 forwarded-from) nil "+P")))))))
(defun mu4e-compose (compose-type) (defun mu4e-compose (compose-type)
"Start composing a message of COMPOSE-TYPE, where COMPOSE-TYPE is "Start composing a message of COMPOSE-TYPE, where COMPOSE-TYPE is
a symbol, one of `reply', `forward', `edit', `new'. All but `new' a symbol, one of `reply', `forward', `edit', `new'. All but `new'
@ -733,9 +733,7 @@ message."
(re-search-backward "\\(\\`\\|[\n:,]\\)[ \t]*") (re-search-backward "\\(\\`\\|[\n:,]\\)[ \t]*")
(goto-char (match-end 0)) (goto-char (match-end 0))
(point)))) (point))))
(orig (buffer-substring-no-properties start end)) (list start end mu4e~contacts-for-completion))))))
(completion-ignore-case t))
(list start end mu4e~contacts-for-completion)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;