From: okada Date: Mon, 20 Aug 2001 16:39:38 +0000 (+0000) Subject: wl-addrmgr.el (wl-addrmgr-address-entry-list): Fix for already-list. X-Git-Tag: wl-2_7_3~22 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=858fbe3c76d68089e886dc4ca2637d82b2991ca0;p=elisp%2Fwanderlust.git wl-addrmgr.el (wl-addrmgr-address-entry-list): Fix for already-list. --- 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)) ","))))