From: okada <okada>
Date: Mon, 20 Aug 2001 18:21:59 +0000 (+0000)
Subject: wl-addrmgr.el (wl-addrmgr-apply-exec): Fix for already-list.
X-Git-Tag: wl-2_7_3~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2a3037aafe57eeb9aa78c2543f9fa2b58dd9c3e3;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 60c30d0..3b1e7b6 100644
--- 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
--- 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")))