From: teranisi Date: Mon, 5 Jun 2000 09:26:54 +0000 (+0000) Subject: 2000-05-24 TAKAHASHI Kaoru X-Git-Tag: wl-2_4-root~160 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=84adbc16046edf45f1368042a62dd9c8ed3595a1;p=elisp%2Fwanderlust.git 2000-05-24 TAKAHASHI Kaoru * 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 --- 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 + + * wl-summary.el (wl-summary-default-from): Fix probrem when + std11-extract-address-components return (nil "foo@bar"). + 2000-05-10 Yuuichi Teranishi * 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 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4,7 +4,7 @@ ;; Author: Yuuichi Teranishi ;; 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