From: yamaoka <yamaoka>
Date: Mon, 13 Aug 2001 22:34:00 +0000 (+0000)
Subject: * gnus-vers.el (gnus-revision-number): Increment to 05.
X-Git-Tag: t-gnus-6_15_3-05
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=846123b969d829cd20cde6f59926ee4c7267f90d;p=elisp%2Fgnus.git-

* gnus-vers.el (gnus-revision-number): Increment to 05.
* 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 5aef4e3..a6a70c8 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 05.
+
+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-30  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-sum.el (gnus-select-newsgroup): Don't examine cached
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1117447..6825e9a 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4745,8 +4745,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)
@@ -4801,7 +4803,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)
@@ -4869,28 +4873,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 2fd60fa..326842d 100644
--- a/lisp/gnus-vers.el
+++ b/lisp/gnus-vers.el
@@ -34,7 +34,7 @@
 (require 'product)
 (provide 'gnus-vers)
 
-(defconst gnus-revision-number "04"
+(defconst gnus-revision-number "05"
   "Revision number for this version of gnus.")
 
 ;; Product information of this gnus.