From 84adbc16046edf45f1368042a62dd9c8ed3595a1 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 5 Jun 2000 09:26:54 +0000 Subject: [PATCH] 2000-05-24 TAKAHASHI Kaoru * wl-summary.el (wl-summary-default-from): Fix probrem when std11-extract-address-components return (nil "foo@bar"). --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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 -- 1.7.10.4