From e1a135a9ebc03eff6a3fea84a7196ecc00cf7d0f Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Wed, 2 Mar 2011 12:34:12 +0000 Subject: [PATCH] gnus-art.el (gnus-with-article-buffer): Fix buffer live check. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-art.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4562d544a58..7606d1a44ae 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2011-03-02 Julien Danjou + + * gnus-art.el (gnus-with-article-buffer): Fix buffer live check. + 2011-03-01 Julien Danjou * gnus-art.el (list-identifier): Add list-identifier as a parameter diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 7469c4445c6..c64138b43d7 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -1743,7 +1743,7 @@ Initialized from `text-mode-syntax-table.") (put 'gnus-with-article-headers 'edebug-form-spec '(body)) (defmacro gnus-with-article-buffer (&rest forms) - `(when (buffer-live-p gnus-article-buffer) + `(when (buffer-live-p (get-buffer gnus-article-buffer)) (with-current-buffer gnus-article-buffer (let ((inhibit-read-only t)) ,@forms)))) -- 2.39.5