2000-04-07 A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>

	* wl-address.el (wl-address-petname-add-or-change): Use e-mail address
	as petname when there's no candidate.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index bcd44da..17fa2d0 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-07  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+       * wl-address.el (wl-address-petname-add-or-change): Use e-mail address
+       as petname when there's no candidate.
+
 2000-04-07  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-vars.el (wl-fldmgr-add-complete-with-current-folder-list):

diff --git a/wl/wl-address.el b/wl/wl-address.el
index 50ef029..23e7edb 100644 (file)
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-03-03 00:59:01 teranisi>
+;; Time-stamp: <2000-04-10 09:29:44 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -340,7 +340,7 @@ If already registerd, change it."
     (setq the-petname
          (read-from-minibuffer (format "Petname: ") default-petname))
     (if (string= the-petname "")
-       (setq the-petname default-petname))
+       (setq the-petname (or default-petname the-email)))
 
     ;; setup output "realname"
     (setq the-realname