From: yoichi <yoichi>
Date: Fri, 2 Jan 2004 15:56:28 +0000 (+0000)
Subject: * wl-address.el (wl-address-delete): Avoid mis-deleting.
X-Git-Tag: wl-2_11_23~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1cd6daae4121662708bfc26b57ae78f6ff773975;p=elisp%2Fwanderlust.git

* wl-address.el (wl-address-delete): Avoid mis-deleting.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2859c45..9573ae1 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2004-01-03  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-address.el (wl-address-delete): Avoid mis-deleting.
+
 2004-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-demo.el (wl-demo-copyright-notice): Add 2004.
diff --git a/wl/wl-address.el b/wl/wl-address.el
index 16082f9..f204a44 100644
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -647,7 +647,7 @@ Group list contents is not included."
     (with-temp-buffer
       (message "Deleting Address...")
       (insert-file-contents wl-address-file)
-      (delete-matching-lines (concat "^[ \t]*" the-email))
+      (delete-matching-lines (concat "^[ \t]*" the-email "[ \t]+\".*\"[ \t]+\".*\"$"))
       (write-region (point-min) (point-max)
 		    wl-address-file nil 'no-msg)
       ;; Delete entries.