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").

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c40982f..74b1f25 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -3,6 +3,11 @@
        * wl-vars.el (wl-smtp-posting-server): Customization Type fix.
        (wl-summary-showto-folder-regexp): Ditto.
 
+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-10  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-thread.el (wl-thread-close-all): Fixed typo in display-progress

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 2b91f1f..e1e2b5f 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-05-09 19:15:19 teranisi>
+;; Time-stamp: <2000-06-05 18:22:36 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -193,8 +193,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