* utils/bbdb-wl.el (bbdb-wl-get-update-record): Use `with-current-buffer'.
authorteranisi <teranisi>
Mon, 16 Apr 2001 02:53:14 +0000 (02:53 +0000)
committerteranisi <teranisi>
Mon, 16 Apr 2001 02:53:14 +0000 (02:53 +0000)
utils/bbdb-wl.el

index db4cfc4..e78e551 100644 (file)
@@ -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)