From 846123b969d829cd20cde6f59926ee4c7267f90d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 13 Aug 2001 22:34:00 +0000 Subject: [PATCH] * 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'. --- ChangeLog | 10 ++++++++++ lisp/gnus-art.el | 32 +++++++++----------------------- lisp/gnus-vers.el | 2 +- 3 files changed, 20 insertions(+), 24 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5aef4e3..a6a70c8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +2001-08-13 Katsumi Yamaoka + + * lisp/gnus-vers.el (gnus-revision-number): Increment to 05. + +2001-08-10 Katsumi Yamaoka + + * 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 * 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. -- 1.7.10.4