From 1cd6daae4121662708bfc26b57ae78f6ff773975 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 2 Jan 2004 15:56:28 +0000 Subject: [PATCH] * wl-address.el (wl-address-delete): Avoid mis-deleting. --- wl/ChangeLog | 4 ++++ wl/wl-address.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * wl-address.el (wl-address-delete): Avoid mis-deleting. + 2004-01-01 TAKAHASHI Kaoru * 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. -- 1.7.10.4