Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5d1c16..1623fd1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-26  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-sum.el (gnus-summary-highlight-line): Don't bind `list' --
+       it isn't used any more.
+
 2002-12-22  Jesper Harder  <harder@ifa.au.dk>
 
        * binhex.el (binhex-decoder-program): Fix docstring.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index b061c2a..e9f67f8 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -11011,21 +11011,18 @@ If REVERSE, save parts that do not match TYPE."
 
 (defun gnus-summary-highlight-line ()
   "Highlight current line according to `gnus-summary-highlight'."
-  (let*
-      ((list gnus-summary-highlight)
-       (beg (gnus-point-at-bol))
+  (let* ((beg (gnus-point-at-bol))
         (article (or (gnus-summary-article-number) gnus-current-article))
         (score (or (cdr (assq article
-                            gnus-newsgroup-scored))
-                 gnus-summary-default-score 0))
-       (mark (or (gnus-summary-article-mark) gnus-unread-mark))
-       (inhibit-read-only t)
-       (default gnus-summary-default-score)
-       (default-high gnus-summary-default-high-score)
-       (default-low gnus-summary-default-low-score)
+                              gnus-newsgroup-scored))
+                   gnus-summary-default-score 0))
+        (mark (or (gnus-summary-article-mark) gnus-unread-mark))
+        (inhibit-read-only t)
+        (default gnus-summary-default-score)
+        (default-high gnus-summary-default-high-score)
+        (default-low gnus-summary-default-low-score)
         (uncached (memq article gnus-newsgroup-undownloaded))
-        (downloaded (not uncached))
-        )
+        (downloaded (not uncached)))
     (let ((face (funcall (gnus-summary-highlight-line-0))))
       (unless (eq face (get-text-property beg 'face))
        (gnus-put-text-property-excluding-characters-with-faces