Hi,

I missed a nasty bit: `org-contacts-wl-get-name-email' was not updated
and contained another bug.
:(

Patch appended.

Michael

>From 0417bb6f11828ef55bd451d7523f4f954963bd87 Mon Sep 17 00:00:00 2001
Message-Id: 
<0417bb6f11828ef55bd451d7523f4f954963bd87.1305223167.git.markert.mich...@googlemail.com>
From: Michael Markert <markert.mich...@googlemail.com>
Date: Thu, 12 May 2011 19:55:10 +0200
Subject: [PATCH] Fix `org-contacts-wl-get-name-email'.
To: emacs-orgmode@gnu.org

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

diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el
index ff4374d..192cb45 100644
--- a/contrib/lisp/org-contacts.el
+++ b/contrib/lisp/org-contacts.el
@@ -423,9 +423,9 @@ Depends on Wanderlust been loaded."
 (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)))
+  (let ((from (org-contacts-wl-get-from-header-content)))
     (when from
-      (cons (wl-address-header-extract-realname from)
+      (list (wl-address-header-extract-realname from)
            (wl-address-header-extract-address from)))))

 (defun org-contacts-template-wl-name (&optional return-value)
--
1.7.5.1

Attachment: pgpiNlDEg77f4.pgp
Description: PGP signature

Reply via email to