From: yoichi <yoichi>
Date: Sat, 3 Jan 2004 00:16:41 +0000 (+0000)
Subject: fix the last change
X-Git-Tag: wl-2_11_23~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9ddf8a2ed9071d0c585ba9b3f98c3a8c5ed8d5b2;p=elisp%2Fwanderlust.git

fix the last change
---

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