From: teranisi <teranisi>
Date: Mon, 16 Apr 2001 02:53:14 +0000 (+0000)
Subject: * utils/bbdb-wl.el (bbdb-wl-get-update-record): Use `with-current-buffer'.
X-Git-Tag: wl-2_6-root~39
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=44d4cc2b28cac8e54b1398b8c5e76ba762c65a6b;p=elisp%2Fwanderlust.git

* utils/bbdb-wl.el (bbdb-wl-get-update-record): Use `with-current-buffer'.
---

diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el
index db4cfc4..e78e551 100644
--- a/utils/bbdb-wl.el
+++ b/utils/bbdb-wl.el
@@ -63,9 +63,9 @@
   (bbdb-save-db t))
 
 (defun bbdb-wl-get-update-record ()
-  (set-buffer (wl-message-get-original-buffer))
-  (bbdb-wl-update-record)
-  (run-hooks 'bbdb-wl-get-update-record-hook))
+  (with-current-buffer (wl-message-get-original-buffer)
+    (bbdb-wl-update-record)
+    (run-hooks 'bbdb-wl-get-update-record-hook)))
 
 (defun bbdb-wl-hide-bbdb-buffer ()
   (let (bbdb-buf bbdb-win)