From 482a27fc6a4edaedaa0459ac3c21c84e3a295b43 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 8 Aug 2000 00:32:11 +0000 Subject: [PATCH] (wl-draft-reply): Fixed problem when to or cc contains invalid address syntax. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 7 +++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 8b17bb8..43aac79 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2000-08-08 Yuuichi Teranishi + + * wl-draft.el (wl-draft-reply): Fixed problem when to or cc + contains invalid address syntax. + 2000-07-26 Kenichi OKADA * wl-folder.el (wl-folder-check-entity-async): Use diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 6dece8a..7580d86 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -389,13 +389,13 @@ the `wl-smtp-features' variable." (and to (setq to (mapconcat '(lambda (addr) (if wl-draft-reply-use-address-with-full-name - (cdr (assoc addr addr-alist)) + (or (cdr (assoc addr addr-alist)) addr) addr)) to ",\n\t"))) (and cc (setq cc (mapconcat '(lambda (addr) (if wl-draft-reply-use-address-with-full-name - (cdr (assoc addr addr-alist)) + (or (cdr (assoc addr addr-alist)) addr) addr)) cc ",\n\t"))) (and mail-followup-to @@ -403,8 +403,7 @@ the `wl-smtp-features' variable." (mapconcat '(lambda (addr) (if wl-draft-reply-use-address-with-full-name - (or (cdr (assoc addr addr-alist)) - addr) + (or (cdr (assoc addr addr-alist)) addr) addr)) mail-followup-to ",\n\t"))) (and (null to) (setq to cc cc nil)) -- 1.7.10.4