[O] [PATCH 2/3] Add name-email function for to unificate template interface.

[Michael Markert]

---
 contrib/lisp/org-contacts.el |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el
index f0cf131..60eb542 100644
--- a/contrib/lisp/org-contacts.el
+++ b/contrib/lisp/org-contacts.el
@@ -420,6 +420,14 @@ Depends on Wanderlust been loaded."
                                           (std11-fetch-field "From")
                                         (widen))))))
 
+(defun org-contacts-wl-get-name-email ()
+  "Get name and email address from wanderlust email.
+See `org-contacts-wl-get-from-header-content' for limitations."
+  (let ((from (wl-get-from-header-content)))
+    (when from
+      (cons (wl-address-header-extract-realname from)
+           (wl-address-header-extract-address from)))))
+
 (defun org-contacts-template-wl-name (&optional return-value)
   (let ((from (wl-get-from-header-content)))
     (or (and from (wl-address-header-extract-realname from))
-- 
1.7.4.4