--- a/lisp/gnus/gnus-async.el	Mon Aug 13 08:54:26 2007 +0200
+++ b/lisp/gnus/gnus-async.el	Mon Aug 13 08:54:51 2007 +0200
@@ -126,7 +126,7 @@
 
 (defun gnus-async-prefetch-next (group article summary)
   "Possibly prefetch several articles starting with the article after ARTICLE."
-  (when (and (gnus-buffer-live-p summary)
+  (when (and (buffer-live-p summary)
 	     gnus-asynchronous
 	     (gnus-group-asynchronous-p group))
     (save-excursion
@@ -143,7 +143,7 @@
 
 (defun gnus-async-prefetch-article (group article summary &optional next)
   "Possibly prefetch several articles starting with ARTICLE."
-  (if (not (gnus-buffer-live-p summary))
+  (if (not (buffer-live-p summary))
       (gnus-async-with-semaphore
        (setq gnus-async-fetch-list nil))
     (when (and gnus-asynchronous
@@ -154,7 +154,7 @@
       (let ((do-fetch next)
 	    (do-message t)) ;(eq major-mode 'gnus-summary-mode)))
 	(when (and (gnus-group-asynchronous-p group)
-		   (gnus-buffer-live-p summary)
+		   (buffer-live-p summary)
 		   (or (not next)
 		       gnus-async-fetch-list))
 	  (gnus-async-with-semaphore
@@ -211,7 +211,7 @@
 		      ,mark (set-marker (make-marker) (point-max))
 		      ,group ,article)
 		gnus-async-article-alist)))
-       (if (not (gnus-buffer-live-p ,summary))
+       (if (not (buffer-live-p ,summary))
 	   (gnus-async-with-semaphore
 	    (setq gnus-async-fetch-list nil))
 	 (gnus-async-prefetch-article ,group ,next ,summary t)))))