From: teranisi <teranisi>
Date: Mon, 10 Apr 2000 00:33:56 +0000 (+0000)
Subject: 2000-04-07  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
X-Git-Tag: wl-1_1_1~58
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5852cb0e554b9585cec368f3cabc3c8b32a38163;p=elisp%2Fwanderlust.git

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