(gnus-tree-highlight-node): Bind `default-high' and

`default-low' when evaluating `gnus-summary-highlight'.
From Raja R Harinath <harinath@cs.umn.edu>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9493a78..8cbaf98 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-05-27  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * gnus-salt.el (gnus-tree-highlight-node): Bind `default-high' and
+       `default-low' when evaluating `gnus-summary-highlight'.
+       From Raja R Harinath <harinath@cs.umn.edu>.
+
 2001-05-27  Simon Josefsson  <simon@josefsson.org>
 
        * message.el (message-yank-cited-prefix): New variable.

diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el
index 2a6acc9..c90f848 100644 (file)
--- a/lisp/gnus-salt.el
+++ b/lisp/gnus-salt.el
@@ -666,6 +666,8 @@ Two predefined functions are available:
       (let* ((score (or (cdr (assq article gnus-newsgroup-scored))
                        gnus-summary-default-score 0))
             (default gnus-summary-default-score)
+            (default-high gnus-summary-default-high-score)
+            (default-low gnus-summary-default-low-score)
             (mark (or (gnus-summary-article-mark article) gnus-unread-mark)))
        ;; Eval the cars of the lists until we find a match.
        (while (and list