Merge branch 'master' of git+ssh://git.err.no/srv/git.err.no/www/eweouz

[eweouz] / lisp / eweouz.el

diff --git a/lisp/eweouz.el b/lisp/eweouz.el
index a8901c61d82b92e30f3adcbc048e27dea5d5eaa2..91e24cd363e0a27f442bb7e8626981403e4580c1 100644 (file)
--- a/lisp/eweouz.el
+++ b/lisp/eweouz.el
@@ -155,20 +155,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)
+