X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-salt.el;h=ce6bcd7527b75b61a3383f78bc78ef49ea6950e4;hb=cfa942d8da08c96017372d2cb80f3a4b590ba135;hp=a69c5b545f3639ddb6c5ba581f5e213e0ef30e48;hpb=6b656500ac7b130d544d4f4d7575f85dab89aaaa;p=gnus

diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el
index a69c5b545..ce6bcd752 100644
--- a/lisp/gnus-salt.el
+++ b/lisp/gnus-salt.el
@@ -882,12 +882,12 @@ it in the environment specified by BINDINGS."
   ;; The save-excursion here is apparently necessary because
   ;; `set-window-point' somehow manages to alter the buffer position.
   (save-excursion
-    (set-buffer (gnus-get-tree-buffer))
-    (let (region)
-      (when (setq region (gnus-tree-article-region article))
-	(gnus-put-text-property (car region) (cdr region) 'face face)
-	(set-window-point
-	 (gnus-get-buffer-window (current-buffer) t) (cdr region))))))
+    (with-current-buffer (gnus-get-tree-buffer)
+      (let (region)
+	(when (setq region (gnus-tree-article-region article))
+	  (gnus-put-text-property (car region) (cdr region) 'face face)
+	  (set-window-point
+	   (gnus-get-buffer-window (current-buffer) t) (cdr region)))))))
 
 ;;; Allow redefinition of functions.
 (gnus-ems-redefine)