From 3b1158fbef0131df54edded728ec5702b57278ca Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 6 Jan 2010 11:16:26 +0000 Subject: [PATCH] * wl-addrbook.el (wl-summary-addrbook-add): Use `with-current-buffer' instead of `save-excursion' & `set-buffer'. --- utils/ChangeLog | 5 +++++ utils/wl-addrbook.el | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/utils/ChangeLog b/utils/ChangeLog index 3217402..d0f205a 100644 --- a/utils/ChangeLog +++ b/utils/ChangeLog @@ -1,3 +1,8 @@ +2010-01-06 TAKAHASHI Kaoru + + * wl-addrbook.el (wl-summary-addrbook-add): Use + `with-current-buffer' instead of `save-excursion' & `set-buffer'. + 2008-04-22 TAKAHASHI Kaoru * ptexinfmt.el: Fix Comments. diff --git a/utils/wl-addrbook.el b/utils/wl-addrbook.el index 5a8c3a9..b553230 100644 --- a/utils/wl-addrbook.el +++ b/utils/wl-addrbook.el @@ -400,8 +400,7 @@ it will add an alias." (wl-summary-redisplay) (let ((buf wl-message-buffer) from shortname address addrs name) - (save-excursion - (set-buffer buf) + (with-current-buffer buf (setq address (std11-field-body "From")) (if (wl-address-user-mail-address-p address) (setq address (std11-field-body "To"))) -- 1.7.10.4