* wl-summary.el (wl-summary-default-from): Fix probrem when

std11-extract-address-components return (nil "foo@bar").

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2a13424..1ebb1a3 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-24  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-summary.el (wl-summary-default-from): Fix probrem when
+       std11-extract-address-components return (nil "foo@bar").
+
 2000-05-24  OKAZAKI Tetsurou  <okazaki@be.to>
 
        * wl-draft.el (wl-draft-clone-local-variables):

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 5f52ece..fa11d4d 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -200,8 +200,9 @@
                                 (eword-decode-string
                                  (if wl-use-petname
                                      (wl-address-get-petname to)
-                                   (car 
-                                    (std11-extract-address-components to))))))
+                                   (or
+                                    (car (std11-extract-address-components to))
+                                    to)))))
                              (wl-parse-addresses tos)
                              ","))))
              ((setq ng (elmo-msgdb-overview-entity-get-extra-field