Add wrapper functions for insinuating

[eweouz] / lisp / eweouz.el

diff --git a/lisp/eweouz.el b/lisp/eweouz.el
index 5b1d1aedd3e0de0a73933f37fc779b9d2ad3fa77..d2adcf340a578660a54af4638a968297a1fca39e 100644 (file)
--- 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)