[elpa] externals/org-contacts 2f0d7e94dd 002/154: org-contacts: make Gnus usage optional

[ELPA Syncer]

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

    org-contacts: make Gnus usage optional
    
    Signed-off-by: Julien Danjou <julien@danjou.info>
---
 org-contacts.el | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/org-contacts.el b/org-contacts.el
index 86b1741a6f..e8c4807a8c 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -37,9 +37,7 @@
 ;;; Code:
 
 (eval-and-compile
-  (require 'org)
-  (require 'gnus)
-  (require 'gnus-art))
+  (require 'org))
 
 (defgroup org-contacts nil
   "Options concerning contacts management."
@@ -253,8 +251,6 @@ If both match values are nil, return all contacts."
                ;; show the next heading
                (org-flag-heading nil)))))))
 
-(define-key gnus-summary-mode-map ";" 'org-contacts-gnus-article-from-goto)
-
 (defun org-contacts-anniversaries (&optional field format)
   "Compute FIELD anniversary for each contact, returning FORMAT.
 Default FIELD value is \"BIRTHDAY\".
@@ -323,8 +319,6 @@ This function should be called from 
`gnus-article-prepare-hook'."
                  (link (gnus-with-article-buffer (org-store-link nil))))
             (org-set-property org-contacts-last-read-mail-property link)))))))
 
-(add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-store-last-mail)
-
 (defun org-contacts-icon-as-string ()
   (let ((image (org-contacts-get-icon)))
     (concat
@@ -386,7 +380,17 @@ This function should be called from 
`gnus-article-prepare-hook'."
       (org-with-point-at marker
         (org-contacts-check-mail-address (cadr 
(org-contacts-gnus-get-name-email)))))))
 
-(add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-check-mail-address)
+(defun org-contacts-gnus-insinuate ()
+  "Add some hooks for Gnus user.
+This adds `org-contacts-gnus-check-mail-address' and
+`org-contacts-gnus-store-last-mail' to
+`gnus-article-prepare-hook'. It also adds a binding on `;' in
+`gnus-summary-mode-map' to `org-contacts-gnus-article-from-goto'"
+  (require 'gnus)
+  (require 'gnus-art)
+  (define-key gnus-summary-mode-map ";" 'org-contacts-gnus-article-from-goto)
+  (add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-check-mail-address)
+  (add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-store-last-mail))
 
 (defun org-contacts-view-send-email (&optional ask)
   "Send email to the contact at point.