(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 (file)
--- 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 (file)
--- 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))