wl-addrmgr.el (wl-addrmgr-address-entry-list): Fix for already-list.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 184bc4c..60c30d0 100644 (file)
--- 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 (file)
--- 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)) ","))))