(gnus-request-article-this-buffer): Generate

`gnus-original-article-buffer' safely.

diff --git a/ChangeLog b/ChangeLog
index 6fc226d..b1e9a84 100644 (file)
--- 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  <tsuchiya@namazu.org>
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 397fca1..bc6a977 100644 (file)
--- 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)