From: Jesper Harder Date: Thu, 26 Dec 2002 01:35:06 +0000 (+0000) Subject: (gnus-summary-highlight-line): Don't bind `list' -- X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=0fce6d45e943e0886010af74a92cca7e2971765c (gnus-summary-highlight-line): Don't bind `list' -- it isn't used any more. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f5d1c1681..1623fd186 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-12-26 Jesper Harder + + * gnus-sum.el (gnus-summary-highlight-line): Don't bind `list' -- + it isn't used any more. + 2002-12-22 Jesper Harder * binhex.el (binhex-decoder-program): Fix docstring. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index efe1cdc2e..4d32acbb6 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -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