[elpa] scratch/org-contacts-rebased 8b85530 037/118: org-contacts.el: Let the users decide if they want to use `org-contacts' to complete mail addresses

[monnier--- via]

branch: scratch/org-contacts-rebased
commit 8b85530a67b942eb50d48ee592fa0799247d89bf
Author: Grégoire Jadi <gregoire.j...@gmail.com>
Commit: Grégoire Jadi <gregoire.j...@gmail.com>

    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