From: okada <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/cgi-bin/gitweb.cgi?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  <okada@opaopa.org>
 
 	* wl-addrmgr.el (wl-addrmgr-draw): Fix for already-list.
+	(wl-addrmgr-address-entry-list): Ditto.
 
 2001-08-21  Yuuichi Teranishi  <teranisi@gohome.org>
 
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)) ","))))