From: teranisi <teranisi>
Date: Tue, 8 Aug 2000 00:32:11 +0000 (+0000)
Subject: (wl-draft-reply): Fixed problem when to or cc contains invalid address syntax.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=482a27fc6a4edaedaa0459ac3c21c84e3a295b43;p=elisp%2Fwanderlust.git

(wl-draft-reply): Fixed problem when to or cc contains invalid address syntax.
---

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  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-reply): Fixed problem when to or cc
+	contains invalid address syntax.
+
 2000-07-26	Kenichi OKADA	<okada@opaopa.org>
 
 	* 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))