Function: gnus-highlight-selected-tree

gnus-highlight-selected-tree is an autoloaded and byte-compiled function defined in gnus-salt.el.gz.

Signature

(gnus-highlight-selected-tree ARTICLE)

Documentation

Highlight the selected article in the tree.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-salt.el.gz
(defun gnus-highlight-selected-tree (article)
  "Highlight the selected article in the tree."
  (when (buffer-live-p (get-buffer gnus-tree-buffer))
    (let ((buf (current-buffer))
	  region)
      (set-buffer gnus-tree-buffer)
      (when (setq region (gnus-tree-article-region article))
	(when (not gnus-selected-tree-overlay)
	  ;; Create a new overlay.
	  (overlay-put
	   (setq gnus-selected-tree-overlay
		 (make-overlay (point-min) (1+ (point-min))))
	   'face gnus-selected-tree-face))
	;; Move the overlay to the article.
	(move-overlay
	 gnus-selected-tree-overlay (goto-char (car region)) (cdr region))
	(gnus-tree-minimize)
	(gnus-tree-recenter)
	(let ((selected (selected-window)))
	  (when (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t)
	    (select-window
	     (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t))
	    (gnus-horizontal-recenter)
	    (select-window selected))))
      ;; If we remove this save-excursion, it updates the wrong mode lines?!?
      (with-current-buffer gnus-tree-buffer
	(gnus-set-mode-line 'tree))
      (set-buffer buf))))