From: yamaoka <yamaoka>
Date: Wed, 14 Feb 2001 07:02:56 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_0-07-quimby-last-~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5544afb945233319b4a4b825f62942af6919d41e;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c1021fc..beae4ac 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2001-02-14 00:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-sum.el (gnus-summary-print-article): Redo highlight.
+
+2001-02-13 21:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-sum.el (gnus-summary-read-group-1): Remove 
+	gnus-summary-set-local-parameters.
+	(gnus-summary-setup-buffer): Put it here.
+
 2001-02-13 20:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* gnus.el (to-address): Define parameter.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 40335d0..ded62b8 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2659,6 +2659,8 @@ display only a single character."
 	(make-local-variable 'gnus-article-current)
 	(make-local-variable 'gnus-original-article-buffer))
       (setq gnus-newsgroup-name group)
+      ;; Set any local variables in the group parameters.
+      (gnus-summary-set-local-parameters gnus-newsgroup-name)
       t)))
 
 (defun gnus-set-global-variables ()
@@ -3053,8 +3055,6 @@ If SHOW-ALL is non-nil, already read articles are also listed."
 	     (gnus-active gnus-newsgroup-name)))
       ;; You can change the summary buffer in some way with this hook.
       (gnus-run-hooks 'gnus-select-group-hook)
-      ;; Set any local variables in the group parameters.
-      (gnus-summary-set-local-parameters gnus-newsgroup-name)
       (gnus-update-format-specifications
        nil 'summary 'summary-mode 'summary-dummy)
       (gnus-update-summary-mark-positions)
@@ -7576,6 +7576,12 @@ to save in."
 	      (copy-to-buffer buffer (point-min) (point-max))
 	      (set-buffer buffer)
 	      (gnus-article-delete-invisible-text)
+	      (when (gnus-visual-p 'article-highlight 'highlight)
+		;; Copy-to-buffer doesn't copy overlay.  So redo
+		;; highlight.
+		(let ((gnus-article-buffer buffer))
+		  (gnus-article-highlight-citation t)
+		  (gnus-article-highlight-signature)))
 	      (let ((ps-left-header
 		     (list
 		      (concat "("