From: kaoru <kaoru>
Date: Wed, 24 May 2000 04:58:23 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-default-from): Fix probrem when
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=79e0bebbc3336cc698075826c5eb2629853363ab;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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