Initial Wanderlust support

Apply patch from David Bremner to add Wanderlust support and document
the changes.

diff --git a/README b/README
index 74f5d0306eaad74db5843a3c551f6722e3ca0506..5fc2968aebf6a1068f8b4fd2bb03ab5203ba111b 100644 (file)
--- a/README
+++ b/README
@@ -12,6 +12,12 @@ To use this, put something like:
 
 in your .emacs file.
 
+If you use Wanderlust, use 
+
+  (add-hook 'gnus-startup-hook 'eweouz-insinuate-wl)
+
+instead.
+
 - C-tab gets mapped to completing email addresses in sendmail-mode and
   message mode
 

diff --git a/lisp/eweouz.el b/lisp/eweouz.el
index ed9242f7b122ff7fd004751b3c5846662059c753..8ae3f8746d801b65177fb8ca81b33e840d5aec49 100644 (file)
--- a/lisp/eweouz.el
+++ b/lisp/eweouz.el
@@ -158,20 +158,32 @@
     (call-process eweouz-write-path nil nil nil "--id" "new" "--full-name" name
                  "--emails" email)))
 
-;;;###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))
 
+(defun eweouz-insinuate-wl ()
+  (define-key wl-draft-mode-map [C-tab] 'eweouz-complete)
+  (define-key wl-summary-mode-map ":" 'eweouz-add-sender-wl))
+
+(defun eweouz-add-sender-wl ()
+  "Add sender of current message"
+  (interactive)
+  (save-excursion
+    (set-buffer wl-message-buffer)
+    (let* ((from (std11-extract-address-components (std11-field-body "From")))
+          (record (list (cons 'email (cadr from))
+                        (cons 'name (car from)))))
+      (eweouz-do-add record))))
+
 (require 'vcard)
 (provide 'eweouz)
+