diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/gnus-art.el | 2 |
2 files changed, 5 insertions, 1 deletions
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 @@ | |||
| 1 | 2011-03-02 Julien Danjou <julien@danjou.info> | ||
| 2 | |||
| 3 | * gnus-art.el (gnus-with-article-buffer): Fix buffer live check. | ||
| 4 | |||
| 1 | 2011-03-01 Julien Danjou <julien@danjou.info> | 5 | 2011-03-01 Julien Danjou <julien@danjou.info> |
| 2 | 6 | ||
| 3 | * gnus-art.el (list-identifier): Add list-identifier as a parameter | 7 | * 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.") | |||
| 1743 | (put 'gnus-with-article-headers 'edebug-form-spec '(body)) | 1743 | (put 'gnus-with-article-headers 'edebug-form-spec '(body)) |
| 1744 | 1744 | ||
| 1745 | (defmacro gnus-with-article-buffer (&rest forms) | 1745 | (defmacro gnus-with-article-buffer (&rest forms) |
| 1746 | `(when (buffer-live-p gnus-article-buffer) | 1746 | `(when (buffer-live-p (get-buffer gnus-article-buffer)) |
| 1747 | (with-current-buffer gnus-article-buffer | 1747 | (with-current-buffer gnus-article-buffer |
| 1748 | (let ((inhibit-read-only t)) | 1748 | (let ((inhibit-read-only t)) |
| 1749 | ,@forms)))) | 1749 | ,@forms)))) |