From: kaoru <kaoru>
Date: Wed, 6 Jan 2010 11:16:26 +0000 (+0000)
Subject: * wl-addrbook.el (wl-summary-addrbook-add): Use `with-current-buffer' instead of... 
X-Git-Tag: elmo-imap4-compliance-root~26
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fwanderlust.git;a=commitdiff_plain;h=3b1158fbef0131df54edded728ec5702b57278ca

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

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  <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
--- 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")))