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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2859c45..9573ae1 100644 (file)
--- 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 (file)
--- 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.