* wl-addrbook.el (wl-summary-addrbook-add): Use `with-current-buffer' instead of...

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 3217402..d0f205a 100644 (file)
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-06  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-addrbook.el (wl-summary-addrbook-add): Use
+       `with-current-buffer' instead of `save-excursion' & `set-buffer'.
+
 2008-04-22  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * ptexinfmt.el: Fix Comments.

diff --git a/utils/wl-addrbook.el b/utils/wl-addrbook.el
index 5a8c3a9..b553230 100644 (file)
--- 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")))