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