* gnus-score.el (gnus-score-headers): Copy gnus-newsgrou-scored back.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 442f322..999007e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-24 16:51:04  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-score.el (gnus-score-headers): Copy gnus-newsgrou-scored
+       back.
+
 2000-04-24 16:01:15  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (gnus-treat-article): Make sure that the summary

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index c3ce5e0..49232b0 100644 (file)
--- 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)))