From 2a3037aafe57eeb9aa78c2543f9fa2b58dd9c3e3 Mon Sep 17 00:00:00 2001 From: okada Date: Mon, 20 Aug 2001 18:21:59 +0000 Subject: [PATCH] wl-addrmgr.el (wl-addrmgr-apply-exec): Fix for already-list. --- wl/ChangeLog | 4 ++++ wl/wl-addrmgr.el | 12 +++--------- 2 files changed, 7 insertions(+), 9 deletions(-) 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 + * wl-addrmgr.el (wl-addrmgr-apply-exec): Fix for already-list. + +2001-08-21 Kenichi OKADA + * 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"))) -- 1.7.10.4