Function: gnus-tree-highlight-node

gnus-tree-highlight-node is a byte-compiled function defined in gnus-salt.el.gz.

Signature

(gnus-tree-highlight-node ARTICLE BEG END)

Documentation

Highlight current line according to gnus-summary-highlight.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-salt.el.gz
(defun gnus-tree-highlight-node (article beg end)
  "Highlight current line according to `gnus-summary-highlight'."
  (let ((list gnus-summary-highlight)
	face)
    (with-current-buffer gnus-summary-buffer
      (let ((uncached (memq article gnus-newsgroup-undownloaded)))
        (gnus--let-eval
            ((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)
             (uncached uncached)
             (downloaded (not uncached))
	     (mark (or (gnus-summary-article-mark article) gnus-unread-mark)))
            evalfun
          ;; Eval the cars of the lists until we find a match.
          (while (and list
                      (not (funcall evalfun (caar list))))
            (setq list (cdr list))))))
    (unless (eq (setq face (cdar list)) (gnus-get-text-property-excluding-characters-with-faces beg 'face))
      (gnus-put-text-property-excluding-characters-with-faces
       beg end 'face
       (if (boundp face) (symbol-value face) face)))))