From 1313bd7bb0ecb0f689b43f3ee3fa9b8d7e307416 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Jadi?= Date: Wed, 27 Feb 2013 12:41:08 +0100 Subject: [PATCH] org-contacts.el: Let the users decide if they want to use `org-contacts' to complete mail addresses * contrib/lisp/org-contacts.el (org-contacts-enable-completion): A custom boolean variable to enable the completion with `org-contacts'. Enabled by default. --- org-contacts.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/org-contacts.el b/org-contacts.el index f99242c..8674533 100644 --- a/org-contacts.el +++ b/org-contacts.el @@ -133,6 +133,11 @@ This overrides `org-email-link-description-format' if set." :group 'org-contacts :type 'file) +(defcustom org-contacts-enable-completion t + "Enable or not the completion in `message-mode' with `org-contacts'." + :group 'org-contacts + :type 'boolean) + ;; Decalre external functions and variables (declare-function wl-summary-message-number "ext:wl-summary" ()) (declare-function wl-address-header-extract-address "ext:wl-address") @@ -642,7 +647,8 @@ This adds `org-contacts-gnus-check-mail-address' and (add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-check-mail-address) (add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-store-last-mail)) -(when (boundp 'completion-at-point-functions) +(when (and org-contacts-enable-completion + (boundp 'completion-at-point-functions)) (add-hook 'message-mode-hook (lambda () (add-to-list 'completion-at-point-functions