From: Kévin Le Gouguec Date: Wed, 10 Mar 2021 15:15:01 +0000 (+0100) Subject: Highlight the entire summary line for selected articles X-Git-Tag: emacs-28.0.90~3338 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88409b21c23de13d0eac82f579cae9cc2f58d8b3;p=emacs.git Highlight the entire summary line for selected articles * lisp/gnus/gnus-sum.el (gnus-highlight-selected-summary): Highlight the entire summary line (bug#47026). --- diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index ee74f013930..bf58cf419a2 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -12741,7 +12741,7 @@ If REVERSE, save parts that do not match TYPE." ;; so we highlight the entire line instead. (when (= (+ to 2) from) (setq from beg) - (setq to end)) + (setq to (1+ end))) (if gnus-newsgroup-selected-overlay ;; Move old overlay. (move-overlay @@ -12796,7 +12796,7 @@ If REVERSE, save parts that do not match TYPE." (let ((face (funcall (gnus-summary-highlight-line-0)))) (unless (eq face (gnus-get-text-property-excluding-characters-with-faces beg 'face)) (gnus-put-text-property-excluding-characters-with-faces - beg (point-at-eol) 'face + beg (1+ (point-at-eol)) 'face (setq face (if (boundp face) (symbol-value face) face))) (when gnus-summary-highlight-line-function (funcall gnus-summary-highlight-line-function article face))))))