From: Tollef Fog Heen <tfheen@err.no>
Date: Sat, 2 Aug 2008 06:50:26 +0000 (+0200)
Subject: Add wrapper functions for insinuating
X-Git-Tag: 0.1~7
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fae4e25f10c2570560fea648f78080e13805d7d7;p=eweouz

Add wrapper functions for insinuating
---

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)