wl-addrmgr.el (wl-addrmgr-apply-exec): Fix for already-list.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 60c30d0..3b1e7b6 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2001-08-21  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-addrmgr.el (wl-addrmgr-apply-exec): Fix for already-list.
+
+2001-08-21  Kenichi OKADA  <okada@opaopa.org>
+
        * wl-addrmgr.el (wl-addrmgr-draw): Fix for already-list.
        (wl-addrmgr-address-entry-list): Ditto.
 

diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el
index 4452bbd..bb2261d 100644 (file)
--- a/wl/wl-addrmgr.el
+++ b/wl/wl-addrmgr.el
@@ -601,15 +601,9 @@ Return nil if no ADDRESS exists."
       (list to-list cc-list bcc-list))))
 
 (defun wl-addrmgr-apply-exec (rcpt)
-  (let ((to (nconc (nth 0 rcpt) (mapcar
-                                'cdr
-                                (cdr (assq 'to wl-addrmgr-unknown-list)))))
-       (cc (nconc (nth 1 rcpt) (mapcar
-                                'cdr
-                                (cdr (assq 'cc wl-addrmgr-unknown-list)))))
-       (bcc (nconc (nth 2 rcpt) (mapcar
-                                 'cdr
-                                 (cdr (assq 'bcc wl-addrmgr-unknown-list)))))
+  (let ((to (nconc (nth 0 rcpt) (cdr (assq 'to wl-addrmgr-unknown-list))))
+       (cc (nconc (nth 1 rcpt) (cdr (assq 'cc wl-addrmgr-unknown-list))))
+       (bcc (nconc (nth 2 rcpt) (cdr (assq 'bcc wl-addrmgr-unknown-list))))
        from clist)
     (setq clist (list (cons "Bcc" (if bcc (mapconcat 'identity bcc ",\n\t")))
                      (cons "Cc" (if cc (mapconcat 'identity cc ",\n\t")))