From: yamaoka Date: Thu, 26 Dec 2002 04:56:08 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_10-00-quimby~21 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1b60a4d13aad3feae05b1375224a475b7b128756;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f5d1c16..1623fd1 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 b061c2a..e9f67f8 100644 --- 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