gnus-art.el (gnus-with-article-buffer): Fix buffer live check.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4562d544a58fb98eae014a18ac375f2ffbd894a4..7606d1a44aedeb359d08582408050755fde19896 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2011-03-02  Julien Danjou  <julien@danjou.info>
+
+       * gnus-art.el (gnus-with-article-buffer): Fix buffer live check.
+
 2011-03-01  Julien Danjou  <julien@danjou.info>
 
        * 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 7469c4445c6f32b23e3ca1c19242b6e5377083b3..c64138b43d71a3e494058d74a28196d429f547d5 100644 (file)
--- 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))))