From 9e466f57dc6358a0b2b8951c1d862bb2c3edbc2d Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Tue, 11 Sep 2001 07:51:07 +0000 Subject: [PATCH] (gnus-request-article-this-buffer): Generate `gnus-original-article-buffer' safely. --- ChangeLog | 3 ++- lisp/gnus-art.el | 10 +++++++++- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6fc226d..b1e9a84 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,7 +2,8 @@ * lisp/gnus-art.el (gnus-request-article-this-buffer): Copy an article from `gnus-original-article-buffer' to - `gnus-article-buffer'. + `gnus-article-buffer'. Generate `gnus-original-article-buffer' + safely. 2001-09-10 TSUCHIYA Masatoshi diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 397fca1..bc6a977 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -4850,7 +4850,15 @@ T-gnus change: Insert an article into `gnus-original-article-buffer'." (gnus-group-enter-directory dir)))))))) (setq gnus-original-article (cons group article)) - (set-buffer gnus-original-article-buffer) + ;; The current buffer is `gnus-original-article-buffer'. + (if (get-buffer gnus-original-article-buffer) + (set-buffer gnus-original-article-buffer) + (set-buffer (gnus-get-buffer-create gnus-original-article-buffer)) + (set-buffer-multibyte nil) + (buffer-disable-undo) + (setq major-mode 'gnus-original-article-mode) + (setq buffer-read-only nil)) + (cond ;; Refuse to select canceled articles. ((and (numberp article) -- 1.7.10.4