From 7b1277ff2f4e8b5d29cc8b2b3dc5323c0b4e0f4b Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Mon, 24 Apr 2000 20:59:29 +0000 Subject: [PATCH] * gnus-score.el (gnus-score-headers): Copy gnus-newsgrou-scored back. --- lisp/ChangeLog | 5 +++++ lisp/gnus-score.el | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 442f32290..999007ed0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-04-24 16:51:04 Shenghuo ZHU + + * gnus-score.el (gnus-score-headers): Copy gnus-newsgrou-scored + back. + 2000-04-24 16:01:15 Shenghuo ZHU * gnus-art.el (gnus-treat-article): Make sure that the summary diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index c3ce5e0b2..49232b09f 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -1462,6 +1462,10 @@ EXTRA is the possible non-standard header." (when (setq new (funcall (nth 2 entry) scores header now expire trace)) (push new news)))) + (when (gnus-buffer-live-p gnus-summary-buffer) + (let ((scored gnus-newsgroup-scored)) + (with-current-buffer gnus-summary-buffer + (setq gnus-newsgroup-scored scored)))) ;; Remove the buffer. (kill-buffer (current-buffer))) -- 2.34.1