From 5544afb945233319b4a4b825f62942af6919d41e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 14 Feb 2001 07:02:56 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 10 ++++++++++ lisp/gnus-sum.el | 10 ++++++++-- 2 files changed, 18 insertions(+), 2 deletions(-) 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 + + * gnus-sum.el (gnus-summary-print-article): Redo highlight. + +2001-02-13 21:00:00 ShengHuo ZHU + + * 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 * 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 "(" -- 1.7.10.4