(gnus-summary-highlight-line): Don't bind `list' --
authorJesper Harder <harder@ifa.au.dk>
Thu, 26 Dec 2002 01:35:06 +0000 (01:35 +0000)
committerJesper Harder <harder@ifa.au.dk>
Thu, 26 Dec 2002 01:35:06 +0000 (01:35 +0000)
it isn't used any more.

lisp/ChangeLog
lisp/gnus-sum.el

index f5d1c16..1623fd1 100644 (file)
@@ -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.
index efe1cdc..4d32acb 100644 (file)
@@ -10910,21 +10910,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