[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH 2/3] Add name-email function for to unificate template interf
From: |
Michael Markert |
Subject: |
[O] [PATCH 2/3] Add name-email function for to unificate template interface. |
Date: |
Fri, 6 May 2011 10:58:40 +0200 |
---
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