[elpa] externals/org-contacts 4d5b508f0f 007/154: org-contacts: check that completion-at-point-functions is bound

[ELPA Syncer]

branch: externals/org-contacts
commit 4d5b508f0fdf8206b0f4eebdc4fba36a9ade975a
Author: Julien Danjou <julien@danjou.info>
Commit: Julien Danjou <julien@danjou.info>

    org-contacts: check that completion-at-point-functions is bound
---
 org-contacts.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/org-contacts.el b/org-contacts.el
index 6bb7abfd9f..b32ee86680 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -224,11 +224,6 @@ If both match values are nil, return all contacts."
         (when (mail-abbrev-in-expansion-header-p)
           (org-contacts-complete-name))))
 
-(add-hook 'message-mode-hook
-          (lambda ()
-            (add-to-list 'completion-at-point-functions
-                         'org-contacts-message-complete-function)))
-
 (defun org-contacts-gnus-get-name-email ()
   "Get name and email address from Gnus message."
   (gnus-with-article-headers
@@ -403,6 +398,12 @@ 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)
+  (add-hook 'message-mode-hook
+           (lambda ()
+             (add-to-list 'completion-at-point-functions
+                          'org-contacts-message-complete-function))))
+
 (defun org-contacts-wl-get-from-header-content ()
   "Retrieve the content of the `From' header of an email.
 Works from wl-summary-mode and mime-view-mode - that is while viewing email.