From 858fbe3c76d68089e886dc4ca2637d82b2991ca0 Mon Sep 17 00:00:00 2001 From: okada Date: Mon, 20 Aug 2001 16:39:38 +0000 Subject: [PATCH] wl-addrmgr.el (wl-addrmgr-address-entry-list): Fix for already-list. --- wl/ChangeLog | 1 + wl/wl-addrmgr.el | 3 +-- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 184bc4c..60c30d0 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,6 +1,7 @@ 2001-08-21 Kenichi OKADA * wl-addrmgr.el (wl-addrmgr-draw): Fix for already-list. + (wl-addrmgr-address-entry-list): Ditto. 2001-08-21 Yuuichi Teranishi diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el index 4caf842..4452bbd 100644 --- a/wl/wl-addrmgr.el +++ b/wl/wl-addrmgr.el @@ -174,8 +174,7 @@ See info under Wanderlust for full documentation. "Return address list." (mapcar (lambda (addr) - (cons (nth 1 (std11-extract-address-components addr)) - addr)) + (nth 1 (std11-extract-address-components addr))) (wl-parse-addresses (mapconcat 'identity (elmo-multiple-fields-body-list (list field)) ",")))) -- 1.7.10.4