From: yamaoka <yamaoka>
Date: Mon, 13 Aug 2001 22:35:19 +0000 (+0000)
Subject: * gnus-vers.el (gnus-revision-number): Increment to 06.
X-Git-Tag: t-gnus-6_15_4-06-quimby~1
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fgnus.git-;a=commitdiff_plain;h=114b7fe1a0b792de6a09447867082eb07860a51f

* gnus-vers.el (gnus-revision-number): Increment to 06.
* gnus-art.el (gnus-request-article-this-buffer): Insert an article into
 `gnus-original-article-buffer' instead of `gnus-article-buffer'.
---

diff --git a/ChangeLog b/ChangeLog
index 664c058..a60ed64 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2001-08-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-vers.el (gnus-revision-number): Increment to 06.
+
+2001-08-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-art.el (gnus-request-article-this-buffer): Insert an
+	article into `gnus-original-article-buffer' instead of
+	`gnus-article-buffer'.
+
 2001-07-31  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/mml2015.el: Require `gnus-clfns' when compiling.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1819a7f..7a37910 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4775,8 +4775,10 @@ If given a prefix, show the hidden text instead."
     (gnus-request-group gnus-newsgroup-name t)))
 
 (defun gnus-request-article-this-buffer (article group)
-  "Get an article and insert it into this buffer."
+  "Get an article and insert it into this buffer.
+T-gnus change: Insert an article into `gnus-original-article-buffer'."
   (let (do-update-line sparse-header)
+    ;; The current buffer is `gnus-article-buffer'.
     (prog1
 	(save-excursion
 	  (erase-buffer)
@@ -4831,7 +4833,9 @@ If given a prefix, show the hidden text instead."
 		      (when (file-directory-p dir)
 			(setq article 'nneething)
 			(gnus-group-enter-directory dir))))))))
+	  (setq gnus-original-article (cons group article))
 
+	  (set-buffer gnus-original-article-buffer)
 	  (cond
 	   ;; Refuse to select canceled articles.
 	   ((and (numberp article)
@@ -4899,28 +4903,10 @@ If given a prefix, show the hidden text instead."
       ;; Associate this article with the current summary buffer.
       (setq gnus-article-current-summary gnus-summary-buffer)
 
-      ;; Take the article from the original article buffer
-      ;; and place it in the buffer it's supposed to be in.
-      (when (and (get-buffer gnus-article-buffer)
-		 (equal (buffer-name (current-buffer))
-			(buffer-name (get-buffer gnus-article-buffer))))
-	(save-excursion
-	  (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 t))
-	  (let (buffer-read-only)
-	    (erase-buffer)
-	    (insert-buffer-substring gnus-article-buffer))
-	  (setq gnus-original-article (cons group article)))
-
-	;; Decode charsets.
-	(run-hooks 'gnus-article-decode-hook)
-	;; Mark article as decoded or not.
-	(setq gnus-article-decoded-p gnus-article-decode-hook))
+      ;; Decode charsets.
+      (run-hooks 'gnus-article-decode-hook)
+      ;; Mark article as decoded or not.
+      (setq gnus-article-decoded-p gnus-article-decode-hook)
 
       ;; Update sparse articles.
       (when (and do-update-line
diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index 576cc14..08c6ff3 100644
--- a/lisp/gnus-vers.el
+++ b/lisp/gnus-vers.el
@@ -34,7 +34,7 @@
 (require 'product)
 (provide 'gnus-vers)
 
-(defconst gnus-revision-number "05"
+(defconst gnus-revision-number "06"
   "Revision number for this version of gnus.")
 
 ;; Product information of this gnus.