Add wrapper functions for insinuating

diff --git a/README b/README
index 64b960ca440ac5bd8691932e14a6d96714a8fe56..aff4c7b09f2715209e65784963071c2efb338094 100644 (file)
--- 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 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)