From fae4e25f10c2570560fea648f78080e13805d7d7 Mon Sep 17 00:00:00 2001
From: Tollef Fog Heen <tfheen@err.no>
Date: Sat, 2 Aug 2008 08:50:26 +0200
Subject: [PATCH] Add wrapper functions for insinuating

---
 README         |  6 ++++--
 lisp/eweouz.el | 15 +++++++++++++++
 2 files changed, 19 insertions(+), 2 deletions(-)

diff --git a/README b/README
index 64b960c..aff4c7b 100644
--- a/README
+++ b/README
@@ -6,9 +6,11 @@ then be for you.
 
 To use this, put something like:
 
-(add-hook 'message-mode-hook '(lambda()(local-set-key [C-tab] 'eweouz-complete)))
+  (add-hook 'gnus-startup-hook 'eweouz-insinuate-gnus)
+  (add-hook 'mail-setup-hook 'eweouz-insinuate-sendmail)
+  (add-hook 'message-setup-hook 'eweouz-insinuate-message)
 
-in your .gnus file.
+in your .emacs file.
 
 Feature suggestions, patches and general feedback is of course
 welcome.
diff --git a/lisp/eweouz.el b/lisp/eweouz.el
index 5b1d1ae..d2adcf3 100644
--- a/lisp/eweouz.el
+++ b/lisp/eweouz.el
@@ -135,4 +135,19 @@
     (set-buffer (get-buffer-create eweouz-buffer-name))
     (insert (vcard-pretty-print record))))
 
+;;;###autoload
+(defun eweouz-insinuate-gnus ()
+  "Call this function to hook EWEOUZ into Gnus."
+  (define-key gnus-summary-mode-map ":" 'eweouz-add-sender))
+
+;;;###autoload
+(defun eweouz-insinuate-sendmail ()
+  "Call this function to hook EWEOUZ into sendmail (M-x mail)."
+  (define-key mail-mode-map [C-tab] eweouz-complete))
+
+;;;###autoload
+(defun eweouz-insinuate-message ()
+  "Call this function to hook EWEOUZ into message-mode."
+  (define-key message-mode-map [C-tab] eweouz-complete))
+
 (require 'vcard)
-- 
2.39.5