master 88409b2: Highlight the entire summary line for selected articles

[Lars Ingebrigtsen]

branch: master
commit 88409b21c23de13d0eac82f579cae9cc2f58d8b3
Author: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Highlight the entire summary line for selected articles
    
    * lisp/gnus/gnus-sum.el (gnus-highlight-selected-summary):
    Highlight the entire summary line (bug#47026).
---
 lisp/gnus/gnus-sum.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index ee74f01..bf58cf4 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))))))