From: teranisi <teranisi>
Date: Wed, 19 Jul 2000 04:10:42 +0000 (+0000)
Subject: (wl-draft-reply): Fixed problem when mail-followup-to contains an
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4ced0bceb5d092a8b1f63213506b494aa112dd70;p=elisp%2Fwanderlust.git

(wl-draft-reply): Fixed problem when mail-followup-to contains an
address which is not included in original to or cc.
---

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index b4bfba4..a9f7cfd 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -403,7 +403,8 @@ the `wl-smtp-features' variable."
 	       (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))
 		mail-followup-to ",\n\t")))
     (and (null to) (setq to cc cc nil))