From: tsuchiya <tsuchiya>
Date: Tue, 11 Sep 2001 07:51:07 +0000 (+0000)
Subject: (gnus-request-article-this-buffer): Generate
X-Git-Tag: semi-gnus~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9e466f57dc6358a0b2b8951c1d862bb2c3edbc2d;p=elisp%2Fgnus.git-

(gnus-request-article-this-buffer): Generate
`gnus-original-article-buffer' safely.
---

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  <tsuchiya@namazu.org>
 
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)