diff lisp/gnus/nnweb.el @ 44:8d2a9b52c682 r19-15prefinal

Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 8b8b7f3559a2
children
line wrap: on
line diff
--- a/lisp/gnus/nnweb.el	Mon Aug 13 08:54:52 2007 +0200
+++ b/lisp/gnus/nnweb.el	Mon Aug 13 08:55:10 2007 +0200
@@ -133,7 +133,7 @@
 
 (deffoo nnweb-close-group (group &optional server)
   (nnweb-possibly-change-server group server)
-  (when (buffer-live-p nnweb-buffer)
+  (when (gnus-buffer-live-p nnweb-buffer)
     (save-excursion
       (set-buffer nnweb-buffer)
       (set-buffer-modified-p nil)
@@ -166,7 +166,7 @@
 
 (deffoo nnweb-close-server (&optional server)
   (when (and (nnweb-server-opened server)
-	     (buffer-live-p nnweb-buffer))
+	     (gnus-buffer-live-p nnweb-buffer))
     (save-excursion
       (set-buffer nnweb-buffer)
       (set-buffer-modified-p nil)
@@ -274,7 +274,7 @@
 
 (defun nnweb-init (server)
   "Initialize buffers and such."
-  (unless (buffer-live-p nnweb-buffer)
+  (unless (gnus-buffer-live-p nnweb-buffer)
     (setq nnweb-buffer
 	  (save-excursion
 	    (nnheader-set-temp-buffer
@@ -295,7 +295,7 @@
       t)))
 
 (defun nnweb-callback (buffer callback)
-  (when (buffer-live-p url-working-buffer)
+  (when (gnus-buffer-live-p url-working-buffer)
     (save-excursion
       (set-buffer url-working-buffer)
       (funcall (nnweb-definition 'article))