From 5852cb0e554b9585cec368f3cabc3c8b32a38163 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 10 Apr 2000 00:33:56 +0000 Subject: [PATCH] 2000-04-07 A. SAGATA * wl-address.el (wl-address-petname-add-or-change): Use e-mail address as petname when there's no candidate. --- wl/ChangeLog | 5 +++++ wl/wl-address.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * 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 * 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 ;; 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 -- 1.7.10.4