Mercurial > hg > xemacs-beta
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))