From 0701403d76a22ee9e22249a7e0202019444717d9 Mon Sep 17 00:00:00 2001 From: David Maus Date: Sat, 14 Nov 2009 12:37:47 +0100 Subject: [PATCH] org-wl: get from field regardless of wl-use-petname --- lisp/org-wl.el | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) diff --git a/lisp/org-wl.el b/lisp/org-wl.el index c329743..3f3f794 100644 --- a/lisp/org-wl.el +++ b/lisp/org-wl.el @@ -91,7 +91,11 @@ wl-summary-buffer-elmo-folder msgnum) (elmo-msgdb-overview-get-entity msgnum (wl-summary-buffer-msgdb)))) - (from (wl-summary-line-from)) + (from (let ((from-field (elmo-message-entity-field wl-message-entity + 'from))) + (if (listp from-field) + (car from-field) + from-field))) (to (let ((to-field (elmo-message-entity-field wl-message-entity 'to))) (if (listp to-field) -- 1.6.5