From 9ddf8a2ed9071d0c585ba9b3f98c3a8c5ed8d5b2 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 3 Jan 2004 00:16:41 +0000 Subject: [PATCH] fix the last change --- wl/wl-address.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/wl/wl-address.el b/wl/wl-address.el index f158400..2d8e3e7 100644 --- a/wl/wl-address.el +++ b/wl/wl-address.el @@ -672,8 +672,8 @@ If already registerd, change it." (when change-address (setq new-addr (read-from-minibuffer "E-Mail: " address)) (cond - ((or (not (stringp address)) - (string-match "^[ \t]*$" address)) + ((or (not (stringp new-addr)) + (string-match "^[ \t]*$" new-addr)) (error "empty address")) ((and (not (string= address new-addr)) (assoc new-addr wl-address-list)) -- 1.7.10.4